String parsen

[Neutral General]

Zitat von shmia:

Zitat von Neutral General:

Und das andere Problem ist das z.B hier die letzte Zeile... 'Programme' ist ein Ordner aber es wird als eine 0 KB Datei angezeigt...

Dein FTP-Server hat einen Bug! Einfach eine bessere Version oder einen anderen FTP-Server benützen.
Es gibt Übrigens viele verschiedene Formate (Unix, Windows, Netware) mit denen die Verzeichnisliste vom Server geliefert wird.
Ein guter FTP-Client benützt hier eine automatische Erkennung des Servertyps.

Is ja en normaler Indy-FTP Server:

Delphi-Quellcode:

//
    if FindFirst(Path,faAnyFile,SR) = 0 then
    begin
     repeat
        Item := ADirectoryListing.Add;
        Item.FileName := SR.Name;
        Item.Size := SR.Size;
        if SR.Attr = faDirectory then
         Item.ItemType := ditDirectory
        else
         Item.ItemType := ditFile;
      end;
      until FindNext(SR) <> 0;
     FindClose(SR);
    end;

Das is jetzt ein kleiner Ausschnitt wie die Dateien freigegeben werden und wo festgesetzt wird ob Ordner oder nicht...
Wenn dann ist da ein Fehler.. mom heißt das nicht if SR.Attr and faDirectory = faDirectory ? Mal ausprobieren.. Aber das andere Problem ist ja immernoch da

Und der Abstand zwischen dateigröße und datum (bei dateien) ist nicht immer gleich groß... kommt auf die länge der Dateigröße an -.-

EDIT: Ja mit SR.Attr and faDirectory klappts richtig..