FAll Entertainment Bass Player

[igel457]

Ich weiß, es gibt hier schon tausende von Playern die die Bass.dll verwenden.
Der hier ist eigentlich auch nur ein Test, den Sourcecode kann ich nicht veröffentlichen, weil ich eigene Komponenten für die Bass.dll verwende.

Der Player ist, so finde ich es auf jeden Fall, recht schick, kann halt alle Formate die Bass.dll kann.
Über lob freue ich mich!

Getestet wurde das Programm nur unter WinXP.

Instalation:

Zum Installieren einfach in ein beliebiges Verzeichnis entzippen.

PS: Das Programm benuzt für seine Form keine Transparenzfarbe, sondern macht das über Clipping.

Neue Version! 1.3

Ich hatte mal wieder lust an meinem Player weiter zu schreiben, das kann er nun:

- Anzeige des Musiktitels
- Auslesen von ID3v1 Tags
- Playlists
- Unterstüzung von XP-Themes
- Starten über den Explorer
- Nur eine Instanz des Programms zulassen


Neue Version! 1.4

- Equalizer
- Spectrum Analyser
- Im TNA




Neue Version! 1.5

- Skins-Support

Bald...
- Skins neu in Version 1.5
- Import von *.Pls und *.m3u
- Einstellungen
- Repeat
- Random

[Nils_13]

Man setzt das Lied durch einen weiteren Klick auf den Pausebutton fort.
Die Trackbar bewegt sich nicht.
Sonst ist er aber gut :thumb:

[sniper_w]

Ist das so gewollt oder nur ein Schönheitsfehler...

[igel457]

Ja stimmt...
Ich habe vorm Compilieren ausversehen eine Zeile gelöscht... :wall:
Ich füge oben einen neuen Download an.

Danke für den Tipp!

Ich wäre außerdem echt froh, könnte mir jemand sagen wie man aus BASS_StreamGetLength(hstream); die Länge in Millisekunden bekommt.

@sniper_w Bei mir ist es nicht so. (Ist doch nur im Minimierten zustand?)
Ich finde es aber ganz schön :P

[Gandalfus]

dafür gibts ne function bass_bytetosecound() oder so ähnlich.

[igel457]

Danke!

Der Name stimmt zwar nicht ganz,
es heißt nämlich

Delphi-Quellcode:

BASS_ChannelBytes2Seconds(hstream,pos); //Wandelt eine Position in Sekunden um

Ich baue es gleich in mein Programm ein!

Danke Gandalfus! :thumb:

[fred.reichbier]

Kannst du vllcht einen Screenshot veröffentlichen?

[igel457]

Wurde gemacht!

[turboPASCAL]

Hi igel457,

gefällt mir... aber ich möchte dir noch ein par Vorschläge machen:

• das MainIcon muss nicht unbedingt 8 verschiedene Ausführungen haben, 16x16 bis 48x48 sollten eigentlich für alle Fälle reichen (ein wenig Bytes sparen ;-) ) damit solltest du dann unter 500KB kommen
• Irgend wie sind die drei Buttons komisch, hast du da zwei jeweils Images auf einander gelegt ?
  Ich würde die Play-, Pause- und Auswurf(Oeffnen)Buttons mit eigenen Proceduren wie zB. OnMouseOver (WM_ONMOUSEENTER) usw. abfangen und dann zeichnen. Hire in der DP ist auch irgend wo ne schöne Unit dazu
