Indy : Datei von Server an Client senden

[gandime]

naja wie schon von inherited gesagt ist das die beste lösung

Zitat von benst:

Ich habe folgende Ziel: Ich möchte Dateien von einem Quell-Computer zu einem Ziel-Computer über das Internet direkt verschicken können. Dazu folgende Anmerkungen:
Der Ziel Computer sitzt hinter einem Router und soll sich daher als Client beim Server einloggen.

naja dazu^^ ich weiss schon was es wird

aber da ich ja gerne hilfsbereit bin hier der code:
client:

Delphi-Quellcode:

procedure TForm1.ti_dl_upTimer(Sender: TObject);
var
  FStream:tfilestream;
  lline_b:string;
begin
  s_zspeicher:=eigenschaft1;
  IdTCPClient_filemanager.IOHandler.WriteLn('was neues?');
  line_b:=IdTCPClient_filemanager.IOHandler.readln;
  if (line_b='dl_file') then
  begin
    FStream := TFileStream.Create('ieine datei', fmOpenRead);
    IdTCPClient_filemanager.iohandler.Write(Fstream,0,true);
    FreeAndNil(FStream);
  end
  else if (line_b='up_file') then
  begin
    FStream := TFileStream.Create('ieine datei',fmCreate);    
    IdTCPClient_filemanager.IOHandler.ReadStream(fstream);
    freeandnil(fstream);
  end;
end;

server:

Delphi-Quellcode:

procedure TForm1.IdTCPServer_filemanagerExecute(AContext: TIdContext);
var
  was_tun,s_name:string;
begin
  was_tun:=AContext.Connection.IOHandler.ReadLn;
  AContext.Connection.IOHandler.writeln('up/dl file');//was man halt will
  was_tun:='dl_file/up_file';
  if (was_tun='dl_file') then
  begin
    FStream := TFileStream.Create('ieine datei', fmCreate);
    AContext.connection.IOHandler.ReadStream(fstream);
    FreeAndNil(FStream);
  end
  else if (was_tun='up_file') then
  begin
    FStream:=TFileStream.Create('ieine datei',fmOpenRead);
    AContext.connection.IOHandler.Write(Fstream,0,true);
    freeandnil(fstream);
  end;
end;