Datei von client über server an client

[marabu]

Ich bleibe mal bei Indy9:

Delphi-Quellcode:

procedure TDemoForm.TCPServerExecute(AThread: TIdPeerThread);
var
  s: TStream;
  fn: TFileName;
begin
  // fn aus deinem Protokoll ermitteln
  s := TFileStream.Create(fn, fmCreate or fmShareDenyWrite);
  AThread.Connection.ReadStream(s);
  s.Free;
end;

marabu