Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by p0w3r5tr34m3r,
13. Feb 2007
habe aber nicht das aktuelle verzeichnis geändert.. lediglich habe ich der var dir einen wert zugewiesen ;)
hier mal die ganze prozedur ^^
var
item: TListColumn;
tracks: TListItem;
sr: TSearchRec;
i: integer;
lArtist, lTitle, lAlbum, lYear, lComment, lTrackNo: string;
dir: string;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by p0w3r5tr34m3r,
13. Feb 2007
in meinem Programm klappt es aber wunderbar...
...
if FindFirst(dir+'\*.mp3', faAnyFile, sr) = 0 then begin
repeat
if ReadID3v2Tag(sr.Name, lTitle, lArtist, lAlbum, lYear, lComment, lTrackNo) then begin
...
Ich nutze übrigens die Komponente von muetze
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by p0w3r5tr34m3r,
13. Feb 2007
stream := TFileStream.Create(dir + sr.name, fmOpenRead or fmShareDenyWrite);
sr.name würde vollkommen reichen weil es schon den kompletten Pfad zurückgibt
Mit freundlichen Grüßen