Entwickler-Ecke
Windows API - Windows Media Player ansprechen
elundril - Mo 22.05.06 17:37
Titel: Windows Media Player ansprechen
Ich will das auf Buttonklick der Windows Media Player Play,Reward,Forward,Pause und Stop "macht".
Ps: Forumsuche erfolglos!
Ich hab schon versucht das tutorial vom Winamp so zu verändern das es geht aber ich brings nicht!!! :bawling:
Moderiert von 
raziel: Topic aus Dateizugriff verschoben am Di 23.05.2006 um 21:31
elundril - Mo 22.05.06 17:53
vielen Dank!! muss ich dort noch was dazuprogrammieren oder läuft es schon???
Born-to-Frag - Mo 22.05.06 18:02
Siehst du denn irgendwo ein fertiges Programm dort? Also was soll denn schon 'laufen'? :roll:
elundril - Di 23.05.06 11:40
ich meinte ob ichs 1zu1 übernehmen kann oder was dazu schreiben muss.
aber ich muss was dazuschreiben! das Windowhandle oder?? wie mach ich das???
Born-to-Frag - Di 23.05.06 11:49
Naja, zumindest mal das Handle von deinem MediaPlayer (Ist da übrigens beschrieben). Habs jetzt aber nicht getestet ob es funktioniert ;)
elundril - Di 23.05.06 11:54
und wie mach ich das mim Handle??? ich hab null ahnung!!!!
elundril - Di 23.05.06 21:26
wie finde ich das handle für den Windows media player heraus??? bitte!!! ich brauch das!!!!! :bawling:
rjan - So 13.08.06 21:51
Titel: falls die suche nach dem mediaplayer steuerung diongs
Hi leute ich hab mich gerade durch den wmp-Kram gefressen ... um diesen so häufig gesuchten steuerungs Quelltext zu liefern schaut mal her:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| const APPCOMMAND_MEDIA_NEXTTRACK = $B0000;
APPCOMMAND_MEDIA_PREVIOUSTRACK = $C0000;
APPCOMMAND_MEDIA_STOP = $D0000;
APPCOMMAND_MEDIA_PLAY_PAUSE = $E0000;
procedure TForm1.Button1Click(Sender: TObject);
var wnd: HWND;
begin
wnd := FindWindow('WMPlayerApp', 'Windows Media Player'); wnd := FindWindowEx(wnd, 0, 'WMPAppHost', 'WMPAppHost');
if wnd <> 0 then
begin
Sendmessage(wnd, $00319, 0, APPCOMMAND_MEDIA_PREVIOUSTRACK);
end;
end; |
AndiG - Sa 19.08.06 11:00
ich hätt dazu ma ne frage! un zwar gibt es ne möglichkeit auch die lautstärke des WMP dadurch zu steuern?#
Danke
MFG AndiG
Gausi - Sa 19.08.06 12:03
Klar gibts die. Dafür gibts die Konstanten
Delphi-Quelltext
1:
2:
3:
| APPCOMMAND_VOLUME_MUTE = $80000;
APPCOMMAND_VOLUME_DOWN = $90000;
APPCOMMAND_VOLUME_UP = $a0000; |
AndiG - Sa 19.08.06 15:03
ahhh dankedankedanke!!! danach bin ich schon ne woche auf der suche!
vielen dank!
MFG Andi
rjan - Sa 19.08.06 17:31
Folge : der Quelltext sieht jetzt so aus ::::
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| const
APPCOMMAND_VOLUME_MUTE = $80000;
APPCOMMAND_VOLUME_DOWN = $90000;
APPCOMMAND_VOLUME_UP = $a0000;
APPCOMMAND_MEDIA_NEXTTRACK = $B0000;
APPCOMMAND_MEDIA_PREVIOUSTRACK = $C0000;
APPCOMMAND_MEDIA_STOP = $D0000;
APPCOMMAND_MEDIA_PLAY_PAUSE = $E0000;
procedure TForm1.Button1Click(Sender: TObject);
var wnd: HWND;
begin
wnd := FindWindow('WMPlayerApp', 'Windows Media Player'); wnd := FindWindowEx(wnd, 0, 'WMPAppHost', 'WMPAppHost');
if wnd <> 0 then
begin
Sendmessage(wnd, $00319, 0, APPCOMMAND_MEDIA_PREVIOUSTRACK);
end;
end; |
Wenn jetzt jemand noch ne Idee hat wie man den Titel .... des aktuell gespielten Tracks heraus bekommt wäre ich sehr dankbar den Quelltext zu bekommen...
Danke
NetSpider - Do 01.03.07 08:32
Hat auch jemand ne Ahnung, wie man dem Player sagen kann, dass er in den Vollbild-Modus wechseln soll?
Danke - NetSpider
bnessler - Do 01.03.07 10:28
Hallo,
man kann den Mediaplayer auch direkt einbinden und steuern. Man kommt dann zu den Titeln einer CD etwa wie folgt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
| ....
WindowsMediaPlayer1: TWindowsMediaPlayer;
....
function TfrmMain.cddvd(cddvd: Integer): Boolean;
var
LThePlayList: IWMPPlaylist;
Genre: string;
md: IWMPMedia;
loop :Integer;
begin
LThePlayList := WindowsMediaPlayer1.cdromCollection.Item(0).Playlist;
genre := LThePlayList.getItemInfo('WM/Genre');
Windowsmediaplayer1.currentPlaylist := LThePlaylist;
md := WindowsMediaPlayer1.currentMedia;
Contentid := md.getItemInfo('WM/WMContentID');
LabelAlbumTitel.Caption := LThePlayList.name + ' / ' + LThePlayList.getItemInfo('Artist') + ' / Genre: ' + genre;
for Loop := 0 to LThePlayList.Count - 1 do
begin
titelgrid.RowCount := Loop + 1;
titelgrid.Cells[0, Loop] := IntToStr(Loop + 1);
titelgrid.Cells[1, Loop] := LThePlayList.Item[Loop].name;
titelgrid.Cells[2, Loop] := LThePlayList.Item[Loop].getItemInfo('Artist');
titelgrid.Cells[3, Loop] := LThePlayList.Item[Loop].durationString;
titelgrid.Cells[4, Loop] := LThePlayList.Item[Loop].sourceURL;
end;
end; |
hab ich aus meinem Code rauskopiert, das wesentliche sollte drin sein.
Gruß
Bernhard
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!