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]

Lass dir soviel Zeit wie du brauchst.
Und tauf dann dein Programm um, MiniPlayer passt wirklich nicht mehr.

Viel Spass bei der Arbeit !

[TOC]

Hi!

Zitat von delphman:

Lass dir soviel Zeit wie du brauchst.

Hab´mir wirklich viel Zeit gelassen, Kicher!

Eine Erklärung zu den Locks:

Stell Dir vor du hast MP3´s zum Beispiel mit klassicher Musik. Beispielsweise von Bach: Passacaglia und Fuge, oder Toccata und Fuge, also zwei Stücke die zusammen gehören.
Nun kannst Du, selbst im Zufalls- oder Shuffle-Modus, diese beiden Dateien locken. Setze einfach ein Lock auf die ZWEITE Datei, NICHT auf die Erste! Das bewirkt das beide Dateien unmittelbar nacheinander abgespielt werden, ohne Pause. Wann immer zufälligerweise die Passacaglia gespielt wird kommt unmittelbar danach die dazugehörige Fuge! Dafür sind die Locks gedacht.


Zur Lautstärkeregelung:

MiniPlayer unterscheidet verschiedene Lautstärke-Kanäle. Zum Beispiel kannst Du Deine MP3´s lauter oder leiser machen als alle Midi- oder CD-Audio-Dateien. Du kannst aber auch auf relative Lautstärke umschalten. Dann kannst Du jede beliebige Datei lauter oder leiser in Relation zu den anderen Dateien machen. Wenn Du neue Dateien in die Liste einfügst wird ihre
relative Lautstärke automatisch auf 50% gesetzt. Sowohl die Lautstärke der verschiedenen Kanäle als auch die relativen Lautstärken der einzelnen Dateien werden in der Wiedergabeliste abgespeichert. Wenn Du MiniPlayer beendest werden die Lautstärken wieder auf die Werte gesetzt die beim Programmstart eingestellt waren.


Leider gibt es diverse Unterschiede zwischen Delphi 3.0 und 7.0. Deshalb gibt es jetzt zwei verschiedene Versionen von MiniPlayer. Delphi 7.0 erzeugt zwar zahlreiche Warnungen, aber es funktioniert trotzdem.


Mit 6.706 Zeilen Code ist das Programm nun aber eigentlich kein MiniPlayer mehr...
Ich habe das Programm gründlich getestet. Aber Hallo: Das hier ist eine Beta-Version die mit Sicherheit noch einige Fehler enthält.

Ich hatte echt noch keine Zeit den ganzen Kram zu dokumentieren, Kicher! Wird noch ein paar Tage dauern bis ich das alles voll durchdokumentiert habe...


Wenn Du weitere Vorschläge oder Ideen hast dann melde Dich bitte!


Grüße von TOC!

[PierreB]

Moin TOC,

ich hab deinen Player jetzt nochmal ausführlich getestet und bin restlos begeistert !
Alle Daumen hoch !

Alles funzt wie es sollte. Dein Player ist klein, schnell und funktionell.
WinAMP hat ausgedient...

P.S.: Außer das Design was man noch verschönern könnte, fällt mir nichts ein.

[TOC]

Hi!

Zitat von PierreB:

ich hab deinen Player jetzt nochmal ausführlich getestet und bin restlos begeistert !
Alle Daumen hoch !

Alles funzt wie es sollte. Dein Player ist klein, schnell und funktionell.
WinAMP hat ausgedient...

P.S.: Außer das Design was man noch verschönern könnte, fällt mir nichts ein.

Cool! Freut mich das er Dir gefällt.

Aber noch sind wir nicht am Ende der Programm-Entwicklung. Ich möchte die Bass.dll noch einbinden, damit man auch bei Windows 98 MP3´s abspielen kann. Mit der Bass.dll soll man auch noch weitere Tracker-Formate wie S3M etc. abspielen können. Ich suche zur Zeit noch Beispielprogramme für die Bass.dll, habe aber leider noch keine gefunden.

Das mit dem Design ist nicht so ohne weiteres zu ändern. Ich möchte kompatiebel bleiben zu Delphi 3.0. Bei Delphi 7.0 soll es ja sowas geben wie verschiedene Skins, aber bei 3.0 ?

Grüße von TOC!

[Red_Dragon]

Zitat von TOC:

Aber noch sind wir nicht am Ende der Programm-Entwicklung. Ich möchte die Bass.dll noch einbinden, damit man auch bei Windows 98 MP3´s abspielen kann. Mit der Bass.dll soll man auch noch weitere Tracker-Formate wie S3M etc. abspielen können. Ich suche zur Zeit noch Beispielprogramme für die Bass.dll, habe aber leider noch keine gefunden.

wenn du ein beispiel suchst schau dir das mal an leicht verständlich und übersichtlich
sogar mit visual
http://www.delphipraxis.net/internal...ct.php?t=35253

Zitat von TOC:

