MiniPlayer mit TMediaPlayer

[TOC]

Hi!

Ich lese hier immer wieder solche Fragen wie "Wie kann ich möglichst einfach eine MP3-Datei abspielen?" oder "Wie kann ich die Länge einer Medien-Datei ermitteln" usw. In diesem Zusammenhang lese ich auch immer wieder "Das geht mit der Bass.dll" etc.

Aber warum nicht die Möglichkeiten nutzen die in Delphi schon längst eingebaut sind? Auf der Seite "System" findet ihr, selbst schon bei Delphi 3.0, die Komponente "MediaPlayer". Mit diesem MediaPlayer kann man auf recht einfache Weise eine Reihe von Medien-Dateien abspielen.

Der MediaPlayer selbst verwendet die sogenannten MCI-Geräte von Windows. Leider sind auf verschiedenen Computern und verschiedenen Windows-Versionen unterschiedliche MCI-Devices installiert. Ich weiß auch noch nicht wie man vom Programm aus abfragen könnte welche Treiber den nun installiert sind. Da hilft nur ausprobieren!

Ich habe nun mit der Komponente "MediaPlayer" einen kleinen MiniPlayer geschrieben mit dem Du folgende Medien-Dateien abspielen kannst:

Ab Windows ´95:
Wave-Dateien im Format : *.wav;
Midi-Dateien im Format : *.mid; *.rmi; *.midi;
CD-Audio-Tracks im Format : *.cda
Animationen im Format : *.avi

Ab Windows ´98 Second Edition:
Mp3-Dateien im Format : *.mp3; *.mpa;
Video-Dateien im Format : *.mpg; *.mpeg;

Es ist möglich das auf Deinem Computer noch andere MCI-Geräte installiert sind und das Du noch weitere Medien-Dateien abspielen kannst.

Interessant ist das die meisten MCI-Geräte das ZeitFormat 'tfMilliseconds' nun doch unterstützen. Das ist in der Delphi-Hilfe leider nicht so ganz eindeutig dokumentiert. Nach dem 'Open'-Befehl setzte ich nun dieses Zeit-Format. Dadurch konnte ich all die komplizierten Funktionen zur Addition und Subtraktion von Zeiten im Format 'tfSMPTEDrop30' und 'tfMSF' aus dem Programm komplett rausschmeißen. Jetzt werden alle Zeiten einheitlich nur noch in Millisekunden berechnet, was alles wesentlich einfacher macht.

--------------------------------------------------------------------------------------------------

Version 1.6

Änderungen:

1.) BugFix: Wenn man auf einen leeren Bereich von Panel8 geklickt hat wurde das FreeWare-Formular versehentlich aufgerufen. Diesen dummen Fehler hab ich nun in allen 4 Versionen behoben.

2.) In den beiden Delphi 7.0 Versionen steht nun die Eigenschaft 'DoubleBuffered' von Panel1 und Panel6 auf true, damit der Scroller und die Zeitanzeige nicht mehr flimmern.

3.) BugFix: In den beiden Versionen mit Bass.dll wird nun die Wiedergabe gestopt und die Bass.dll freigegeben bevor der Computer in den Sleep-Modus übergeht, und nach dem Aufwachen wieder initialisiert.

--------------------------------------------------------------------------------------------------

Hi!

Hier kommen gleich 4 neue Versionen 1.7 von MiniPlayer!

Änderungen:

1.) MiniPlayer speichert seine Daten nun unter dem Schlüssel 'HKEY_CURRENT_USER\SoftWare\TocWare\MiniPlayer' in der System-Registrierung.

2.) Mit dem Menüpunkt "Optionen/Registrierung aufheben" kannst Du diese Daten aus Deiner System-Registrierung nun auch wieder löschen und auch die Registrierung der Datei-Typen aufheben.

Hinweis: Dieses Programm verwendet einige meiner selbst gebastelten Komponenten, die Du benötigst um das Projekt zu öffnen und neu zu kompilieren. Eine aktuelle Version meiner Komponenten im Packet findest Du hier : Tocs Komponenten als Paket).

Derzeit kann ich Euch nur bitten den fehlerhafeten Schlüssel 'HKEY_CURRENT_USER\MiniPlayer' von Hand zu löschen (mit RegEdit.exe), Sorry!
--------------------------------------------------------------------------------------------------

Wenn Du herausfinden willst wie man mit TMediaPlayer bzw. MCI MP3´s und andere Formate ausgibt, oder Mod´s mit MiniMod.pas, dann ist 'Version MCI D3/D7' die richtige Version für Dich!

