FTP.List fehler

[hsbc]

Hallo allerseits,

So hab's ich gemacht (mit Indy 10):

Delphi-Quellcode:

var s1, s2, s3, s4: string;
    c: integer;
    L: TIdFTPListItems;
    sl: TStringList;

  sl := TStringList.Create;
  try
    IdFTP1.List(sl);
    L := IdFTP1.DirectoryListing;
  finally
    for c := 0 to L.Count -1 do begin
      with L.Items[c] do begin
        s1 := FileName;
        s2 := IntToStr(Size);

        case L.Items[c].ItemType of             // Ord-Wert:
          ditDirectory:       it := 'DIR';      //    0
          ditFile     :       it := 'File';     //    1
          ditSymbolicLink:    it := 'SymbLk';   //    2
          ditSymbolicLinkDir: it := 'SymbLD';   //    3
          ditBlockDev:        it := 'BlkDev';   //    4
          ditCharDev:         it := 'ChrDev';   //    5
          ditFIFO:            it := 'FIFO';     //    6
          ditSocket:          it := 'Socket';   //    7
        end;
        s3 := DateToStr(ModifiedDate);
        s4 := PermissionDisplay;
      end;
    end;
  end;
  sl.free;

Funktioniert einwandfrei. Fertiges Produkt zu sehen unter: HS-Uploader im Bereich Software.

mfg
Herbert