Midi-Dateien einbinden und abspielen

[arnoldo]

DANKE, ES FUNKTIONIERT!!!!

*freu*

hier meine etwas übersichtlichere Lösung:

unit1.pas

Delphi-Quellcode:

...
implementation

const filename='~temp.mid';

{$R *.dfm}
{$R Test.res}

// DER WICHTIGSTE TEIL -> DAS TEMPORÄRE ABSPEICHERN
{$WARNINGS OFF}
PROCEDURE TForm1.Res2Temp;
VAR
  RS: TCustomMemoryStream;
  S : STRING;
BEGIN
  S := 'Sound1'; {Name der Resource}
  TRY
    RS := TResourceStream.Create(hInstance, S, 'MIDIFILE');
    RS.SavetoFile(filename);
  FINALLY
    RS.Free;
  END;
END;
{$WARNINGS ON}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Res2Temp(form1); {Midi-File wird ausgelagert -> ~temp.mid}
 MCISendString(PChar('play '+ filename), nil, 0, 0); {und abgespielt}
end;

procedure TForm1.BitBtn1Click(Sender: TObject); {Stop-Button}
begin
 MCISendString(PChar('stop ' + Filename), nil, 0, 0);
end;

procedure TForm1.ende(Sender: TObject; {Ende}
var Action: TCloseAction);
begin
 if fileexists(filename) then deletefile(filename);
 MCISendString(PChar('stop ' + Filename), nil, 0, 0);
 MCISendString('close sound', nil, 0, 0);
end;

end.

und hier die 'Test.rc':
sound1 MIDIFILE eyeofthetiger.mid [Edit=FuckRacism]Delphi-Tags[/Edit]