Zitat von
Guido Eisenbeis:
Hast du vielleicht ein Aufruf-Beispiel oder ein kleines Demo, bei dem auch das OnProgress gezeigt wird? Würde mich sehr freuen! Denn ich tue mir im Moment ein wenig schwer damit, was wo in welchem Thread abgerufen wird, bzw. ankommt.
Der Code basiert im Endeffekt auf
dem CodeLib-Eintrag von SirThornberry. Ich habe lediglich ein paar Definitionen umgeschmissen, um auf die "großen" Units verzichten zu können, da es sich bei SmallTune um ein reines Win32API-Projekt handelt, ohne
VCL.
Eigentlich brauchst du als externe Abhängigkeit nur die Like-Funktion.
Der relevante Teil, der den Code nutzt, findet sich hier:
Delphi-Quellcode:
procedure TMediaClass.AddFolderToDatabase(FolderPath: String);
var
Msk: TMaskArray;
begin
SetLength(Msk, 4);
Msk[0] := '*.mp3';
Msk[1] := '*.ogg';
Msk[2] := '*.wma';
Msk[3] := '*.flac';
FF := TdgstFindFiles.Create(FolderPath, msk, true);
FF.OnFilesDone := FindFilesDone;
FF.OnProgress := FindfilesProgress;
FF.StartSearch;
end;
Wobei
TMaskArray einfach ein "Array of String" ist.
OnFilesDone wird aufgerufen, wenn alle Dateien aufgelistet wurden, OnProgress bei jedem Dateifund.