Das mit dem Design ist nicht so ohne weiteres zu ändern. Ich möchte kompatiebel bleiben zu Delphi 3.0. Bei Delphi 7.0 soll es ja sowas geben wie verschiedene Skins, aber bei 3.0 ?

Grüße von TOC!

geht doch ganz einfach die ersten zwei komponentenpacks in delphi sind soweit ich weis in allen versionen gleich sprich du hast in jeder delphi version eine TImage komponente diese kannste für das komplette design nehmen mach ich auch funzt besser als perfekt alle buttonanimationen lassen sich dadurch auch machen wie ich schon sagte eben das gesammte design...

[TOC]

Hi!

Zitat von Red_Dragon:

wenn du ein beispiel suchst schau dir das mal an leicht verständlich und übersichtlich
sogar mit visual

...buttonanimationen lassen sich dadurch auch machen wie ich schon sagte eben das gesammte design...

Danke für Dein Demoprogramm. Hab´s mir runtergeladen und werd Deine Sources mal in Ruhe studieren.

Aber an dem Design möchte ich im Grund wirklich NIX ändern. Vielleicht mach ich die Farben noch einstellbar, das wär wohl schon drin.

Grüße von TOC!

[PierreB]

Oder du machst einfach ein paar nette Hintergrundbilder rein, z.B. im WinXP-Style, ein kühles blau oder so.
Aber eigentlich ist das Design ja egal, es kommt auf die Funktionstüchtigkeit an.

[TOC]

Hi!

Zitat von PierreB:

Oder du machst einfach ein paar nette Hintergrundbilder rein, z.B. im WinXP-Style, ein kühles blau oder so.
Aber eigentlich ist das Design ja egal, es kommt auf die Funktionstüchtigkeit an.

Ja, Du hast Recht. Das Design bei meinen Programmen ist recht simple, aber ich lege großen wert auf die Funktionstüchtigkeit. Und ich mach mir echt größe Mühe die Programme zu testen. Dieses Testen dauert in der Regel 3 mal so lange wie das eigentliche programmieren...

Aber da siehst Du auch das man es nicht allen rechtmachen kann. Dir gefällt ein dunkles kühles blau, meine Lieblingsfarbe ist aber nun mal ein helles Himmelblau! Aus dem Grund werd ich die Farben wohl doch noch einstellbar machen...

Grüße von TOC!

[4toms]

Hoffentlich bekomme ich keine neuen Abmahnungen von Daniel oder Sharky für das folgende Off-Topic:

Kleine Delphi-Versionsrechenart: D3+D7 = D10.
Geteilt durch zwei = D5.

Wenn man das "D7-mixer.pas" über das "D3-mixer.pas" kopiert, mault D5 nur noch Dropfunktionen rum

Unter D5 habe ich mir den MiniMediaPlayer in den letzten paar Stunden etwas intensiver reingezogen und überarbeitet:

- Von hellblau-bunt-farbig zu gelbstufen-farbig geändert
- Alles "duzen" auf "Siezen" geändert
- Alle Dialoge etwas "modernisiert"

In allen Dialogen, TOC, per ObjectInspector. Und in Unit1

Dankbare Grüße an jemandenden namens Lars? Ja, demnächst?

cul8er!

[TOC]

Zitat von 4toms:

Wenn man das "D7-mixer.pas" über das "D3-mixer.pas" kopiert, mault D5 nur noch Dropfunktionen rum

Unter D5 habe ich mir den MiniMediaPlayer in den letzten paar Stunden etwas intensiver reingezogen und überarbeitet:

- Von hellblau-bunt-farbig zu gelbstufen-farbig geändert
- Alles "duzen" auf "Siezen" geändert
- Alle Dialoge etwas "modernisiert"

In allen Dialogen, TOC, per ObjectInspector. Und in Unit1

Dankbare Grüße an jemandenden namens Lars? Ja, demnächst?

cul8er!

Kicher! Warum denn jetzt auch noch Delphi 5.0? Ich mach schon Support für zwei Versionen, weile viele Kid´s nur 3.0 haben. Viele Kid´s wissen noch gar nit das man sich Delphi 7 von Borlands HomePage runterladen kann...

Dein Gelb find ich recht cool! Versprochen: Ich mach die Farben noch einstellbar. Deine Delphi-5 Version macht unerklärliche Adress-Fehler, warum auch immer.

Und außerdem: Laßt uns doch bitte beim Du bleiben! Ich bin KEIN Erwachsener den Kinder und Jugendliche 'siezen' müßten, wirklich nicht, Kicher! Und ich schreibe ausschließlich SoftWare für Kid´s ! Is mein Hobby!

Ansonsten: Wenn Du hinkriegst das Deine 5.0 Version fehlerfrei läuft dann könnten wir sie ja auch veröffentlichen!

Also dann, bastelt mal schön weiter mit dem Programm! Viel Spaß dabei!

Grüße von TOC!