Datei an Client schicken (IdTCP)

[ManuMF]

@storm1988: Wenn du es wie in meinem Beispiel machst, musste du nur die Code-Zeilen im with-Bereich austauschen, und zwar

Delphi-Quellcode:

// Client

with Acontext.connection do
  begin
    try
      Socket.Write(IDS, 0, true);
    finally
      Disconnect;
    end;
  end;

und

Delphi-Quellcode:

// Server
with Acontext.connection do
  begin
    try
      SizeOfIncomingStream := Socket.ReadInteger;
      Socket.ReadStream(IDS, SizeOfIncomingStream);
    finally
      Disconnect;
    end;
  end;

Natürlich müssen auch die Streams andersrum behandelt werden (Open-Dialog bzw. feste Datei beim Server, Save-Dialog etc. beim Client).

Gruß,
ManuMF