| Autor |
Beitrag |
teamrocket0
 
Beiträge: 177
Erhaltene Danke: 1
Win ME, Win XP, Win 7, Win 10
Delphi 7, 10.2 Tokyo
|
Verfasst: Do 03.08.06 14:36
Hallo.
Ich habe jede Menge mp3-Dateien auf meinem Rechner. Die sollen alle auf DVD und habe mir gedacht das ich die katalogisieren sollte. Dafür habe ich mich für HTML entschieden und brauche jetzt von jeder Datei einen Hyperlink. Das Programm was die Hyperlinks aus einigen Edit-Feldern zusammensetzt ist schon fertig. Jetzt müsste ich nur noch die Dateinamen auslessen können und irgendwo in das Programm laden. Eine Anzeige in einem Edit-Fenster oder Label würde ja schon reichen.
Danke für jede hilfreiche Antwort.
|
|
ManniTwo
Beiträge: 46
Win XP SP III, Ubuntu 8.04, Debian 5.0
Delphi 5 Pro; Delphi 2005; C++,C# (VS 2005); Java, Ruby (Eclipse)
|
Verfasst: Do 03.08.06 14:53
Also einfach eine Dateisuche?
Da könnten Luckies DriveTools helfen
www.delphi-forum.de/...highlight=drivetools
oder einfach mal im Forum oder der Delphi-Hilfe nach "FindFirst" suchen.  _________________ Wer andern eine Bratwurst brät, der hat ein Bratwurst-Brat-Gerät, oder anders:
  Delphi-Quelltext
1:
| if Self.BraetAndernEineBratwurst then Self.HasBratwurstBratGeraet := true; |
|
|
teamrocket0 
Beiträge: 177
Erhaltene Danke: 1
Win ME, Win XP, Win 7, Win 10
Delphi 7, 10.2 Tokyo
|
Verfasst: Do 03.08.06 15:31
Hallo.
Man, knapp 40 Minuten im Forum und schon eine Andwort...
...Hervorragend.
OK, ich werde mir das mal ansehen und einiges davon ausprobieren.
Dank für deinen Post!
|
|
teamrocket0
Beiträge: 177
Erhaltene Danke: 1
Win ME, Win XP, Win 7, Win 10
Delphi 7, 10.2 Tokyo
|
Verfasst: Fr 04.08.06 15:20
Ooha. Das ist mir entschieden zu viel aufwand.
Einfach nur Ordner auswählen, und die Dateinamen einlesen.
Am besten in einem Memo. Jeder Name eine Zeile.
Aber trotzdem Danke.
|
|
azubi_20
Beiträge: 593
WinXP SP2, Ubuntu 8.4
D7 Enterp., D2005 Prof., Java (Eclipse 3.4.0)
|
Verfasst: Fr 04.08.06 15:39
 teamrocket0 hat folgendes geschrieben: | | Ooha. Das ist mir entschieden zu viel aufwand. |
ok, man merkt dass du das noch nicht lange machst. Aber kein Problem, hat ja jeder mal angefangen.
also die Unit die ManniTwo dir im Hyperlink gezeigt hat in dein Projekt einbinden.
Dann in deinem Programm nen Edit rein, wo du den Pfad eingibst und nen Memo wo du ausgibst.
Dann vieleicht nen Button um das ganze zu starten.
Im OnClick des Buttons folgendes :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| InitFindAllFiles;
FindAllFiles(edit1.text; 'mp3'; true);
for i := 0 to cntFoundFiles-1 do
begin
memo1.lines.add(FoundFiles[i]);
end; |
Hab das jetzt nicht getestet, müsste aber so laufen 
|
|
teamrocket0
Beiträge: 177
Erhaltene Danke: 1
Win ME, Win XP, Win 7, Win 10
Delphi 7, 10.2 Tokyo
|
Verfasst: Di 13.02.07 21:07
Hm.....nun gut.
Ich habe es jetzt soweit das ich die Dateinamen in einer ListBox angezeigt bekommen.
Quelle:
www.delphi-library.de/viewtopic.php?t=94
Aber wie schaffe ich es das mir nur die Namen angezeigt werden, also ohne Pfad!?
Für einen Hinweiß wäre ich dankbar!
|
|
Dunkel
Beiträge: 682
Mac OS X Snow Leopard
Xcode 3.1
|
Verfasst: Di 13.02.07 21:23
| teamrocket0 hat folgendes geschrieben: | Hm.....nun gut.
Ich habe es jetzt soweit das ich die Dateinamen in einer ListBox angezeigt bekommen.
Quelle:
www.delphi-library.de/viewtopic.php?t=94
Aber wie schaffe ich es das mir nur die Namen angezeigt werden, also ohne Pfad!?
Für einen Hinweiß wäre ich dankbar! |
Delphi-Quelltext
1:
| Dateiname:= ExtractFileName(PfadPlusDateiname); |
|
|
teamrocket0
Beiträge: 177
Erhaltene Danke: 1
Win ME, Win XP, Win 7, Win 10
Delphi 7, 10.2 Tokyo
|
Verfasst: Di 13.02.07 21:38
Sehr guter Hinweiß.
Danke.
Funktioniert!
|
|
teamrocket0
Beiträge: 177
Erhaltene Danke: 1
Win ME, Win XP, Win 7, Win 10
Delphi 7, 10.2 Tokyo
|
Verfasst: Mi 14.02.07 21:56
Eine Sache noch!
Wie kann ich das anstellen das mir nur die Ordnernamen in einem Verzeichnis angezeigt werden?
|
|
teamrocket0
Beiträge: 177
Erhaltene Danke: 1
Win ME, Win XP, Win 7, Win 10
Delphi 7, 10.2 Tokyo
|
Verfasst: Sa 24.02.07 15:20
Die in der Shoutbox meinten es währe Ok wenn ich einen "Schiebeposting" mache!
Hinterlässt zwar nen miesen Eindruck aber ich kann es nicht ändern.
|
|
