From dd84bc61f92c87406449b4cc0865ef9bc23d96c0 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 14 Oct 2015 12:00:09 +0200 Subject: kann jetzt base64 zu binär MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- fernbedienung.lpr | 15 +++++-- fernbedienung.lps | 119 ++++++++++++++++++++++++++++++++---------------------- 2 files changed, 82 insertions(+), 52 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; diff --git a/fernbedienung.lps b/fernbedienung.lps index b709687..6111099 100644 --- a/fernbedienung.lps +++ b/fernbedienung.lps @@ -3,138 +3,161 @@ - + - - + - + + + + + + + + + + + + + + + + + - + - - + + - - + + - + - + - - + + - - + + - + - + - + - + - - + + - + - + - + - - + + - + - + - + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + + + + + + + + + -- cgit v1.2.3-70-g09d2