Ich benutze folgende Routine bei meinem
FTP Client.
Delphi-Quellcode:
try
FFTPClient.Connect;
if FFTPClient.Connected then
begin
try
// nun z.B. Verzeichnis wechseln:
FFTPClient.ChangeDir('/public');
// Dateigrösse ermitteln
FFileSize := FFTPClient.Size('test.txt');
except
on e: EIdReplyRFCError do
begin
Task.Comm.Send(WM_MESSAGE_GETFILESIZE, e.Message);
Abort;
end;
end;
// und Disconnecten
FFTPClient.Quit;
end;
end;
Wenn ich den Verzeichnisnamen
/public in ein nicht existierenden Verzeichnis z.b.
/public1 umbenenne, so wird korrekterweise ein Ereignis "550 CWD failed. '/public1' : no such file or directory." ausgelöst.
Mach ich das gleiche mit dem Dateinamen
test1.txt wird kein Ereignis ausgelöst, obwohl laut der Logdatei "550 No such file." der gleiche ReplyCode 550 zurückgemeldet wird.
Habt ihr dafür eine Erklärung?
Viele Grüße,
Alois