Ändert leider gar nichts.
Delphi-Quellcode:
function TForm1.Donwload :Boolean;
Var FilePhatname: String;
begin
FilePhatname := 'D:\ist\BarCodeReader\';
idFTP1.Host := Edit1.Text;
idFTP1.Username := 'redsnapper';
idFTP1.Password := 'redcolor';
idFTP1.Connect;
if not IdFTP1.Connected then exit;
IdFTP1.ChangeDir(FilePhatname);
URLDownloadToFile(nil, PChar(FilePhatname), PChar('D:\Benutzerftp.dat'), 0, nil);
end;