Sry, leider hat es diesmal nicht so richtig funktioniert, besser gesagt es geht gar nichts mehr
Also wenn ich dort nciht ftpFile sondern ftpFullName stehen habe, dann aldet es nciht einmal eine Datei die mit ftpFullName funktioniert !
Ich habe es so eingebaut:
Delphi-Quellcode:
var
ftpFullName: string;
...
if (ftpDir = '') or (ftpDir[Length(ftpDir)] <> '/') then
ftpDir := ftpDir + '/';
ftpFullName := ftpDir + ftpFile;
{ Read size of file }
if FtpFindFirstFile(hFTP, PChar(ftpFullName), sRec, 0, 0) <> nil then
begin
fileSize := sRec.nFileSizeLow;
// fileLastWritetime := sRec.lastWriteTime
end else
begin
InternetCloseHandle(hFTP);
InternetCloseHandle(hNet);
...
Blumi