diff options
Diffstat (limited to 'fernbedienung.lpr')
-rw-r--r-- | fernbedienung.lpr | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/fernbedienung.lpr b/fernbedienung.lpr index 2c568c4..e6ac9b9 100644 --- a/fernbedienung.lpr +++ b/fernbedienung.lpr @@ -10,7 +10,7 @@ uses {$ENDIF}{$ENDIF} Classes, lesethreadunit { you can add units after this }, - sysutils; + sysutils, lowlevelunit; var ttySLeser: tLeseProzess; @@ -21,9 +21,16 @@ begin repeat if ttySLeser.gibZeile(s) then begin - writeln(s); - - end; + if s='Ha!' then continue; // Startzeichen + if length(s)=2 then + if base64ToBin(s) then begin + writeln('Bits: '+s); + continue; + end; + writeln('Warnung: Kenne Kommando '''+s+''' nicht!'); + end + else + sleep(100); until false; ttySLeser.free; |