ServerSocket Prozeduren zuweisen

[marabu]

Hallo Gerrit,

versuche es mal so:

Delphi-Quellcode:

type
  TMyServerSocket = class(TServerSocket)
  private
    procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  end;

procedure TMyServerSocket.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  // ...
end;


begin
  //Server starten
  Server := TMyServerSocket.Create(Self);
  with Server do
  begin
    Port := StrToInt(ServerPort);
    ServerType := stNonBlocking;
    ThreadCacheSize := 10;
    OnClientConnect := ClientConnect;
    Active := True;
  end;

Grüße vom marabu