.. entschuldige, da fehlte wohl etwas an Hintergrundinfos:
Delphi-Quellcode:
constructor TTcpListener.create(tcpPort: Word);
begin
inherited create;
listenerPort := tcpPort;
logger := Tlogger.getInstance;
onlineMode := false;
// toDo: replace file path with ini file settings
fileManager := TFileManager.create(ExtractFilePath(ParamStr(0)));
decoderScheduler := TDecoderScheduler.create;
tcpServer := TIdTcpServer.Create(
nil);
tcpServer.OnExecute := onExecute;
tcpServer.OnConnect := onConnect;
tcpServer.OnDisconnect := onDisconnect;
tcpServer.Bindings.DefaultPort := listenerPort;
tcpServer.Active := true;
logger.push('
TCP Server started, listening on port '+intToStr(tcpPort));
end;
TTCPListener.onExecute ist die onExecute Methode für den TidTcpServer.
Grüße
Klaus