Musik mit uFMOD

Gravita · Hält's aus hier Beiträge: 1

Hallo,

ich suche eine simple Möglichkeit .xm oder .mod Dateien in meinem Delphiprogramm abzuspielen.
Durch diverse Threads bin ich über uFMOD gestolpert.
Nur irgendwie weiß ich nicht so Recht wie ich es benutzen soll.

1.
Ich benötige die Musikdatei in diesem Format:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

const
xm : array[1..16839] of Byte = (
$45,$78,$74,$65,$6E,$64,$65,$64,$20,$4D,$6F,$64,$75,$6C,$65,$3A,
$20,$41,$20,$70,$69,$65,$63,$65,$20,$66,$6F,$72,$20,$66,$72,$65,
$65,$64,$6F,$6D,$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,
$09,$00,$01,$00,$08,$00,$09,$00,$28,$00,$01,$00,$06,$00,$7D,$00,
$00,$01,$02,$03,$04,$05,$06,$07,$08,$00,$00,$00,$00,$00,$00,$00

Es wurde des öftern ein Tool namens EFF erwähnt. Wo bekomme ich das her?

2.

Wie binde ich diese Datei dann ein?
Ein Beispielcode wäre super =)
Leider sind alle Tutorials die ich dazu finde down.

Grüße

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Meinst Du zum Beispiel diese Seite?
Oder habe ich da jetzt falsch nach gegoogelt?

SvenAbeln · Beiträge: 334 Erhaltene Danke: 3

Ich kenne uFMod zwar nicht, hab mir aber mal die Homepage und die Bibliothek kurz angesehen.

Gravita hat folgendes geschrieben :

Durch diverse Threads bin ich über uFMOD gestolpert.
Nur irgendwie weiß ich nicht so Recht wie ich es benutzen soll.

uFMod hat doch direkt Beispiele für Delphi dabei.

Gravita hat folgendes geschrieben :

1.
Ich benötige die Musikdatei in diesem Format:

So einen hex dump kann EFF erzeugen.

Gravita hat folgendes geschrieben :

Es wurde des öftern ein Tool namens EFF erwähnt. Wo bekomme ich das her?

EFF gibt es auf der uFMod Homepage unter Tools.

Gravita hat folgendes geschrieben :

2.
Wie binde ich diese Datei dann ein?
Ein Beispielcode wäre super =)
Leider sind alle Tutorials die ich dazu finde down.

Hab ich schon die Delphi Beispiele von uFMod erwähnt? :lol:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

const
xm : array[1..905] of Byte = ($45,$78,$74,$65,$6E,$64,$65,$64,$20,$4D,$6F,$64,$75,$6C,$65,$3A,...

[...]

  if uFMOD_PlaySong(@xm,Length(xm),XM_MEMORY) <> nil then
  begin
    { Wait for user input. }
    MessageBox(0,'uFMOD ruleZ!','Delphi',0);
    { Stop playback. }
    uFMOD_StopSong
  end;

Sinspin · Verfasst: Mo 25.05.09 10:45

Also erstmal klinkt mir das nach dem FMOD Player. Bzw. eine Schnittstelle zu ihm.
Ich finde den aber von der Wiedergabequalität nicht so gut wie MPP. Bei dem hat man zwar leider keine Möglichkeit Streams zu übergeben aber das habe ich auch noch nicht gebraucht.

Zu deinem Problem, wenn ich das richtig verstehe willst du die Datei als Delphi Quelltext. Ich finde dass das, das einfachste vom ganzen abspielen ist.
Du öffnest die Datei einfach als Stream und ließt Byte für Byte aus und speicherst es einfach als Hexa-Zahl zusammen mit dem ganzen zeugs das es Delphi Quelltext wird in einer anderen Datei ab.
So mache ich das mit allen Ressourcen die man nicht einfach also solche aus den Exen lesen können soll.

€: da war jemand schneller ;-)

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme