Zitat von
cl9wn
Ich hab grad probiert in deinen Code einzubauen, dass beim Aufruf der Funktion ne ShowMessage kommt, falls auf dem FTP keine dateien liegen, klappt aber irgendwie nicht... Kannste mir da auch nochma unter die Arme greifen?
Die zweite Angabe war in der Tat die Dateigröße. Hier hast du ein Beispiel mit sämtlichen Angaben einschließlich Datum.
Code:
function FileTimeToStr(const AFileTime: TFileTime): string;
var
SystemTime: TSystemTime;
begin
Result := '';
if FileTimeToSystemTime(AFileTime, SystemTime) then
Result := DateTimeToStr(SystemTimeToDateTime(SystemTime));
end;
var
I: Integer;
A: TFTPFiles;
begin
if GetFTPFileList('ftp.microsoft.com', 'anonymous', 'somepass', 'bussys', A) then
begin
if Length(A) = 0 then
ShowMessage('Keine Datei(en) gefunden.')
else
for I := Low(A) to High(A) do with A[I] do
ShowMessageFmt('Dateiname: %s%sDateigröße: %u bytes%sErstelldatum: ' +
'%s%sLetzter Zugriff am: %s%sÄnderungsdatum: %s%sAttribute: %u',
[FileName, sLineBreak, FileSize, sLineBreak,
FileTimeToStr(CreationTime), sLineBreak,
FileTimeToStr(LastAccessTime), sLineBreak,
FileTimeToStr(LastWriteTime), sLineBreak, Attributes]);
end
else
ShowMessage('FTP-Verbindung fehlgeschlagen.');
end;
(Nicht wundern, wenn eines der Daten (?) komisch erscheint (z.B.: 01.01.1961), das heißt einfach, dass es diese Datumsangabe auf dem FTP nicht gibt.)