• die zwei Buttons in der Titelleiste würde ich auch noch als Bitmaps, wie zB. der Play Button machen
  (gibt 'nen besseren Look ;-) )
• Ich wünsche mir noch einen Stopp Button (und Playliste ?)
• Der Skin könnte auch noch ein bissel Farbe vertragen wie hast du den gemacht (CreateRoundRectRgn usw.) ?

MfG.

[igel457]

@turboPASCAL
ich werde mich darum kümmern wenn ich Zeit habe, aber Momentan habe ich noch andere Projekte .
Danke für die Vorschläge. :thumb:

PS.: Mit welchem Programm kann ich die einzelnen ICOs aus den ICOs extrahieren?

[turboPASCAL]

Zitat:

Zitat von igel457

PS.: Mit welchem Programm kann ich die einzelnen ICOs aus den ICOs extrahieren?

Mit dem "Image Editor" (leider nicht in der D2005 PE) ist bei Delphi mit dabei Projectname.res öffnen und dann...

:gruebel: wie hast du sie denn hineinbekommen ? Iconeditor ? dann kann man dort auch löschen...

[Speedmaster]

Ähm, die Buttons sehen mir doch sehr nach Quicktime oder sowas aus, ich würde dir Raten diese schnellstens Rauszuschmeissen!

[igel457]

@speedmaster Du hast schon recht... :oops:
Ich würde die auch gerne raus haben...
Ich bin halt mal nicht so der Grafiker.
Kennt ihr 'ne Seite wo es kostenlos Buttons gibt?
Aber ich baue sofort andere ein, als profisorium bis ich Freeware Buttons habe.

[igel457]

Gut! Ich hab eine neue Version hochgeladen...
Ich fühle mich gleich viel besser. :roll:
Die Button passen sogar besser find ich! :-D

[FriFra]

Zitat:

Zitat von igel457

profisorium

Naja, du Buttons sind ja eher ein Amateurisorium :lol: , sorry aber nach deiner Wortkonstruktion (oder ist das die neue Rechtschreibung? :gruebel: ) konnte ich mir das nicht verkneifen :-D
Im Ernst, ich finde die runden Buttons etwas zu eckig, sie sollten etwas smoother sein :???:

Der Player sieht schon ganz gut aus :thumb: . Es wäre schön, wenn man auch Playlisten, bzw. komplette Ordner abspielen konnte :roll:

[igel457]

Zitat:

wie hast du sie denn hineinbekommen ? Iconeditor ? dann kann man dort auch löschen...

Das sind Freeware Icons von Leons Icon Archiv. Die hab ich nicht selbst gemacht. :oops:
Und Außerdem habe ich kein Delphi 2005, weder PE noch sonst irgendwas... :? (schön wäre es aber!)

@FriFra Ich hab nur PicturePublisher! (Und zu meiner Rechtschreibung... :roll: Ich sag nix. Danke für den Tip);

[turboPASCAL]

Zitat:

Zitat von igel457

Zitat:

wie hast du sie denn hineinbekommen ? Iconeditor ? dann kann man dort auch löschen...

Das sind Freeware Icons von Leons Icon Archiv. Die hab ich nicht selbst gemacht. :oops:

Habe den Link in meine Sammung auf Grund gelegentlicher Faulheit aufgenommen...

Freeware Iconeditor: http://www.delphipraxis.net/internal...=410617#410617

Zitat:

Zitat von igel457

Und Außerdem habe ich kein Delphi 2005, weder PE noch sonst irgendwas... :? (schön wäre es aber!)

:wiejetzt: Nix Delphi ? :gruebel:

[Ultimator]

Zitat:

Zitat von turboPASCAL

Zitat:

Zitat von igel457

Und Außerdem habe ich kein Delphi 2005, weder PE noch sonst irgendwas... :? (schön wäre es aber!)

:wiejetzt: Nix Delphi ? :gruebel:

Er meint, er hat kein Delphi 2005, sondern eine andere Delphi-Version :zwinker:

[igel457]

Neue Version!

Nun auch unterstüzung von PlayLists!!!!

Siehe erster Beitrag!

[igel457]

Version 1.4!

Neuer Equalizer!

(Siehe 1. Beitrag)

[turboPASCAL]

Soweit, so schön. Es funktioniert soweit fast alles, nur die wiedergabe von *.mp2-Dateien läuft nicht.
Der Screen ist, wie soll ich sagen, ein wenig dünn. Auch würde ich dem EQ einen Reset-Button verpassen, damit man ihn schnell wieder auf den Normalwert zurücksetzen kann.
Den Minimieren- und Schliessenbutton würde ich auch in dem Syle des EQ's machen.

Warum ist der Player so verflixt gross (924 KB)?

Dennoch eine schöhne Arbeit bzw. Player. :wink:

[igel457]

Zitat:

Zitat von turbopascal

Den Minimieren- und Schliessenbutton würde ich auch in dem Syle des EQ's machen.

Das kommt... Ich baue gerade ne Art Skin-System ein

Zitat:

Zitat von turbopascal

Warum ist der Player so verflixt gross (924 KB)?

Das wird sich mit meinem Skin-System hoffentlich ändern...

Zitat:

Zitat von turbopascal

Auch würde ich dem EQ einen Reset-Button verpassen, damit man ihn schnell wieder auf den Normalwert zurücksetzen kann.

Einfach auf die schwarze Linie klicken!

Zitat:

Zitat von turbopascal

Dennoch eine schöhne Arbeit bzw. Player. Wink

Danke!!!

[igel457]

Neu! Version 1.5

Skinsystem!

Mit dem neuen Skin-System kann man das aussehen des Players an seine eigenen bedürfnisse Anpassen.
Dazu gibt es den Skin-Editor.

Noch kann man die Position der Elemente nich verändern, sondern nur die Bilder austauschen. Um ein einen neuen Skin zu laden, die entsprechende *.fsf Datei in das Player-Verzeichnis Kopieren und in skin1.fsf umbennen.

Ich habe einen Skinn gebastelt der stark an Winamp erinnert, da dies als meine Vorlage diente. Dieser Skin ist unter dem Dateinamen Winampskin.fsf in der zip datei am Anfang.

Leider bin ich mir in der Rechtslage nicht ganz im klaren, falls dieser Skin überhaupt veröffentlicht werden darf. Da ich aber kein Geld damit verdienen möchte, denke ich das das Okay ist. Falls jemand anderer Meinung ist, werde ich den Skin umgehend aus der Zip-Datei entfernen!