Forum: Multimedia
Delphi
by Alois,
16. Mai 2010
Und im Anhang eine kleine Demo:
Forum: Multimedia
Delphi
by Alois,
16. Mai 2010
Ich habe einen Link gefunden der mich weiter gebracht hat.
Und so geht's:
Chiptunes.RC
XMMUSIC RCDATA "music.xm"
Ausschnitt aus dem Programm:
Resource := TResourceStream.Create(HInstance, PChar('XMMUSIC'), RT_RCDATA);
GetMem(Data, Resource.Size);
Resource.Read(Data^, Resource.Size);
XMStream := BASS_MusicLoad(True, Data, 0, Resource.Size, BASS_MUSIC_STOPBACK or BASS_MUSIC_RAMP, 0);
Forum: Multimedia
Delphi
by Alois,
16. Mai 2010
Ich habe versuchsweise mal einen Pointer erstellt und mir den Memory-Dump dazu angesehen. Der Pointer verweist auf den Speicherinhalt der Musikdatei.
var
TestPtr: Pointer;
...
TestPtr := LoadFromResourceID(100, RT_RCDATA);
XMStream := BASS_MusicLoad(False, TestPtr, 0, 0, BASS_MUSIC_STOPBACK or BASS_MUSIC_RAMP, 0);
Forum: Multimedia
Delphi
by Alois,
16. Mai 2010
Hallo,
wenn ich über die bass.dll ein .XM Musikstück direkt von einer Datei abspiele funktioniert es.
Meine versuche es als Resource einzubinden und abzuspielen schlagen fehl. Hat jemand eine eine Idee was ich falsch mache?
so geht's:
BASS_Init(-1, 44100, 0, 0, nil);
XMFileName := ExtractFilePath(ParamStr(0)) + 'music.xm';
XMStream := BASS_MusicLoad(False, PChar(XMFileName), 0, 0,
...