*iBan* ( Mediaplayer )

[mr_emre_d]

Hallo liebes Community,

Heute möchte ich euch meinen Mediaplayer ("iBan") vorstellen.
Es ist ein simpler Player, der Musik(mp3, wma, wav) und Video(wmv, asf) Dateien abspielen kann

Das ist mein erster Upload :angel:

Akso, eines sollte ich wahrscheinlich noch erwähnen:
Die "MciVolume.pas" Datei habe ich von SwissDelphiCenter.ch

Version 1.4:
...Mit 'add' kann man mehrere Dateien einfügen ( Opendialog )
...Man kann mit Rechtsklick zwischen XP & Vista Style wechseln, wobei nur die Schriftart und Flats umgeändert werden
...Man kann direkt Mediendateien mit iBan öffnen
...Sort Funktion

Version 1.5:
...Man kann jetzt mit der Maus vor- und zurückspulen ( konnte man früher mit den Pfeiltasten ):-D
...Initialdir vom Opendialog ( SpeedButton: Open ) gesetzt
--> man muss allerdings das richtige Betriebssystem auswählen ( Rechtsklick )

Version 1.6:
...einige neue Funktionen ( Playlist-Verwaltung ) sind dazu gekommen

Version 1.7
...man kann nun *.m3u & *.pls Dateien reinladen bzw abspielen
...hab gestern unabsichtlich die nicht fertige Version upgelodet ( nun steht die richtige zur Verfügung )

Version 1.8:
...paar Sachen gefixt

Version 1.9
...Bugs gefixt ( unter XP könnten Bugs auftreten... das Design leidet unter XP auch sehr ! )
..."Add Folder" hinzugefügt
...ID3v1 Tag Editor ! ( könnte noch fehlerhaft sein !)
...*.mod Dateien nun abspielbar !
...Hintergrundbilder sowie Logos usw. nun in der .exe !

Aktuelle Version ( 2.0 ) ( 22.6.08 )
...Umstieg von Mediaplayer auf Bass.dll ( bass.pas ) !
...Equalizer, Visualisierung !
...Rechtsklick auf "Auto" - "Random"

EDIT:
Ich sehe gerade, dass die 2.0 er Version oben ist... Hab vergessen den 2.1 raufzuladen, wo der Tag-Bug gefixt wurde :)

Ach übrigens:
Ich hab mit der Weiterentwicklung aufgehört -- wenn irgendeiner weiterarbeiten will, der darf das von mir aus ABER
er soll mich vorher kontaktieren ! Und mir immer über den aktuellen Status berichten
:cheers:


Was ich noch vorhabe:
... Keine interesse mehr :(

[mr_emre_d]

Es soll anscheinend Probleme unter Xp geben

Falls das so ist, bitte ich euch, eine detaillierte Beschreibung des Problems hier rein zu stellen

MfG

[BullsEye]

Kurz angetestet:

• Spielt immer nur ein Lied ab.. Sprich Playlist geht nicht. Wird auch nicht das eine Lied angezeigt
• Add, Save, Clear geht nicht
• Stop ist nur ein Pause Button
• Man kann nicht zu einer anderen Stelle springen
• Man kann nur die Playlist oder das Andere(KA was das sein soll) öffnen nicht beides gleichzeitig
• Lied wird nicht zu Ende gespielt
• Falsche angaben der Länge und der aktuellen Stelle

Getestet unter Win XP SP2
selbst für eine Alpha ist das Teil nicht zu gebrauchen!

[Matze]

Hallo,

ich komme mit dem Player nicht nicht klar.

Wenn ich per Drag&Drop Dateien in das Playlist-Feld ziehe, bleibt das Feld leer und einen Dateinamen sehe ich oben, der auch abgespielt wird.
Der OpenDialog sollte standardmäßig als Filter alle unterstützten Formate beinhalten. Ich muss zur Zeit den Filter wechseln, wenn ich eine MP3-Datei öffnen möchte. Auch kann ich nicht mehrere Dateien auf einmal auswählen.
Ich verstehe nicht, wozu das Feld ist, das man nach unten und nach rechts aufklappen kann. Die Benutzerfreundlichkeit ich wirklich nicht die beste. ;)

Die Anzeige der ID3-Tags wäre evtl. auch noch nett, zumindest beim aktuell abgespielten Titel. Den Dateinamen würde ich nur anzeigen lassen, wenn Titel und Interpret nicht in den ID3-Tags vorhanden sind.

Wenn kein Lied geladen wurde, wird eine unschöne Meldung beim Klick auf "Stop" und "Play" angezeigt.

Grüße, Matze

[SirThornberry]

könntest du dem Beitrag bitte einen aussagekräftigeren Titel geben?

[mr_emre_d]

Probiert diese Version

MfG

[BullsEye]

Ist immernoch nicht so gut.
Wenn ich auf Add klicke, kommt immer nen Fehler. "Datei ist bereits in der Playlist".
Der Rest ist eig fast alles gleich geblieben!

EDIT:
Wie ich gerade im Code sehe, nutzt du die Mediaplayer funktion. Dies ist eig "Müll", zumal, wenn du nen Musikplayer schreiben willst. Diese Komponente kann man wohl nutzen, wenn du bei nem Spiel oder so Hintergrundmusik haben willst. Sonst nicht
Nutze lieber "FMOD" oder BassDLL bzw dessen Komponente von tP "BassDLLPlayer"

[mr_emre_d]

ja wenn die datei schon in der liste ist ...

[BullsEye]

Das Problem dabei ist ja, SIE IST NICHT VORHANDEN!
Ich lade da nichts rein! :wall:
Ich klicke ja auf diesen Button, damit ich irgendetwas da rein bekomme! Tut sich aber nicht^^

Und iwie finde ich den ganzen Code auch unnütz blöde...

Delphi-Quellcode:

  if listbox1.Count > 0 then

Das müsste, wenn ich richtig bin nicht 0 sondern -1 sein.
Und außerdem ist in der ganzen Prozedure nicht was irgendwas irgendwo reinlädt!??!
:gruebel:


Zum Speichern: Eine Playlist speichert man nicht in einer INI File sondern als m3u oder pls etc..
Außerdem speicherst du da nur wie viele Lieder in der Playlist drin sind, und nicht WELCHE Lieder drin sind?!
:gruebel:

Zum Löschen:

Delphi-Quellcode:

 DeleteFile( 'playlist.ini' );

Das ist öhm... NICHTS!
Wenn dann wäre folgender Code angebrachter:

Delphi-Quellcode:

ListBox1.Clear;

Warum benutzt du Speed anstatt normale Buttons?

Ich will dir ja nicht zu nahe treten, aber es scheint, als wäre das nicht so dein Ding!

EDIT: AHA ich habe die Funktion des "add Buttons" gefunden! Der fügt das Lied, welches gerade abgespielt wird der Playlist hinzu! Wie sinnlos, zumal wenn ich mehrere Lieder hinzufügen will!

Zu der "is already in Playlist" Message: Finde ich unnütz, da ich vllt ein Lied am Anfang der Playlist und das selbe am Ende haben will. Gott weiß warum aber vllt ist das so1

[Garfield]

Zitat:

Zitat von BullsEye

Delphi-Quellcode:

  if listbox1.Count > 0 then

Das müsste, wenn ich richtig bin nicht 0 sondern -1 sein.

Bei -1 würde der Vergleich immer True ergeben, da eine Anzahl nicht negativ sein kann. Bei der Prüfung des ItemIndex wäre -1 richtig.

Der erste Eindruck:

• Bei den TSpeedbutton für "play", "pause" und "open" ist Flat := True eingestellt. Da die Farbe der Button mit der Farbe der Schrift übereinstimmt, kann man kann die Caption nicht mehr lesen wenn man mit der Maus drüberfährt.
• Bei einem Klick auf "Open" wird kein Verzeichnis - zB Eigene Musik - vorgegeben.
• Nach dem Öffnen einer Datei wird die Lautstärke immer "voll" aufgedreht.
• Die Playlist wird in einer Endlosschleife abgespielt, wobei der aktuelle Titel nicht markiert ist.
• Es gibt keine Stop-Funktion.
• Das Auf- und Zuklappen dauert mir zu lange. Nach dem Aufklappen müsste die Caption des TSpeedButton von ">" auf "<" geändert werden.

[mr_emre_d]

>>Ich will dir ja nicht zu nahe treten, aber es scheint, als wäre das nicht so dein Ding!

hehehe, danke


ist ja auch die zweite version


ich habs eben mit ini files gemacht...


