Einzelnen Beitrag anzeigen

bluescreen25

Registriert seit: 27. Nov 2005
Ort: Geldern
229 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: schnellere Procedure gesucht

  Alt 19. Dez 2005, 22:46
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.
  Mit Zitat antworten Zitat