ServerSocket Prozeduren zuweisen

[Rastaman]

Da issa:

Delphi-Quellcode:

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

var
  Self: TComponent;
  Server: TServerSocket;

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

begin

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