außerdem finde ich, dass das geschmackssache ist mit dem "is already in playlist"
falls es aber andersrum besser ist... ändere ich es um...

deletefile .. weil damit die ganze datei weg sein soll und nicht nur der inhalt, ansonsten müsste man playlist ( array ) auch löschen + saven ... ist auch ne blöde idee...

aber für das dass ich das so ca in ein paar stunden geproggt habe ...

>>EDIT: AHA ich habe die Funktion des "add Buttons" gefunden! Der fügt das Lied, welches gerade abgespielt wird der >>Playlist hinzu! Wie sinnlos, zumal wenn ich mehrere Lieder hinzufügen will!

du kannst die files gleich reindraggen

soll ich das auch da einbauen oder was ? :gruebel:

MfG

[Garfield]

Zitat:

Zitat von mr_emre_d

... ist auch ne blöde idee...

Die Äußerung finde ich unpassend.

Zitat:

Zitat von mr_emre_d

aber für das dass ich das so ca in ein paar stunden geproggt habe ...

Auf die aufgewandte Zeit kommt es nicht an. Du brauchst ein durchdachtes Konzept.

Zitat:

Zitat von mr_emre_d

du kannst die files gleich reindraggen

Sicher könnte er das. Dann könnte man auch das "Add" weglassen. Beim "Add" erwartet man meist einen Dialog, über welchen man eine oder mehrere Dateien auswählen kann.

Nachtrag:

Zitat:

Zitat von mr_emre_d

ist ja auch die erste version

:gruebel: Ich denk die zweite.

[mr_emre_d]

das add fügt die aktuelle datei die "geopened" wurde in die playlist

und mit open öffnet man eine datei bzw lädt sie rein

sorry hab mich verschrieben, werds gleich umändern ( das mit erste version )

Garfield:
Du benützt wahrscheinlich kein Vista

[BullsEye]

Zitat:

Zitat von mr_emre_d

das add fügt die aktuelle datei die "geopened" wurde in die playlist

und mit open öffnet man eine datei bzw lädt sie rein

sorry hab mich verschrieben, werds gleich umändern ( das mit erste version )

Garfield:
Du benützt wahrscheinlich kein Vista

Ja, eig ne nette Idee, aber total unpassend bei einem Musikplayer! Wenn ich Musik höre, höre ich meist mehr als 2/3 Lieder (Ich denke andere hier auch) und dann ist es zu umständlich (zumind. Meiner Meinung nach) wenn ich jedes Lied einzelen öffne und hinzufüge

[rollstuhlfahrer]

Zitat:

Zitat von BullsEye

Ja, eig ne nette Idee, aber total unpassend bei einem Musikplayer! Wenn ich Musik höre, höre ich meist mehr als 2/3 Lieder (Ich denke andere hier auch) und dann ist es zu umständlich (zumind. Meiner Meinung nach) wenn ich jedes Lied einzelen öffne und hinzufüge

ich hab mir meine eigene Version vom WMP gemacht, die momentan nur 3918 Lieder in der Playlist hat. Das kann der WMP halt mal nicht so schnell machen. und zu deinem: über 10 Lieder mit Dialogen hinzufügen find ich mehr als umständlich.
Tipp: mach doch einen AddFolder button, sodass man schnell mal mehrere Dateien hinzufügen kann.

rollstuhlfahrer

PS: Für die Speicerung würd ich m3u oder xml nehmen (pls geht auch, sieht mir aber auf den ersten Blick zu umständlich aus), aber kein INI, weil das viel zu umständlich wird

Nachtrag: ich benutze WinXP

[BullsEye]

Zitat:

Zitat von rollstuhlfahrer

ich hab mir meine eigene Version vom WMP gemacht, die momentan nur 3918 Lieder in der Playlist hat. Das kann der WMP halt mal nicht so schnell machen. und zu deinem: über 10 Lieder mit Dialogen hinzufügen find ich mehr als umständlich.
Tipp: mach doch einen AddFolder button, sodass man schnell mal mehrere Dateien hinzufügen kann.

Ein Grund, warum so viele ihren eigenen MP schreiben..
hm gut 3900 ist so an der Zahl eig wenig. Allerdings ist das für ne Playlist genug, du kannst sowieso nicht alle gleichzeitig hören! Wenn man mit so vielen kommt, ist ne Medienbibilothek, meiner Meinung nach, angebrachter!

