DBR Delphi-Ecke

{Wenn im Text das Wort AVI gegen MID ausgetauscht wird, haben Sie
das gleiche für MIDI-Files}

// Das Beispiel geht davon aus, dass eine Resource mit dem Namen "VIDEO.RES"
// bereits besteht und dort ein AVI mit dem Namen "FILM" eingetragen ist.
// Da der Mediaplayer (zur Zeit) nur Files abspielen kann,
// erfolgt eine Zwischenspeicherung.
// Siehe auch Eine EXE als Ressource einbinden

// Getestet mit D4 unter Win98

implementation 
 
{$R *.DFM} 
{$R VIDEO.RES} 
 
const datei = 'TEMP.AVI'; 
 
procedure TForm1.FormCreate(Sender: TObject); 
var tr: TResourcestream; 
begin 
  tr := tresourcestream.create(hinstance, 'FILM', 'AVI'); 
  tr.savetofile(datei); 
  tr.destroy; 
  mediaplayer1.filename := datei; 
  mediaplayer1.open; 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  if mediaplayer1.mode in [mpStopped, mpPlaying, 
    mpSeeking, mpPaused, mpOpen] 
    then begin 
    mediaplayer1.stop; 
    mediaplayer1.close; 
  end; 
end;