Dark Player II

[Nils_13]

Dark Player II

Mit einiger Verspätung ist der Player nun doch fertig geworden.

Informationen

Haupt
- Dies ist der Player
- Audio (.mp3,.wav,.wma,.aiff,.aif,.ogg)
- Video (.mpeg,.mpg,.wmv,.avi,.dat)
- Visualisierungen (Spectrum Lines, Spectrum Solid, Ocilloscope, Image Bumper und X)
- Playlistenformate M3U, ASX und DPL
- Tag-Editor
- Equalizer
- Ansichtsoptionen
- Transparenz
- Rekursive Suche

Radio
- Kategoriesystem (über Rechtsklick auf ComboBox einstellbar)
- Visualisierungen
- Transparenz

CD
- Laufwerk wählbar
- Transparenz

Manager
Der Manager verwaltet alle Programme, abgesehen vom Player, um zusätzliche Optionsmenüs zu sparen

FileManager
- Programm ausschließlich zur Verwaltung von Dateizuweisungen
- Icon für das gewählte Format frei wählbar
- Rekursive Suche

Playlist Converter
- Programm zur Konvertierung von Playlisten
- Formate M3U, ASX und DPL werden unterstützt
- Rekursive Suche

Skin Editor
- Programm zum erstellen und editieren von Skins
- Dateiformat DPSF
- Rekursive Suche

Skins
- Blue
- Black
- Gray
- Classic
- Red

Fehler
- Dateiverknüpfung mit Skin Editor fehlerhaft, obwohl gleicher Code, wie bei Haupt
- Falls Tags noch nicht existieren, können sie nicht erstellt werden
- Buttons 'Add' bis 'Save playlist: Dialoge öffnen im Hintergrund

Rot=lange Dauer Grün=Geringe/Normale Dauer Blau=Unbestimmte Dauer

Ihr könnt gerne Hinweise zur Fehlerbeseitigung geben ().

Beseitigte Fehler
- Buttons 'Add' bis 'Save playlist: Dialoge öffnen im Hintergrund
- Buttons 'Next' bis 'Back' erzeugen eine Meldung 'Division durch null', wenn
Playliste leer ist.
- Button 'Tags' liefert eine Zugriffsverletzung, wenn Playliste leer ist.
- Man weiss nicht was die Regler in Ihrer Funktion bewirken
- Teilweise keine funktionalen Beschriftungen/ Keine Labels/Hints
- Unlogische Anordnung
- Pause-Knopf unterbricht die Wiedergabe, nochmal Pause setzt die Wiedergabe fort (Eine Umbenennung in 'Continue' wär gut)
- kein Focus auf Eingabezeile (direct open)
- OK möglich, obwohl keine Auswahl (direct open)
- Suche bricht nicht ab bei "Ok" oder "Cancel" (Browser)
- Bei Auswahl des Transparency.Modus ist keine Überprüfung auf sinnvolle Werte vorhanden (Settings)

Arbeiten
- Sprachsystem
- Beseitigen der unklaren Fehler (siehe letzter Post)

Anleitung
Siehe Anhang.

Lizenz
Dark Player II

Es ist nicht erlaubt, das Programm ohne Erlaubnis des Teams zu verbreiten.
Dieses Programm ist vollkommen kostenlos. Wird diese Lizenz nicht eingehalten, gibt es Konflikte mit dem DarkPlayer-Team.

Copyright 2006-2007 by Nils D., Fabian N., Christian K. and Heiko Thiel
Alle Rechte vorbehalten.

Dark Player II

It is not allowed to pass on this program without a permission from the team.
This program is totally free. If this license would not be kept it would be give conflicts with the DarkPlayer-Team.

Copyright 2006-2007 by Nils D., Fabian N., Christian K. and Heiko Thiel
All rights reserved.

Fröhliches Testen, irgendeinen Fehler übersieht der Entwickler immer.

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