Audio Resource mit Windows Mediaplayer wiedergeben

[EWeiss]

Du benötigst einen FileStream um die Datei abspielen zu können.
Das bedeutet du musst vorher die Datei aus der Resource extrahieren auf die Platte speichern anschließend
kannst du die Datei zum Mediaplayer Assign(Zuordnen) und abspielen.

Delphi-Quellcode:

var
  fname: string;
  fStream: TFileStream;
...
fname := ExtractFileDir(Paramstr(0))+ Name;
_ResourceStream := TResourceStream.Create(HInstance, Name, RT_RCDATA);
try
  fStream := TFileStream.Create(fname, fmCreate);
  try
    fStream.CopyFrom(_ResourceStream, 0);
  finally
    fStream.Free;
  end;
finally
  _ResourceStream.Free;
end;

MediaPlayer1.Close;  
MediaPlayer1.FileName:= fname;  
MediaPlayer1.Open;

end;

Davon ab
_wmpMediaPlayer.Url := AudioFileName;

ist falsch.
_wmpMediaPlayer.FileName wäre korrekt.

gruss

[BlackSnag]

Das würde Funktionieren.

Leider soll das Programm auch laufen können wenn du keine Schreibrechte hast.
Spätesten an diesem Punkt hätte man Probleme.

Trotzdem danke für die Idee.

[EWeiss]

Zitat von BlackSnag:

Das würde Funktionieren.

Leider soll das Programm auch laufen können wenn du keine Schreibrechte hast.
Spätesten an diesem Punkt hätte man Probleme.

Trotzdem danke für die Idee.

Dann verwende keinen MediaPlayer sondern MMSystem.

Delphi-Quellcode:

uses mmsystem;

procedure TForm1.Button1Click(Sender: TObject); 
var   
  hFind, hRes: THandle;   
  Song: PChar; 
begin  
  hFind := FindResource(HInstance, 'MainSongNameInDerResource', 'WAVE');  
  if hFind <> 0 then 
  begin    
    hRes := LoadResource(HInstance, hFind);    
    if hRes <> 0 then 
    begin      
      Song := LockResource(hRes);      
      if Assigned(Song) then 
        SndPlaySound(Song, snd_ASync or snd_Memory);      
      UnlockResource(hRes);    
    end;    
    FreeResource(hFind);  
  end; 
end;

[TiGü]

Zitat von BlackSnag:

Das würde Funktionieren.

Leider soll das Programm auch laufen können wenn du keine Schreibrechte hast.
Spätesten an diesem Punkt hätte man Probleme.

Trotzdem danke für die Idee.

Speichere das doch einfach ins Temp-Verzeichnis (System.IOUtils.TPath.GetTempPath) und lösche es hinterher.
Es ist völlig legitim, dass portable Programme für derartige Zwecke etwas irgendwohin zwischenspeichern und hinterher wieder aufräumen.

[BlackSnag]

Danke für die Hilfe.
Funktioniert jetzt wunderbar.

Grüße

BlackSnag

[t.roller]

Mit einem kleinen Trick (RIFF-Header vor ein MP3-File setzen) funktioniert es auch mit Streams.

http://www.delphipraxis.net/359108-post13.html
http://www.delphipraxis.net/attachme...fo.src_172.zip

[t.roller]

Zitat von EWeiss:

Davon ab
_wmpMediaPlayer.Url := AudioFileName; ist falsch.
_wmpMediaPlayer.FileName wäre korrekt.

gruss

TWindowsMediaPlayer aus WMPLib_TLB.pas ist "etwas" anders und hat andere Befehle als der eingebaute TMediaPlayer.

[EWeiss]

Zitat von t.roller:

Zitat von EWeiss:

Davon ab
_wmpMediaPlayer.Url := AudioFileName; ist falsch.
_wmpMediaPlayer.FileName wäre korrekt.

gruss

TWindowsMediaPlayer aus WMPLib_TLB.pas ist "etwas" anders und hat andere Befehle als der eingebaute TMediaPlayer.

OK.. Ist ja kein Beinbruch.
Destotrotz hat eine Datei auf der Platte nicht's mit ner URL gemein.

gruss

[BlackSnag]

Zitat von EWeiss:

Zitat von t.roller:

Zitat von EWeiss:

Davon ab
_wmpMediaPlayer.Url := AudioFileName; ist falsch.
_wmpMediaPlayer.FileName wäre korrekt.

gruss

TWindowsMediaPlayer aus WMPLib_TLB.pas ist "etwas" anders und hat andere Befehle als der eingebaute TMediaPlayer.

OK.. Ist ja kein Beinbruch.
Destotrotz hat eine Datei auf der Platte nicht's mit ner URL gemein.

gruss

Wenn das Audio File im selben Verzeichnis wie die exe befinde funktioniert es mit der URL.

Des weiteren hat TWindowsMediaPlayer kein FileName, somit kann ich es nicht zuweisen.

Ich gebe zu AudioFileName ist nicht ganz zutreffen, eigentlich müsste es AudioFilePath heißen.

Den TMediaPlayer kann ich nicht benutzen, da er teilweise gar nicht oder nur schlecht die Lautsterke regeln kann. Ich muss sie sogar während des Abspielens ändern können.