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;