Hauppauge Fernbedienung benutzen IrRemote.ini

[J Kadison]

Hallo!

Ich möchte hier mal einen Quellcode frei geben, den ich geschrieben habe um fernbedienung-befehle von Hauppauge an ein DelphiProject weiter zu leiten.

Delphi-Quellcode:

unit IrRemote;

interface

uses
  Windows, Messages, SysUtils, Forms;


type
  TRemoteKeyEvent = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure WmCommand(var Msg: TMessage); message WM_COMMAND;
  end;


const
  IR_GO       = 10;
  IR_GRNPOWER = 11;

  IR_TVNEW    = 20;
  IR_VIDEOS   = 21;
  IR_MUSIC    = 22;
  IR_PICTURES = 23;
  IR_GUIDE    = 24;
  IR_RADIO    = 25;

  IR_OK       = 30;
  IR_NAVUP    = 31;
  IR_NAVDOWN  = 32;
  IR_NAVLEFT  = 33;
  IR_NAVRIGHT = 34;

  IR_BACK     = 40;
  IR_MENU     = 41;
  IR_CHNLPREV = 42;
  IR_MUTE     = 43;

  IR_VOLUP    = 50;
  IR_VOLDOWN  = 51;
  IR_CHNLUP   = 52;
  IR_CHNLDOWN = 53;

  IR_REC      = 60;
  IR_STOP     = 61;
  IR_REWIND   = 62;
  IR_PLAY     = 63;
  IR_FASTFWD  = 64;
  IR_SKIPREV  = 65;
  IR_PAUSE    = 66;
  IR_SKIPFWD  = 67;

  IR_0        = 70;
  IR_1        = 71;
  IR_2        = 72;
  IR_3        = 73;
  IR_4        = 74;
  IR_5        = 75;
  IR_6        = 76;
  IR_7        = 77;
  IR_8        = 78;
  IR_9        = 79;

  IR_TEXT     = 80;
  IR_SUBCC    = 81;

  IR_RED      = 90;
  IR_GREEN    = 91;
  IR_YELLOW   = 92;
  IR_BLUE     = 93;


var
  RemoteKeyEvent: TRemoteKeyEvent;

implementation

{$R *.dfm}


function IrCommandPossible(Msg: TMessage): Boolean;
const
  IR_PARAM    = 273;
  // muss eventuell angepasst werden
  // Besteht aus Msg.Msg
begin
  Result := (
             (Msg.Msg = IR_PARAM) and  // evtl. löschen wenn sonst nicht geht 
             (Msg.LParam = 0)     and
             (Msg.WParam > 9)     and
             (Msg.WParam < 100)  );
end;

procedure TRemoteKeyEvent.WmCommand(var Msg: TMessage);
var
  RemoteKey: Byte;
begin
  if IrCommandPossible(Msg) then
  begin
    RemoteKey := Msg.WParam;

{Hier Quellcode einfügen}
{Insert Quellcode here}

    Case RemoteKey of
      IR_VIDEOS   : {procedure/Command};
      IR_GRNPOWER : {procedure/Command};
      {...}
    end;


{Hier Quellcode Ende}
{Stop Insering Quellcode}
    
  end;
end;


end.

Damit eure Fernbedienung auch die richtigen Commands an euer Programm weiter leitet müsst ihr noch folgendes in die IrRemote.ini einfügen.
die sollte sich unter "C:\Windows\IrRemote.ini" befinden.

Bei den Tasten, die an euer Programm weiter geleitet werden sollen müsst ihr das Semikolon vorher entfernen.

Code:

[Programmname]
;GO={cmd(10)}
;GRNPOWER={cmd(11)}
;
;TVNEW={cmd(20)}
;VIDEOS={cmd(21)}
;MUSIC={cmd(22)}
;PICTURES={cmd(23)}
;GUIDE={cmd(24)}
;RADIO={cmd(25)}
;
;OK={cmd(30)}
;NAVUP={cmd(31)}
;NAVDOWN={cmd(32)}
;NAVLEFT={cmd(33)}
;NAVRIGHT={cmd(34)}
;
;BACK={cmd(40)}
;MENU={cmd(41)}
;CHNLPREV={cmd(42)}
;MUTE={cmd(43)}
;
;VOLUP={cmd(50)}
;VOLDOWN={cmd(51)}
;CHNLUP={cmd(52)}
;CHNLDOWN={cmd(53)}
;
;REC={cmd(60)}
;STOP={cmd(61)}
;REWIND={cmd(62)}
;PLAY={cmd(63)}
;FASTFWD={cmd(64)}
;SKIPREV={cmd(65)}
;PAUSE={cmd(66)}
;SKIPFWD={cmd(67)}
;
;0={cmd(70)}
;1={cmd(71)}
;2={cmd(72)}
;3={cmd(73)}
;4={cmd(74)}
;5={cmd(75)}
;6={cmd(76)}
;7={cmd(77)}
;8={cmd(78)}
;9={cmd(79)}
;
;TEXT={cmd(80)}
;SUBCC={cmd(81)}
;
;RED={cmd(90)}
;GREEN={cmd(91)}
;YELLOW={cmd(92)}
;BLUE={cmd(93)}

WICHTIG:
Damit die Fernbedienung die befehle sendet, muss euer DelphiProject (bzw. Die Form) im Vordergrund sein.


Viel Spass mit dem Quellcode
Bei Fragen stehe ich gerne zur Verfügung