midi's in eine dll packen und wieder abspielen

[ferby]

Hallo,


ich finde einfach keine Antwort im Forum, also mein Problemm:

Ich habe ein Spiel programmiert mit 10 midi datein. Ich will daraus jetzt eine dll datei machen und die sounds dann von der exe datei aus abspielen.

meine frage
Wie bekomme ich diese 10 midis in eine dll-datei?


ferby

[Ultimator]

Mit ner Ressourcendatei.
Extrahieren könntest du sie mit nem TResourceStream.

[ferby]

Hallo,

ich habe jetzt im Forum gesucht aber nichts gefunden.
Wie ich midis in den resource einer exe datei bekomme weiß ich, aber wie öffne ich die?


Ich will das so machen

mediaplayer1.FileName := von resource midi 1 laden;
mediaplayer1.Open;
mediaplayer1.Play;

ich kapier das mit TResourceStream nicht, im forum sind da nur antworten wie man bilder öffnet, keine midis, wie mach ich das?

ferby

[turboPASCAL]

Ein Midi-File an den Media Player zu übergeben ist nicht so einfach glaube ich.
Der Mediaplayer will eine komplette Datei.
Ich hatte auch schon mal so eine Idee und beim googeln fand ich dann Fachcinesisch :-)


http://forum.nifty.com/fdelphi/samples/00708.html

[ferby]

Hallo,

Wiso geht das so schwer?

Muss ich nicht einfach nur die datei entpacken? (<-- das weiß ich nicht wie ich das mache)
Dann kann ich sie ganz normal abspielen, oder stell ich mir das zu einfach vor?


ferby

[turboPASCAL]

Hi, so könnte es funktionieren eine resource aus einer exe bzw. Dll in den Mediaplayer zu laden

Delphi-Quellcode:

procedure ...
var
  Path : String;
  Res  : TResourceStream;
  handle: THandle;
begin
  Path:=ExtractFilePath(Application.ExeName);                 // Path der Exe ermitteln
  if Path[Length(Path)] <> '\' then Path := Path +'\';        // Backslash am Pathende?
  
  handle := LoadLibrary('SampleTest.dll');                    // DLL laden
  if handle = 0 then                                          // Prüfen ob die DLL geladen ist
  begin
    ShowMessage('Laden fehlgeschlagen');
    Exit;
  end;

  //Res:=TResourceStream.Create(handle,'MYMIDI','MIDI_DATA');  // Resource aus DLL laden
  Res:=TResourceStream.Create(hInstance,'MYMIDI','MIDI_DATA'); // Resource aus Exe laden
  Try
    Res.SaveToFile(Path + 'TmpSample.mid');                    // File auf HD speichern
    MediaPlayer1.Filename :=  Path + 'TmpSample.mid';          // MPlayer File laden
    MediaPlayer1.Play;                                         // Sound abspielen
  Finally
    Res.Free;                                                  // Resource freigeben
    FreeLibrary(handle);                                       // DLL aus dem Speicher freigeben   
  end;
end;

Die Resourcentextdatei (.RC):

Delphi-Quellcode:

MyMIDI MIDI_DATA "Sample.mid"
MyMIDI2 MIDI_DATA "Sample2.mid"
...

MfG.