Delphi-Quellcode:
xMS: TMemoryStream;
begin
xMS := TMemoryStream.Create;
try
IdFTP1.Get('fusel.blah', xMS);
xMS.SaveToFile('fusel.blah');
finally
FreeAndNil(xMS);
end;
end;
[edit]
von mir aus auch innen FileStream (bevor irgendwer wieder klugscheißt)
Delphi-Quellcode:
var
xFS: TFileStream;
begin
xFS := TFileStream.Create('fusel.blah', fmCreate);
try
IdFtp1.Get('fusel.blah', xFS);
finally
FreeAndNil(xFS);
end;
end;
[/edit]