Zitat:

Zitat von rollstuhlfahrer

PS: Für die Speicerung würd ich m3u oder xml nehmen (pls geht auch, sieht mir aber auf den ersten Blick zu umständlich aus), aber kein INI, weil das viel zu umständlich wird

Nachtrag: ich benutze WinXP

Hatte ich oben schon erwähnt ;)

[rollstuhlfahrer]

Zitat:

Zitat von BullsEye

Hatte ich oben schon erwähnt ;)

doppelt schadet nicht, oder? XML ist aber neu

[BullsEye]

Zitat:

Zitat von rollstuhlfahrer

Zitat:

Zitat von BullsEye

Hatte ich oben schon erwähnt ;)

doppelt schadet nicht, oder? XML ist aber neu

Ich halte XML nicht für eine so gelungene Lösung. Am besten ist m3u oder pls. Die kann man dann später auch noch mit anderen MP verwenden!

[Garfield]

Zitat:

Zitat von mr_emre_d

Garfield:
Du benützt wahrscheinlich kein Vista

Warum? Ist das relevant?

[mr_emre_d]

Unter Vista schaut das wegen dem Aero Effekt ganz anders aus

[Garfield]

Das Aussehen hat aber mit der erwarteten Funktion nichts zu tun.

[mr_emre_d]

Neue Version ist jetzt verfügbar

Kann mir bitte einer helfen:
Ich bekomme es einfach nicht hin, wenn eine Datei mit iBan geöffnet wird, Vol zu setten !?! :gruebel:
Habs schon vieles probiert... !

MfG Mr_Emre_D

[mr_emre_d]

kann mir keiner helfen ?

[Garfield]

Delphi-Quellcode:

  if Style = 'XP' then
    od.InitialDir:= 'C:\Dokumente und Einstellungen\' + UN + '\Eigene Dateien\EigeneMusik\'
  else if Style = 'Vista' then
    od.InitialDir:= 'C:\Users\' + UN + '\Music\';

Das ist nicht so gut. Da solltest Du Dir mal dies ansehen.

Delphi-Quellcode:

  if fileexists( 'form.ini' ) then
  begin
    Ini:= TInifile.Create( extractfilepath( paramstr( 0 ) ) + '\form.ini' );
    Style:= ini.ReadString( 'Style', 'Form', '' );
    if ini.ReadString( 'Volume', 'Vol', '' ) <> '' then
      Vol:= strtoint( ini.readstring( 'Volume', 'Vol', '' ) )
    else
      Vol:= 50;
    Ini.Free;
  end;

besser

Delphi-Quellcode:

  Ini:= TInifile.Create( extractfilepath( paramstr( 0 ) ) + '\form.ini' );
  Style:= ini.ReadString( 'Style', 'Form', '' );
  Vol := ini.ReadInteger( 'Volume', 'Vol', 50);
  Ini.Free;

[mr_emre_d]

Danke für die Tipps;

Kannst du mir auch sagen, wie ich die Lautstärke am Anfang anpasse ?

[Garfield]

Delphi-Quellcode:

Vol := ini.ReadInteger( 'Volume', 'Vol', 50);

bedeutet, dass Vol = 50 ist, wenn kein Wert aus der INI gelesen werden kann. Zum Beispiel weil es noch keine INI gibt.

[mr_emre_d]

ja danke,
wusste ich eigentlich schon ( automode wird auch so geladen ), weiß grad nicht warum ich es nicht so gemacht hab :?:

Aber das mit der Lautstärke krieg ich einfach nicht hin ... :wall:

:gruebel:

Ich hab grad ne Idee wie es klappen könnte... schau ma mal

EDIT:
Das Problem lag im Timer bei der if Abfrage von ( trackbar2.position <> tb2pos )
Ich hab einfach n Flag gesetzt :
PSetted //trackbar.Position setted

bei Form.Create hab ich nach Trackbar2.positon = Vol * 10 ( hab ich gerade umgeändert, da OVol nicht notwenidg ist )
PSetted umgeboolt
Anschließend hab ich einfach vor der Abfrage im timer noch ne abfrage über den flag gemacht !

Das Problem ist:
Bei Paramstr( 1 ) <> 0 wirds der Vol-Wert im .Ini nicht der Variable Vol zugewiesen ...


MfG

[Garfield]

Zitat:

