Hallo,
ich lade mit diesem Code per IdFTP eine Zip Datei vom Server herunter.
Delphi-Quellcode:
with IdFTP1 do try
Username := UserIDEdit.Text;
Password := PasswordEdit.Text;
Host := FtpServerEdit.Text;
Connect;
finally
end;
IdFTP1.ChangeDir(EdSrcDir.Text);
Name := EdSrcFile.Text;
IdFTP1.TransferType := ftBinary;
try
IdFTP1.Get(Name, concat(EdSrc.Text+Name), false, false);
finally
IdFTP1.Disconnect;
end;
Mit BDS2006 funktionierte das auch problemlos.
Jetzt mit Delphi2009 kann ich das erzeugt Zip Archiv nicht mehr lesen.
Es ist auch größer, als die Ursprüngliche Datei!
any ideas?
Danke