Datei von client über server an client

[marabu]

Hallo Christian,

prinzipiell geht das so:

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;

Allerdings brauchst du eine Protokoll mit dem du dich beim Server registrieren und regsitrierte Clients ermitteln kannst, damit überhaupt ein Store & Forward Betrieb möglich ist.

Grüße vom marabu