indy Server und Client komponente

[mjustin]

Zitat von Klaus01:

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.

[youuu]

Danke, nun klappt alles