Musikwiedergabe

[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.