Dark Player II

[Nils_13]

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;