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!

[TOC]

Hi!

Zitat von 4toms:

Dein neuer MiniPlayer Version 1.2 Beta:

Daß, was da neuerdings unter "Hilfe" anklickbar ist, meinst Du doch wohl nicht ernst, oder?

Müll

Mein ich völlig Ernst! Ich hab mir meinen frühkindlich-pupertär-creativ-agrrrresieven Humor noch erhalten. Wenn Dir das Info- bzw. FreeWare-Form nicht gefällt, dann klick sie halt nicht an!

Grüße von TOC!

[PierreB]

Moin TOC,

wieso hast du denn klammheimlich die 1.6er hochgeladen ?

Ich hab mir die 1.6 Bass Delphi 3 angeguckt und bin wiedermal begeistert. Es funktioniert alles wunderbar. Wirklich top arbeit !

[TOC]

Hi!

Zitat von PierreB:

wieso hast du denn klammheimlich die 1.6er hochgeladen ?

Ich hab mir die 1.6 Bass Delphi 3 angeguckt und bin wiedermal begeistert. Es funktioniert alles wunderbar. Wirklich top arbeit !

Wieso klammheimlich? Ich hab Dir doch extra Bescheid gesagt! Allerdings kann ich schlecht allen Interessenten extra ´ne Mail schicken, Kicher!

Wenn ich Fehler finde und verbessert habe mach ich natürlich ein UpDate, Logo !
Das mit DoubleBuffered in den Delphi 7.0-Versionen war ein Update Wert, ebenfalls der Fehler mit der Sleep-Funktion in den Bass-Versionen...

Grüße von TOC!

[PierreB]

Hättest aber noch mal einen neuen Post machen können, dass es alle sehen.

[TOC]

Hi!

Zitat von PierreB:

Hättest aber noch mal einen neuen Post machen können, dass es alle sehen.

Wieder mal ein UpDate! Ja, das mit der Registrierung war ein blöder Fehler !

Nun also vier neue Versionen die ihre Daten an der richtigen Stelle speichern inklusive Lösch-Funktion.

Grüße von TOC !