Wenn Du herausfinden möchtest wie dies mit der Bass.dll geht, dann lade Dir 'Version Bass D3/D7' herunter. Verschiedene Formate (*.avi, *.mpg, *.mpeg, *.mid, *.rmi, *.cda) werden allerdings immer noch mit MCI ausgegeben, da die Bass.dll diese Formate nicht unterstützt.

Grüße von TOC!

[PierreB]

Hallo,

ich find deinen Player wirklich gut.

Früher wollte ich auch mal einen Player machen, bin aber an einer Trackbar-Anzeige und der Titellänge gescheitert. Nun werd ich mal deinen Code studieren. ;)

Vielen Dank :thumb:

[TOC]

Hi!

Zitat:

Nun werd ich mal deinen Code studieren.

Dafür sind die Quell-Codes da! Ich hab versucht alles möglichst genau zu dokumentieren!

Grüße von TOC! :stupid:

[CReber]

Also bei mir kommt Gerätefehler...

[PierreB]

Noch ne kleine Anregung: Bau doch ne TrackBar ein, wo du dich durchs Lied bewegen kannst, also vor und zurückspielen wie beim "richtigen" MediaPlayer (Windows). ;)

[Red_Dragon]

Zitat:

Zitat von delphman

Noch ne kleine Anregung: Bau doch ne TrackBar ein, wo du dich durchs Lied bewegen kannst, also vor und zurückspielen wie beim "richtigen" MediaPlayer (Windows). ;)

:arrow: FFT Visual
:arrow: Wiedergabeliste
:arrow: etwas interssanteres style (entweder etwas schlichtes graues aber gut dargestellt oder etwas stylisches ala winamp)

[PierreB]

Und nochwas:
:arrow: Das da das Icon angezeigt wird, stört mich irgendwie...

[Nils_13]

Hi,

ist dir sehr gelungen.

Art Trackbar: Bau doch eine richtige Trackbar ein, damit man auch vor und zurückspulen kann.

*mist* zu spät :?

[TOC]

Hi!

Zitat:

Bau doch ne TrackBar ein

Wäre möglich, aber schwierig. Nicht alle MCI-Geräte können steppen, das ist das Problem. Ich müßte, ähnlich wie bei der Pause funktion, wahrscheinlich für jedes Gerät eine eigene Step-Routine schreiben. Also das mit der Trackbar seh ich ja noch ein, also gut. Wird aber ein paar Tage dauern...

Zitat:

FFT Visual
Wiedergabeliste
etwas interssanteres style (entweder etwas schlichtes graues aber gut dargestellt oder etwas stylisches ala winamp)

Was heißt FFT Visual? Ich schreib meine Programme IMMER in Delphi 3.0 und werde dabei auch bleiben! Deshalb nehme ich meistens Standard-Komponenten, außer in den Programmen in denen ich meine eigenen Komponenten verwende.

Rat mal warum ich keinen WinAmp verwende! Der Style gefällt mir nicht!

Im übrigen stehe ich auf Pastel-Farben. Schwarz-Weiße Programme gefallen mir einfach nicht!

Das könnt ihr aber alles auch selbst ändern wie ihr wollt. Diser Player ist ein MINI-Player und soll es eigentlich auch bleiben! Es ist nur ein Beispiel-Programm wie man mit TMediaPlayer einen eigenen Player basteln kann- mehr nicht!

Zitat:

Also bei mir kommt Gerätefehler...

Schreib mal etwas genauer bei welchem Dati-Typ der Fehler passiert, und welche Windows-Version Du verwendest. Also, Mp3´s kannst Du z.B. bei Windows 98 vergessen. Erst ab Windows ´98 Second-Edition kannst du mit dem TMediaPlayer Mp3´s abspielen.

[Gandalfus]

Zitat:

Zitat von TOC

Was heißt FFT Visual? Ich schreib meine Programme IMMER in Delphi 3.0 und werde dabei auch bleiben! Deshalb nehme ich meistens Standard-Komponenten, außer in den Programmen in denen ich meine eigenen Komponenten verwende.

FFT ist ein Mathematisches verfahren mit dem man ein Geräusch in die einzelnen Sinus Schwingungen zerlegen kann also für Visualierungen.

[quote]
Aber warum nicht die Möglichkeiten nutzen die in Delphi schon längst eingebaut sind?
[quote]
Das MCI ist veraltet es werden also nicht alle Mp3s abgespielt die Video wiedergabe auch ist ziemlich langsam deshlab nimmt man heute eigendlich DirectX. Da DirectX aber nicht so einfach ist nimmt man schon Vereinfachungen wie z.B fmod oder die bass.dll.