Hi,
ich habe eine Funktion geschrieben, die eine
TCP Server Komponente aktiviert und das Ergebnis zurückliefert. Die Komponente ist in einem Datenmodul und die Funktion in der dazugehörigen
Unit.
Komischerweise bekomme ich, wenn die Funktion aus einer anderen
Unit heraus aufgerufen wird, eine Zugriffsverletzung. Aber nur dann, wenn die Server Komponente angesprochen wird. Klammer ich den Teil der Funktion aus, gehts.
Hier der Quelltext:
Delphi-Quellcode:
public
{ Public-Deklarationen }
Function Server_aktivieren (Status: boolean): boolean;
implementation
{$R *.dfm}
Function TVerbindungsData.Server_aktivieren(Status: Boolean): Boolean;
begin
Result := true;
try
TCPCommandServer.Active := Status;
TCPMsgServer.Active := Status;
except
end;
Result := (TCPCommandServer.Active) and (TCPMsgServer.Active);
end;
MfG
Christian