Da es noch irgendwie zum Thema passt, wie realisiere ich es recht einfach das verschiedene Formate hinzufügen kann ohne das der Vorgang viel mehr Zeit braucht.
Delphi-Quellcode:
procedure TPlayList.FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);
var
SR: TSearchRec;
aMediaItem: TMediaItem;
begin
RootFolder := IncludeTrailingPathDelimiter(RootFolder);
if Recurse then
if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
try
repeat
if SR.Attr and faDirectory = faDirectory then
if (SR.Name <> '.') and (SR.Name <> '..') then
FindAllFiles(RootFolder + SR.Name, Mask, Recurse);
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
try
repeat
if SR.Attr and faDirectory <> faDirectory then
begin
//FList.Add(RootFolder + SR.Name);
aMediaItem := FMediaItems.Add;
aMediaItem.Directory := RootFolder;
aMediaItem.Filename := SR.Name;
end;
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
end;
So würde ich jede Datei hinzufügen, also müsste ich da Prüfen ob es ein "bekanntes" Format ist oder gibt es eine schnellere/effektivere Lösung gerade wenn ich mal nen neues Format hinzufügen will?