neue Datei: irdecoderunit.pas

1 files changed, 62 insertions, 0 deletions

diff --git a/irdecoderunit.pas b/irdecoderunit.pas
new file mode 100644
index 0000000..1234678
--- /dev/null
+++ b/irdecoderunit.pas
@@ -0,0 +1,62 @@
+unit irdecoderunit;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, lesethreadunit, lowlevelunit;
+
+type
+  tIRDecoder = class
+  private
+    ttySLeser: tLeseProzess;
+  public
+    constructor create(inputName: string);
+    destructor destroy; override;
+    function zeileVerarbeitet: boolean;
+  end;
+
+implementation
+
+// tIRDecoder ******************************************************************
+
+constructor tIRDecoder.create(inputName: string);
+begin
+  inherited create;
+  ttySLeser:=tLeseProzess.create(inputName,1);
+end;
+
+destructor tIRDecoder.destroy;
+begin
+  ttySLeser.free;
+  inherited destroy;
+end;
+
+function tIRDecoder.zeileVerarbeitet: boolean;
+var
+  s:      string;
+  inByte: longint;
+begin
+  result:=ttySLeser.gibZeile(s);
+  if not result then exit;
+
+  if s='Ha!' then begin // Startzeichen
+    writeln('Empfänger hat sich gemeldet!');
+    exit;
+  end;
+
+  if (length(s)=3) and base64Decode(s,inByte) then begin
+    if not base64ToBin(s) then
+      raise exception.create('interner Fehler: base64ToBin meckert, base64Decode aber nicht!');
+
+    writeln('Bits: '+s+' '+hexDump(@inByte,sizeof(inByte)));
+    // verarbeiten!
+    exit;
+  end;
+
+  writeln('Warnung: Kenne Kommando '''+s+''' nicht - komisch formatiert!');
+end;
+
+end.
+