ServerSocket Prozeduren zuweisen

[LoRd-MuldeR]

Wir wär's denn damit?

Delphi-Quellcode:

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

var
  Server: TMyServerSocket;

procedure TMyServerSocket.OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  // Dein Code hier!
end;

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