Zitat von mr_emre_d

Aber das mit der Lautstärke krieg ich einfach nicht hin ... :wall:

Ich versteh nicht, was Du meinst. Allerdings würde ich nicht andauernd im Timer prüfen, ob die Position der Trackbar2 geändert wurde, sondern stattdessen das OnChange der Trackbar2 nutzen.

[mr_emre_d]

ich weiß

Da gibts irgendeinen Grund dafür, nur fällt der mir gerade nicht ein :gruebel:
Denke ich zumindest

EDit:
Ok es gibt doch keinen Grund

[Larsi]

Also erstmal was positives: Bis darauf dass wenn man mit der Maus über die Buttons geht dass es dann blöd aussieht ist der Player übersichtlich gestaltet.

Verbesserungsvorschläge:
- Visualiesierung
- Ordner hinzufügen

[mr_emre_d]

lars
du musst halt auf xp umstellen ( rechtsklick-style )

Automatische Erkennung des Betriebssystemes und Anpassung daran wird in den nächsten Versionen erfolgen

Ersteinmal die Grundfunktionen

Danke fürs Testen

[Garfield]

Zitat:

Zitat von mr_emre_d

du musst halt auf xp umstellen ( rechtsklick-style )

:shock:

Das muss das Programm machen, nicht der Anwender.

Beim ersten Rechtsklick ist der Haken bereits bei XP obwohl das Programm Vista verwendet. :gruebel:

[lbccaleb]

Zitat:

Zitat von Garfield

Zitat:

Zitat von mr_emre_d

du musst halt auf xp umstellen ( rechtsklick-style )

:shock:

Das muss das Programm machen, nicht der Anwender.

Beim ersten Rechtsklick ist der Haken bereits bei XP obwohl das Programm Vista verwendet. :gruebel:

ja seh ich auch so, am besten ist, du erstellst ne abfrage am start und kontrollierst welche win version installiert ist und nach dieser richtest du dann dein programm..

[Garfield]

Mal so als Hinweis: http://www.delphipraxis.net/internal...t.php?t=135356

[mr_emre_d]

Habs nun so umprogrammiert, aber das mit dem 'my music folder' werde ich morgen ändern !

Danke für das Testen an alle

MfG

[mr_emre_d]

Gibt schon wieder ne neue Version xD

Style wird jetzt automatisch gewählt

M3U und PLS Dateien sind jetzt ladbar. Weiß aber nicht ob das 100 % funzt

Edit: Gestern war die falsche Version oben !

MfG

[mr_emre_d]

gestern war mir in der Nacht sehr fad und ich dachte mir ich arbeite da mal weiter !

Die aktuelle Version 1.9

Wäre nett, wenn n paar von euch das testen würden :)

:D

MfG

[Larsi]

Hi,
also Equalizer fehlt noch, Visualisierung fehlt nocht, benutzt du die Bass.dll? Solltest du aber. Der Effekt, dass der Alphablendvalue Faktor bei jeder kleinsten Bemühung wie Ordner hinzufügen kommt, nervt. Design nicht einstellbar. Wenn man Id3 Tags bearbeiten will, kann man nicht auf Abbrechen, sondern nur auf Speichern und bei Speichern kommt bei mir eine Zugriffsverletzung. Das wärs erstmal.

MFG Lars Wiltfang

[mr_emre_d]

aha...

Danke fürs Testen !

Und nein, ich benütze kein bass.dll ! Ich steh mehr auf Eigenwerk :) Obwohl ich sagen muss dass die MCI.pas ( oder so ) nicht von mir ist !

^^

N Abbrechen Button lässt sich einbauen ! Das mit die Fehler ... hmmm kam bei mir nicht ! Könntest du es eventuell beschreiben ??

Ich weiß nicht wie ich eine Visualisierung realisieren soll !
Wenn mir einer sagen kann, wie ich die einzelnen Werte eines Liedes

--Was unter Werte zu verstehen ist / Was ich damit meine :
--die einzelnen Werte eines Pixels = a, r, g, b ! sowas in der Art hab ich damit gemeint

abfragen kann... dann würde ich sowas wie ne Visualisierung/Equalizer einbauen :D


MfG Emre

[mr_emre_d]

Eualizer und Visualisierungen sind nun dabei ! ( 2.0 )

Bass.dll wird nun verwendet !

MfG Franz