Midi File abspielen ?

[Invader]

Wie kann ich eine Midi File, welche in einer Resource ist endlos abspielen?
Wie mache ich diese Resource?

[DBR]

Du erstellst eine einfache Textdatei mit der Endung *.RC (z.B. MIDIS.RC). In die Datei schreibst Du sowas wie

SONG1 MID C:\SONGS\LIED.MID

Diese Datei wird der BRCC32.EXE als Parameter übergeben und so zu MIDIS.RES übersetzt. Diese Resource fügst Du in Dein Programm ein, z.B.:

...
var
Form1: TForm1;

implementation

{$R *.DFM}
{$R MIDIS.RES}
...

Beim Ausführen des Programms muß die Datei zwischengespeichert werden:

const datei='TEMP.mid';

procedure TForm1.FormCreate(Sender: TObject);
var tr:TResourcestream;
begin
tr:=tresourcestream.create(hinstance,'SONG1','MID' );
tr.savetofile(datei);
tr.destroy;
mediaplayer1.filename:=datei;
mediaplayer1.open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mediaplayer1.close;
deletefile(datei);
end;

gruss DB