Audio Resource mit Windows Mediaplayer wiedergeben

[TiGü]

Bringt es was, wenn du _ResourceStream.Position := 0; vor dem Abspielen setzt?

[TiGü]

Moment mal, an welcher Stelle erfolgt denn die Verknüpfung zwischen den Resourcestream und dem MediaPlayer?
Zeig doch mal bitte deinen richtigen und gesamten Quelltext.

[BlackSnag]

Wie oben schon erwähnt komm ich die beiden einfach nicht auf einen gemeinsamen Nenner.

deswegen gibt es auch noch keine Zuweisung.

Und wegen dem Quelltext.
Das ist eigentlich der Ganze Quelltext, ich hab nur die Funktionen zum Lautsterke regeln und zum beenden weckgelassen, weil die mit dem Problem Garnichts zu tun haben können.

[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]

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