IdFTP ListBox Inhalt anzeigen

[Schnittcher]

Hallo,

ich bin gerade dabei einen FTP Client zu schreiben, ich bin jetzt an der Stelle angekommen, dass der Inhalt in einer ListBox angezeigt wird.
Ich möchte es jetzt so machen, dass beim Klick auf einen Eintrag der Ordner gewechselt wird.

Ich habe es so versucht:

Delphi-Quellcode:

procedure TForm1.ListContentClick(Sender: TObject);
begin
IdFTP1.ChangeDir(ListContent.Items.Text)
end;

Doch leider funktioniert es so nicht. Kann mir vielleicht jemand helfen?

Gruß,
Schnittcher

[Larsi]

Delphi-Quellcode:

procedure TForm1.ListContentClick(Sender: TObject);
begin
IdFTP1.ChangeDir(ListContent.Items.Strings[ListContent.Itemindex])
end;

[Klaus01]

Hallo,

procedure TForm1.ListContentClick(Sender: TObject);
begin
IdFTP1.ChangeDir(ListContent.selected.caption)
end;

Grüße
Klaus

[edit] war im falschen Film [/edit]

[Schnittcher]

Hallo,

das funktioniert auch nicht.

Im Anhang ein Bild.

Gruß,
Schnittcher

[Klaus01]

.. steht in der Lixtbox der komplette Pfad in etwas so?

/pub/index/wasWeißIch

Grüße
Klaus

[Schnittcher]

Hallo,

nein wie kann ich den Pfad auslesen?

Gruß,
Schnittcher

[Luckie]

Merken.

[Klaus01]

.. wie füllst Du denn die Listbox?

Grüße
Klaus

[Schnittcher]

Hallo,

so:

Delphi-Quellcode:

procedure TForm1.cmdConnectClick(Sender: TObject);
begin
  IdFTP1.Host := edHost.Text;
  IdFTP1.Username := edBenutzername.Text;
  IdFTP1.Password := edPasswort.Text;
  IdFTP1.Connect;
  if IdFTP1.Connected then
    cmdConnect.Enabled := false;
  cmdDisconnect.Enabled := true;
  IdFTP1.List(ListContent.Items, '', false);
end;

Gruß,
Schnittcher

[Klaus01]

so:

idftp1.list gibt Dir nur die Dateien und Verzeichnisse des aktuellen Ordners zurück.
In diesem Fall den Inhalt des root Verzeichnisses.

Wenn Du die List so einliest und direkt so weiterverarbeitest
entgehen Dir die Details die Dir angeben welcher Eintrag eine Datei
und welcher Eintrag ein Verzeichnis ist.

Grüße
Klaus

[Schnittcher]

Hallo,

könntest du mir dann vielleicht ein Beispiel geben?

Ich habe schon gesucht aber nichts mehr gefunden. :-(

Gruß,
Schnittcher

[jfheins]

Hmmm ... der Thread ist eigentlich relativ leicht zu finden: http://www.delphipraxis.net/internal...ighlight=idftp

Ausschnitt:

Delphi-Quellcode:

Ftp.List (nil, '-a', True); 

// Machwas mit Ftp.ListResult

[Klaus01]

Welche delphi Version und welche Indy Version nutzt Du denn?

Ein Auszug aus der Indy 10 Hilfe:

Delphi-Quellcode:

procedure List(
    ADest: TIdStrings, 
    const ASpecifier: string = '', 
    ADetails: Boolean = True
); overload;

• Mask Usage
  *.* All files in the current directory.
  * All directory entries in the current directory.
  *. All files regardless of extension in the current directory.
  A??.txt All text files that have a 3-character name starting with the letter 'A'.

Du könntest Dir dann zwei separate Listen erzeugen lassen.
Eine mit den Dateien und eine mit den Verzeichnissen.

Für die Listbox kannst Du sie dann ja wieder zusammenführen.
Vor den Verzeichnissen kannst Du ja dann ein / einfügen.

Grüße
Klaus