Indy FTP Client problem!!!

[inout]

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.

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.)