Erstmal besten Dank. Der Code läuft auf jeden Fall schonmal schneller, als mein alter.
Nach ein paar Problemen habe ich es am laufen. Das mit dem ListBox.Style = lbVirtual muss ich mir mal in Ruhe anschauen. Zugegebenermaßen bin ich noch nicht ganz fit in Delphi, mache das seit 5 Wochen. Muss mir zwischendurch immer wieder die Grundlagen durchlesen.
Playlist = TStringList
PlayList_ListBox = TListBox
Delphi-Quellcode:
procedure Tmediaarchiv_frm.Dir_to_PlayList;
var ext: TStringList;
dir: string;
begin
dir := mediaplayer_frm.spSkinSelectDirectoryDialog1.Directory;
ext := TStringList.Create;
ext.Sorted := false;
ext.Add('.mp3');
ext.Add('.wav');
Flag_File_search_stop := false;
AllFilesWithExtension(dir,Playlist,ext);
ext.Free;
end;
Für die DateiMask werde ich das noch umschreiben, so das der User das in meiner Config selber einstellen kann.
Delphi-Quellcode:
procedure Tmediaarchiv_frm.AllFilesWithExtension(folder: string; s, Ext: TStrings);
var
sr: TSearchRec;
begin
folder := IncludeTrailingPathDelimiter(folder);
if FindFirst(folder + '*.*', faAnyFile, sr) = 0 then
try
repeat
Application.ProcessMessages;
if (sr.Name = '.') or (sr.Name = '..') then
Continue
else
if (sr.Attr and faDirectory) = faDirectory then
AllFilesWithExtension(folder + sr.Name, s, ext)
else
begin
if ext.IndexOf(ExtractFileExt(sr.Name)) <> -1 then
s.add(folder + sr.Name);
if ext.IndexOf(ExtractFileExt(sr.Name)) <> -1 then // <--- das musste so 2x rein, weil er sonst die Mask in der ListBox nicht beachtet hat...keine Ahnung warum !
mediaplayer_frm.PlayList_ListBox.Items.add(sr.Name);
end;
until Flag_File_search_stop or (FindNext(sr) <> 0);
finally
FindClose(sr);
end;
end;
Was ich wohl verwunderlich finde, ist das wenn ich mehrmals die gleichen Ordner in die Playlist/Listbox adde, dann spielt der die angefügten Dateien, welche es oben in der der Liste schon gibt nicht ab. Hat aber nichts mit deiner Procedure zu tun, war vorher schon so.