Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Frage zu TMediaplayer


Hybrid - So 23.05.04 16:01
Titel: Frage zu TMediaplayer
Wie kann ich mit dem Mediaplayer eine wav Datei aus einer Ressourse Datei laden?
Und Ja, ich habe im Forum gesuch, aber nur was zu playsound(...) gefunden. Ich muss aber den Mediaplayer benutzten, allerdings steht auch in der Delphi Hilfe nichts davon.

Achja die rc:

Quelltext 
1:
 
11 Sound "run.wav"


mfg Andreas S.


Hybrid - So 23.05.04 19:38
Habs selbst herausgefunden:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
 
procedure TForm4.FormCreate(Sender: TObject); 
var 
FindHandle, ResHandle: THandle; 
  ResPtr: Pointer; 
begin 
FindHandle:=FindResource(HInstance, '11', 'Sound'); 
  if FindHandle<>0 then begin 
    ResHandle:=LoadResource(HInstance, FindHandle); 
    if ResHandle<>0 then begin 
      ResPtr:=LockResource(ResHandle); 
      if ResPtr<>Nil then 
        mediaplayer1.FileName:=PChar(ResPtr); 
      UnlockResource(ResHandle); 
    end; 
    FreeResource(FindHandle); 
  end; 
end; 
end.


Hybrid - So 23.05.04 20:58
Hab mich geirrt (im Objektinspektor war noch die Datei angegeben :oops: ), es klappt doch nicht. :(

Also: Wenn einem von euch einfällt wie man das hinkriegt wäre ich ihm sehr dankbar.

mfg Andreas S.


Hybrid - Mo 24.05.04 14:28
Kommt schon Leute! Das muss doch einer wissen. Ich komm jetzt nicht mehr weiter ohne diese Info!

Bitte :bawling:

Edit:

Kann oder will mir hier keiner helfen? :?!?:


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!