Client-Server-Datenübertragung

[mjustin]

Zitat von HJay:

Ich würde gerne etwa 100-500 KB große Binärdaten innerhalb eines LAN von einem Server an einen Client übertragen.

Mit Indy (TIdTCPServer) ist das einfach zu realisieren. Der Server wartet auf eine Clientverbindung, und sobald sie hergestellt ist, führt er in einer Schleife den "OnExecute" Eventhandler aus.

Wenn eine Datei zur Übertragung bereit ist, sendet der Server sie als Stream mit

Delphi-Quellcode:

// write stream size and then stream data
AContext.Connection.IOHandler.Write(AStream, 0, True);

und der Client liest den Stream mit

Delphi-Quellcode:

// reads the stream size then reads the stream data
Client.IOHandler.ReadStream(MyStream, -1, False);

(wobei der Client ebenfalls in einer Endlosschleife prüft, ob Daten vom Server angekommen sind:

Delphi-Quellcode:

  while not Terminated do
  begin 
    IdTCPClient1.IOHandler.CheckForDataOnSource(50);
    if not IdTCPClient1.IOHandler.InputBufferIsEmpty then
    begin
      // Stream - Objekt erzeugen
      ...
      // Daten empfangen
      Client.IOHandler.ReadStream(MyStream, -1, False);
      // Daten verarbeiten und danach Stream freigeben
      ...
    end;
  end;