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;