fernbedienung.lpr


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

program fernbedienung;

{$mode objfpc}{$H+}

{$DEFINE UseCThreads}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, lesethreadunit
  { you can add units after this },
  sysutils, lowlevelunit, irdecoderunit;

var
  irDecoder: tIRDecoder;
  nixZuTun:  boolean;

begin
  irDecoder:=tIRDecoder.create(paramstr(1));

  repeat
    nixZuTun:=not irDecoder.zeileVerarbeitet;
    nixZuTun:=(not irDecoder.befehlVerarbeitet) and nixZuTun;
    if nixZuTun then
      sleep(100);
  until false;

  irDecoder.free;
end.