Hi,
danke !
Absturz hatte ih noch nie, es dauert zwar eine Weile bis die Datei geladen wurde.
Fals jemand Ideen aht, wie ich das hinzufügen beschleunigen kann (am besten mit ID3-Tag), postet den Code bitte. So sieht meiner aus:
Delphi-Quellcode:
var
f: PChar;
i : Integer;
begin
if not op.Execute then Exit;
for i := 0 to Op.Files.Count-1 do begin
f := PChar(Op.Files.Strings[i]);
sams[samc] := BASS_SampleLoad(FALSE, f, 0, 0, 3, BASS_SAMPLE_OVER_POS);
if sams[samc] <> 0 then
begin
playlist.Items.Add(f);
Inc(samc);
end
else
Application.MessageBox('Fehler beim Hinzufügen von der Datei!', 'dAmp', mb_OKCancel +
mb_DefButton1 + MB_ICONQUESTION);
end;