Musikwiedergabe

[Linguini]

Hallo,

da ich gerne etwas Musik in meinen kleinen Anwendungen hätte, suche ich einen leichten Weg Musik(am liebsten Chiptunes) wiederzugeben.
Durch die Suchfunktionen bin ich darauf gestoßen.
Nur es hat denn Anschein als lässt sich diese Komponente mit Delphi 2009 nichtmehr installieren.
Lieg ich da richtig?

Welche andere Möglichkeit gäbe es die zu bewerkstelligen?

Linguini

[Larsi]

Hi,

du kannst auch TMediaPlayer benutzen. Ist eine Standardkomponente!

So spielst du eine Datei ab:

Delphi-Quellcode:

Mediaplayer1.filename := 'Pfad der Datei';
Mediaplayer1.open;
Mediaplayer1.Play;

[Linguini]

Ich würde es doch ganz gerne mit der Bass.dll oder uFMOD machen, da nicht jeder WMP installiert hat.

Und immer wenn ich etwas mit TMediaPlayer wiedergeben will kommt "Fehler beim starten von MCI"

[Linguini]

Der Thread kann geschlossen werden, ich hab es hin bekommen =)

[Coder]

Zitat von Linguini:

Der Thread kann geschlossen werden, ich hab es hin bekommen =)

mhh, ja, aber wie hast Du es gemacht/geschafft ?

[Linguini]

Es war einfacher als gedacht.

Also:

uFMod herunterladen, und in Delphi einbinden.
Dort ist ein Tool namens "eff" dabei.

Öffne es, wähle deinen Chiptune aus.
Hacken bei "Generate a hex dump file..."
Bei Syntax "Pascal/Delphi" auswählen.

Das Tool erstellt dir dann eine .pas Datei darin enthalten ist soetwas:

Delphi-Quellcode:

 
const
xm : array[1..49869] of Byte = (
     $45,$78,$74,$65,$6E,$64,$65,$64,$20,$4D,$6F,$64,$75,$6C,$65,$3A,
     $20,$53,$77,$65,$65,$74,$20,$6D,$65,$6D,$6F,$72,$69,$65,$73,$20,
     $20,$20,$20,$20,$20,$1A,$46,$61,$73,$74,$54,$72,$61,$63,$6B,$65,
     $72,$20,$76,$32,$2E,$30,$30,$20,$20,$20,$04,$01,$14,$01,$00,$00,
     $11,$00,$02,$00,$08,
     [...]
     );

Das fügst du dann einfach in deine Unit ein(oder als externe Datei)

Ufmod_Playsong(@xm,length(xm),xm_memory); spielt den Chiptune ab.