Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Dateiname + FTP (https://www.delphipraxis.net/54387-dateiname-ftp.html)

japetos 3. Okt 2005 16:06


Dateiname + FTP
 
In meinem Programm verwende ich die KADaoDBTreeView Komponente. Hier wird ein Baum aus dem Inhalt einer Datenbank erstellt. Jedes Element im Baum hat eine ID (Datenbank) und zu jeder dieser Elemente gibt es Dateien deren Bezeichnung folgerdermassen aussieht. 01_datei.zip. '01' soll die ID darstellen.

Was ich machen moechte ist wenn ich auf eine Element im Baum klicke, moechte ich nur die Dateien mit der richtigen ID bekommen. Dazu muss ich den Namen der Dateien aufschluesseln. Also wissen womit der Dateiname beginnt.
Wie mache ich das, bzw. wo finde ich Infos darueber?

Danke schon mal fuers lesen. Wollte halt genau beschreiben was ich machen moechte.

marabu 3. Okt 2005 16:49

Re: Dateiname + FTP
 
Hallo,

deine Baum-Komponente wird bestimmt ein Ereignis auslösen, wenn du einen Knoten selektierst (OnSelect, OnSelection, ?). In der zugehörigen Ereignisbehandlung kannst du dann eine Datei-Spezifikation bilden:

Delphi-Quellcode:
filespec := Format('%d_*.zip', [id]);
Mit dieser Datei-Spezifikation kannst du dann deine Dateien suchen, entweder über die Routinen FindFirst(), FindNext() und FindClose() - oder auch über die Komponente FileListBox.

Grüße vom marabu

japetos 3. Okt 2005 17:05

Re: Dateiname + FTP
 
ok, musste %d in %s aendern.

Nur jetzt bekomme ich ja einfach nur eine ausgabe wie folgt:
<id>_*.zip.

marabu 3. Okt 2005 17:24

Re: Dateiname + FTP
 
Du überraschst mich - ich hatte doch gar keinen Code für eine Ausgabe beigefügt...
Das Beispiel zu FindFirst in der Online-Hilfe zu Delphi kennst du schon?
Alternativ kannst du eine FileListBox verwenden und die filespec dort als Mask eintragen.
Mir ist, als hätte ich das heute schonmal geschrieben...

Freundliche Grüße vom marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz