Datei von client über server an client

[ghost007]

Zitat von marabu:

Delphi-Quellcode:

var
  fs: TFileStream;
  fn: TFileName;
begin
  fs := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);
  try
    with TCPClient do
      WriteStream(fs);
  finally
    fs.Free;
  end;
end;

Heißt das, wenn ich mit fs dann
ClientSocket1.SendStream(fs); mache, empfängt der connected server den stream?
Und wie kann ich einen recived stream in ne datei schreiben?