auf irDecoder-Unit umgestellt

1 files changed, 5 insertions, 18 deletions

diff --git a/fernbedienung.lpr b/fernbedienung.lpr
index 1c86644..48d49be 100644
--- a/fernbedienung.lpr
+++ b/fernbedienung.lpr
@@ -10,32 +10,19 @@ uses
   {$ENDIF}{$ENDIF}
   Classes, lesethreadunit
   { you can add units after this },
-  sysutils, lowlevelunit;
+  sysutils, lowlevelunit, irdecoderunit;
 
 var
-  ttySLeser: tLeseProzess;
-  s:         string;
+  irDecoder: tIRDecoder;
 
 begin
-  ttySLeser:=tLeseProzess.create(paramstr(1),1);
+  irDecoder:=tIRDecoder.create(paramstr(1));
 
   repeat
-    if ttySLeser.gibZeile(s) then begin
-      if s='Ha!' then begin
-        writeln('Empfänger hat sich gemeldet!');
-        continue; // Startzeichen
-      end;
-      if length(s)=3 then
-        if base64ToBin(s) then begin
-          writeln('Bits: '+s);
-          continue;
-        end;
-      writeln('Warnung: Kenne Kommando '''+s+''' nicht!');
-    end
-    else
+    if not irDecoder.zeileVerarbeitet then
       sleep(100);
   until false;
 
-  ttySLeser.free;
+  irDecoder.free;
 end.