Delphi-Quellcode:
procedure TConfigService.onExecute(AContext: TIdContext);
begin
AContext.Connection.IOHandler.ReadBytes(key,16);
// TCP server liest
AContext.Connection.IOHandler.
Write(buffer.Size);
// TCP server schickt etwas zum client
AContext.Connection.IOHandler.
Write(buffer,buffer.size);
// wie oben
end;
Genau so ist es (wenn TConfigService ein TIdTCPServer ist)
Wichtiges Detail:
OnExecute wird vom TIdTCPServer in einer Schleife immer wiederholt (bis die Verbindung endet).
Man kann den Code noch etwas CPU freundlicher machen (
Quelle). Wichtig sind die Kommentare, die ein anderes Vorgehen beschreiben als im Quelltext darüber.