Dark Player II

[Nils_13]

Hi,

hab eine neue Version hochgeladen: ich hab jetzt einen besseren Skin drauf, man kann aber auch selbst Skins 'malen' und sie laden, falls die Hintergrundfarbe nicht stimmen sollte kann man sie auch verändern. Hab wenig Zeit immoment, daher kann dAmp die Einstellungen noch nicht speichern.

[PierreB]

Moin,

ich bin mal kurz über dein Programm geflogen:
Design sieht schon viel besser aus !
Eventuell könntest du nen Öffnen-Button machen um einzelne Dateien abzuspielen
Ich weiß nicht was das ist, aber wenn ich Lieder zur Playlist hinzufügen will, stürzt das Programm ab
Die Labels der Playlist (Hinzufügen, Abspielen) könntest du durch Buttons ersetzen
die Visualisierungen sind gut
Wenn ich auf den Play-Button klicke, kann ich eine Datei öffnen und sie auch abspielen. Die TrackBar funzt aber nicht.

So das wars erstmal.

[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;

[PierreB]

Also abgestürzt es nicht das richtige Wort, nachdem ich Dateien zur Playlist hinzufügen will reagiert es nicht mehr und im Taskmanager steht: 'Keine Rückmeldung'. Dann hab ich es abgeschossen.

[Nils_13]

Warte dann einfach einen Moment, hast du XP? Falls es sich wirklich aufgehängt hat kannst du mir ja beim Code helfen, liegt vielleicht daran.

[Red_Dragon]

so sieht meiner aus

Delphi-Quellcode:

      Wiedergabeliste.Items.Add(OpenDialog1.Filename);
      Wiedergabeliste.ItemIndex := Wiedergabeliste.Items.Count-1;
      Player.PlayFile(Wiedergabeliste.Items[Wiedergabeliste.ItemIndex]);

[PierreB]

Zitat von Nils_13:

Warte dann einfach einen Moment, hast du XP? Falls es sich wirklich aufgehängt hat kannst du mir ja beim Code helfen, liegt vielleicht daran.

Also die CPU-Auslastung schießt auf 100% und selbst nach 1min passiert nichts mehr. Hab grad W2k am laufen, wieso was hat das mit XP zu tun ?

[Nils_13]

Da hab ich schon viel Erfahrung gesammelt ... Also liegts am Code, weiß jemand wie man das anders machen kann ?

[Nils_13]

Da hab ich schon viel Erfahrung gesammelt ...
thx Red_dragon!

Irgendwie wurde es 2-mal abgesendet

@red_dragon: ich öffne es und spiele es ab, ist aber keine Playlist ...

[Gandalfus]

Zitat von Nils_13:

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;

Also durch das aufrufen von SampleLoad wird jedesmal die gesamte Datei in den Speicher kopiert. Das alleine ist schon unschön. Besser wird es noch wenn man das mehrmals hintereinander macht ohne den Speicher wieder freizugeben (Stichwort BASS_SampleFree). Keinwunder das das lange dauert....
Also algemein zum abspielen nimmst du BASS_StreamCreateFile.