Verzeichnisse in Listbox auflisten

[Lamy]

Zitat von SirThornberry:

genau, das ist die funktion die s14 gepostet hat. bei seiner variante musst du auch jede zeile nochmal in eine stringliste aufsplitten. Man könnte auch noch die unperfomantere Variante nehmen und sich jedes Element extra holen. Hab da glaube irgendwann mal ne funktion gepostet die "splitOutIndex" oder so hieß. Allerdings ist die funktion noch nicht geschwindigkeits optimiert...

????

Naja, ich glaub' ich nehm dann doch lieber das was du gepostet hast, ist zwar länger aber dafür kapier ichs einigermaßen ^^

Dankööö!!

[Lamy]

Och nööö - zu früh gefreut

Delphi-Quellcode:

PROCEDURE TForm3.ChangeDir(DirName: STRING);
VAR
  stringliste: TStringList;
  i: Integer;
BEGIN
  Stringliste := TStringList.Create; // Stringliste erzeugen
   splitString('Part1|Part2|Part3', '|'; Stringliste);

  TRY
    IdFTP1.ChangeDir(DirName);
//    IdFTP1.TransferType := ftBinary;
    Form1.Listftpdir.Items.Clear; // Verzeichnisanzeige leeren
    IdFTP1.List(Stringliste);
    FOR i := 1 TO Stringliste.Count DO
      WITH Form1.Listftpdir.Clumns[0] DO
        Caption := Stringliste.Strings[i - 1];
  FINALLY
    Form1.EDftpverzeichnis.Text := IdFTP1.RetrieveCurrentDir; // Aktuelles Verzeichnis in die Combobox zur Verzeichnisauswahl schreiben
    Stringliste.Free;
  END;
END;

Oh mann ich bin so saudumm, ich hab wirklich keinen Schimmer wie das zum Teufel nochmal zu funktionieren hat ...

Mir ist schon klar, dass man "Part1,2" etc. durch irgendwas ersetzen muss aber durch was?

[Benedikt]

Hi,

du nutzt ja scheinbar die Indy-Komponenten um die Daten per FTP abzurufen, oder?
Warum machst du dir dann diesen Aufwand die FTP-Dateiliste selber zu bearbeiten und benutzt nicht einfach idFTP.DirectoryListing (ab Indy9).

Das liefert dir sämtliche Daten über die Dateien "zerpflückt" zurück, die Indy-Demos machen das ebenfalls darüber.

Beispiel:

Delphi-Quellcode:

idFTP.List(FileList);

for i:=0 to idFTP.DirectoryListing.Count-1 do
   ListBox1.Items.Add(idFTP.DirectoryListing.Items[i].Filename);

[Lamy]

Hey!

DankedankedankeDankedankedankeDankedankedanke!

Da kommt nur aber nen Fehler
Klick

[SirThornberry]

nicht
for i := 1 to stringliste.count do sondern
for i := 0 to stringliste.count - 1 do da das erste item der index 0 ist

[alcaeus]

@Lamy: Wenns geht füge die Bilder doch als Anhang hinzu, vor allem wenn sie so schön breit sind

[Lamy]

Ok, sorry, wird nicht wieder vorkommen

[alcaeus]

Kein Problem...ich musste es auch mal lernen

PS: Poste den FTP-Client hier sobald er fertig ist, das Preview von vor ein paar Tagen sah interessant aus...

[Lamy]

Zitat von alcaeus:

Kein Problem...ich musste es auch mal lernen

PS: Poste den FTP-Client hier sobald er fertig ist, das Preview von vor ein paar Tagen sah interessant aus...

Du willst doch bestimmt Betatester werden *grins*

[Benedikt]

Zitat von Lamys Code:

for i:=0 to Stringliste.Count-1 do

Ich würde auch hier schon auf DirectoryListing zugreifen, wie in meinem Beispiel oben, da sich der Count der Stringliste und der von DirectoryListing unterscheiden können.

Das kommt daher weil einige FTP-Server noch was mitsenden, was in DirectoryListing rausgenommen wird, in der Stringlist jedoch natürlich noch drinsteht.