AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Fernbedienung für Lautstärkeregelung
Thema durchsuchen
Ansicht
Themen-Optionen

Fernbedienung für Lautstärkeregelung

Ein Thema von fkerber · begonnen am 28. Sep 2003 · letzter Beitrag vom 28. Sep 2003
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#1

Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 18:44
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 )

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
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von flomei
flomei

Registriert seit: 17. Jan 2003
Ort: Schieder-Schwalenberg
2.094 Beiträge
 
Delphi 2005 Personal
 
#2

Re: Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 19:13
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

P.S.: Kommunikation zwischen Client und Server könnte man mit den viel gelobten Indy´s machen.
Florian Meier
... ist raus.
Vielen Dank für die Zeit mit euch!
http://www.flomei.de -- http://www.md5hash.de
  Mit Zitat antworten Zitat
Benutzerbild von Wormid
Wormid

Registriert seit: 26. Aug 2003
Ort: Steinfurt
292 Beiträge
 
Delphi XE2 Professional
 
#3

Re: Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 19:14
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
Debuggers don't remove Bugs, they only show them in Slow-Motion.
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#4

Re: Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 19:18
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
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von flomei
flomei

Registriert seit: 17. Jan 2003
Ort: Schieder-Schwalenberg
2.094 Beiträge
 
Delphi 2005 Personal
 
#5

Re: Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 19:28
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
Florian Meier
... ist raus.
Vielen Dank für die Zeit mit euch!
http://www.flomei.de -- http://www.md5hash.de
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#6

Re: Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 19:37
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
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#7

Re: Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 19:38
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;
Thomas
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#8

Re: Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 19:45
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
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#9

Re: Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 19:53
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;
Thomas
  Mit Zitat antworten Zitat
Benutzerbild von moin339
moin339

Registriert seit: 23. Sep 2002
Ort: Hamburg
136 Beiträge
 
#10

Re: Fernbedienung für Lautstärkeregelung

  Alt 28. Sep 2003, 19:53


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
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:08 Uhr.
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