alle bilder eines ordners auf einem ftp-server anzeigen und

[aaron]

wie kann ich alle bilder eines ordners auf einem ftp-server in einer listbox anzeigen, wenn ich dann auf eines der bilder klicke soll es in einem timage sichtbar werden, wer weiss rat?

[Chewie]

Du müsstest zunächst mal Kriterien festlegen, welche Dateien überhaupt ein Bild darstellen. Da kannst du entweder nach dem Dateinamen gehen oder jede Datei öffnen und einen Bildheader suchen. Da FTP aber kein Öffnen unterstützt und du die datei runterladen müsstest, bleibt wohl nur erstgenannte Lösung. Um die Dateien auf einem FTP-Server zu durchforsten, kannst du z. B. die Indy-Komponenten benutzen.
Um das Bild dann in einem TImage-anzuzeigen, brauchtst du es nur noch runterzuladen.

[aaron]

es sollen nur *.jpg sein...
wie funktioniert das auflisten mit indy, nur jpg?

[Chewie]

Zitat von aaron:

wie funktioniert das auflisten mit indy, nur jpg?

Ich hab noch nie mit der Indy-FTP-Koponente gearbietet, kann dir hier also nicht weiterhelfen. Doch bei den Indys sind Demos dabei, die könnten dir helfen.

[aaron]

ist ok, danke...habe grad was gefunden
http://www.tutorials.delphi-source.d.../file004.shtml

[aaron]

müsste wissen, wie ich mir nur die dateien mit der dateiendung *.jpg anzeigen lassen kann...

[Christian Seehase]

Moin Aaron,

auf dem von Dir selbst genannten Link befindet sich folgender Satz:

Zitat von Aktuellen Server-Verzeichnisinhalt in Listbox anzeigen:

Zwei weitere Parameter sind optional: eine Filtermaske für Dateinamen (Standard ist '', also alle Dateien),

Das sollte Deine Frage beantworten.

[aaron]

hmm
wie schreibe ich das dann?

Code:

IdFTP1.List(DirectoryListBox.Items);

Code:

IdFTP1.List(DirectoryListBox.Items,*.jpg???);

[APP]

Hallo,
im Source von IdFTP.pas steht:

Delphi-Quellcode:

procedure TIdFTP.List(ADest: TStrings; const ASpecifier: string = '';      {Do not translate}
 const ADetails: boolean = true);
...

daher sollte

IdFTP1.List(DirectoryListBox.Items,'*.jpg'); oder

IdFTP1.List(DirectoryListBox.Items,'jpg'); genügen (einfach ausprobieren).

[aaron]

danke für deine beispiele, es funktioniert...