Modtage fra fjernbetjening

Det skulle ikke undre mig, hvis computeren opfatter tryk på fjernbetjeningen som tryk på tastaturet. Lad os prøve at tjekke en gang:

Prøv at lave et nyt Delphi-projekt, og indsæt en TLabel, label1, et synligt sted på formen.

Indsæt dernæst følgende i formens OnKeyDown:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  S: String;
begin
  // Vi sikrer os, at der ikke er nogle tegn i S:
  S := '';

  //Hvis Ctrl-tasten bliver holdt nede, så tilføj den til S:
  if ssCtrl    in Shift then
    S := 'Ctrl + ';
  //Hvis Alt-tasten bliver holdt nede, så tilføj den til S:
  if ssAlt in Shift then
    S := S + 'Alt + ';

  //Hvis Shift-tasten bliver holdt nede, så tilføj den til S:
  if ssShift in Shift then
    S := S + 'Shift + ';

  // Hvis Key er Ctrl, Alt eller Shift, står det allerede i S:
  if (Key in [16..18]) then
    // Sæt Label1's Caption til S minus de sidste 3 tegn der er et '+' med mellemrum på begge sider:
    Label1.Caption := Copy(S, 1, Length(S) - 3)
  // Hvis ikke Key er Ctrl, Alt eller Shift:
  else
    // Sæt Label1's Caption til S + værdien af Key:
    Label1.Caption := S + IntToStr(Key);
end;


Kør programmet, og prøv at trykke lidt på forskellige taster på fjernbetjeningen. Ændres teksten på Label1?

Der sker desværre ingenting...

>>AASuper

prøv at gå ind i enhedshåndtering, der må du jo have dit tvkort som en enhed, åben den, se hvilke porto den bruger. Hvis der er nogle kan du måske læse dem direkte derfra.

Inde under enhedshåndtering findes udover selve tv-kortet også en "IR Decoder" til kortet - det må jo være den, der er fjernbetjeningen. Jeg kan ikke se andet, end at den er placeret på PCI-slot 5 (PCI-bus 0, enhed 12, funktion 1)...

>>AASuper

har den ingen ressourcer?

Under ressourcer finder jeg:
Hukommelsesområde E2000000-E2FFFFFF, IRQ 16.


>>AASuper

men den har ingen I/O område? hvad med selv kortet

Ingen af dem har I/O-område.

>>AASuper

Nå, jeg har fundet ud af det selv. Det viser sig, at der med driveren fulgte en fil IRRemote.dll, som indeholder funktioner, som løser mit problem...

Men I skal have mange tak for opmærksomheden alligevel.

>>AASuper

Hvordan løser IRRemote.dll dit problem... jeg er nysgerring :-)

Michael

Det viste sig, at IRRemote.Dll indeholdt tre funktioner, som kan defineres således:

function IR_Open (value1, value2, value3, value4: Integer): Integer; stdcall; external 'IRRemote.dll';
function IR_Close (value1, value2: Integer): Integer; stdcall; external 'IRRemote.dll';
function IR_GetKeyCode (var value: Integer): Integer; stdcall; external 'IRRemote.dll';


Fjernbetjeningen initialiseres ved
IR_OPEN(0, 1, 0, 0)
Den kommer ud med heltallet '1', hvis den er initialiseret ok.

Så kan du lukke den sådan:
IR_Close(0, 0)
Den kommer ud med heltallet '1', hvis den er lukket ok.

Og så havde jeg en timer kørende med et passende interval (500-1000 ms):

procedure TForm1.Timer1Timer(Sender: TObject);
var
tal, resultat: integer;
begin
tal:=1;

try resultat:=IR_GetKeyCode(tal) and 255;
      except on EAccessViolation do begin  timer1.enabled:=false; showmessage('Fejl'); end ;end;

if resultat<>255 then
memo1.Lines.add(inttostr(resultat));
end;



Håber, det mættede din nysgerrighed.

>>AASuper

hehe... TAK!

Michael