Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Fernbedienung für Lautstärkeregelung (https://www.delphipraxis.net/9535-fernbedienung-fuer-lautstaerkeregelung.html)

fkerber 28. Sep 2003 18:44


Fernbedienung für Lautstärkeregelung
 
Hi!

Mir stellt sich folgendes Problem:

Ich hab zuhause ein Netzwerk zwischen meinem normalen Computer und meinem Laptop!

Jetzt hätte ich gerne ein Programm, dass es mir ermöglicht von meinem Laptop aus ein Programm auf meinem normalen Rechner zu steuern, dass dann Lautstärke, nächster Titel etc. des Mediaplayers regeln kann! (Grund: Ich bin zu faul zum Aufstehen :lol: )

Ich will also sozusagen meinem laufenden Programm auf dem Rechner eine Nachricht schicken, dass er die Lautstärke hochdrehen soll!

Geht das und wenn ja, wie geht das?

Danke schonmal im Vorraus!

ciao fkerber

flomei 28. Sep 2003 19:13

Re: Fernbedienung für Lautstärkeregelung
 
Ich denke dass geht. Du musst doch eigentlich nur ein Client und ein Server Programm haben. Dann schickst du vom Server auf deinem Laptop an den Client den Befehl "Mach lauter die Mucke!" und der Client regelt dann per API oder was weiss ich die Lautstärke hoch. Sollte wohl irgendwie gehen...

MfG Florian :hi:

P.S.: Kommunikation zwischen Client und Server könnte man mit den viel gelobten Indy´s machen.

Wormid 28. Sep 2003 19:14

Re: Fernbedienung für Lautstärkeregelung
 
Für Winamp (2 und 3) scheint es Plugins zu geben, die eine Fernbedienung für Winamp, meist über ein Web-Interface, zur verfügung stellen. Einfach mal auf der Winamp-Homepage bei den Plugins nach "web" suchen...

Gruß

Wormid

fkerber 28. Sep 2003 19:18

Re: Fernbedienung für Lautstärkeregelung
 
Hi!

Danke erstmal!
Schaue mir das mit den Indys an!

Danke auch für den Tipp mit Winamp!

Weiß jemand wie das mit dem Mediaplayer geht?
Z.B die Tastaturen von logitech können das ja! Es müsste also gehen ...

Ciao fkerber

flomei 28. Sep 2003 19:28

Re: Fernbedienung für Lautstärkeregelung
 
Für WinAMP 3 gibt es noch kein SDK. Kannst aber mal hier danach gucken. WinAMP 2.x kannst du auch mit den JEDI´s fernsteuern. Soweit ich weiss beinhalten Sie eine Komponente mit der das geht. Ansonsten hilft dir ja auch Torry ;)

Die Logitech (und M$) Tastaturen können das auch, da hast du Recht. Wie die das machen wüsst ich auch gerne aber ich denke mal die erhöhen vielleicht die "Systemlautstärke" ?!?

MfG Florian :hi:

fkerber 28. Sep 2003 19:37

Re: Fernbedienung für Lautstärkeregelung
 
Hi!

Ja, bei der Lautstärke geht das vielleicht schon, aber es gibt ja auch
Start, Stopp, nächster Titel, Titel zurück!

Ciao fkerber

toms 28. Sep 2003 19:38

Re: Fernbedienung für Lautstärkeregelung
 
Hi!

Dem Mediaplayer kannst du folgende Tasten schicken:

F10: Erhöhen der Lautstärke.
F9: Verringern der Lautstärke.

Bsp:

Delphi-Quellcode:
var
 wnd: HWND;
begin
  wnd := FindWindow('WMPlayerApp',nil);
  if IsWindow(wnd) then
    PostMessage(wnd, WM_KEYDOWN, VK_F10, 0);
end;

fkerber 28. Sep 2003 19:45

Re: Fernbedienung für Lautstärkeregelung
 
Hi!

Danke @toms.

Stimmt ich kann ja einfach die Tasten schicken!
Geht das auch, dass ich Strg und P schicken kann (also gleichzeitig)?

ciao fkerber

toms 28. Sep 2003 19:53

Re: Fernbedienung für Lautstärkeregelung
 
Zitat:

Geht das auch, dass ich Strg und P schicken kann (also gleichzeitig)?
Geht. Aber bedingt. Dazu muss der MediaPlayer im Vordergrund sein.
Beispiel:

Delphi-Quellcode:
procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);
type
  TShiftKeyInfo = record
    shift: Byte;
    vkey: Byte;
  end;
  byteset = set of 0..7;
const
  shiftkeys: array [1..3] of TShiftKeyInfo =
    ((shift: Ord(ssCtrl); vkey: VK_CONTROL),
    (shift: Ord(ssShift); vkey: VK_SHIFT),
    (shift: Ord(ssAlt); vkey: VK_MENU));
var
  flag: DWORD;
  bShift: ByteSet absolute shift;
  i: Integer;
begin
  for i := 1 to 3 do
  begin
    if shiftkeys[i].shift in bShift then
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
  end; { For } 
  if specialkey then
    flag := KEYEVENTF_EXTENDEDKEY
  else
    flag := 0;

  keybd_event(key, MapvirtualKey(key, 0), flag, 0);
  flag := flag or KEYEVENTF_KEYUP;
  keybd_event(key, MapvirtualKey(key, 0), flag, 0);

  for i := 3 downto 1 do
  begin
    if shiftkeys[i].shift in bShift then
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0),
        KEYEVENTF_KEYUP, 0);
  end; { For }
end; { PostKeyEx32 }


procedure TForm1.Button1Click(Sender: TObject);
var
wnd: HWND;
begin
  wnd := FindWindow('WMPlayerApp',nil);
  SetForeGroundWindow(wnd);
  if IsWindow(wnd) then
   // Strg + P simulieren
   PostKeyEx32(Ord('P'), [ssctrl], False);
end;

moin339 28. Sep 2003 19:53

Re: Fernbedienung für Lautstärkeregelung
 
:hi:

Wenn du keine Lust hast das selber zu proggen benutz doch einfach VNC. Ist umsonst und du kannst damit den ganzen PC steuern.

ciao, moin339


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:27 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz