diff options
| -rw-r--r-- | fernbedienung.lpr | 15 | ||||
| -rw-r--r-- | 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 @@ <ProjectSession> <Version Value="9"/> <BuildModes Active="Default"/> - <Units Count="2"> + <Units Count="4"> <Unit0> <Filename Value="fernbedienung.lpr"/> <IsPartOfProject Value="True"/> - <IsVisibleTab Value="True"/> - <CursorPos Y="23"/> + <CursorPos X="20" Y="28"/> <UsageCount Value="20"/> <Loaded Value="True"/> </Unit0> <Unit1> <Filename Value="../units/lesethreadunit.pas"/> <IsPartOfProject Value="True"/> - <EditorIndex Value="1"/> + <EditorIndex Value="2"/> <TopLine Value="24"/> <CursorPos X="14" Y="44"/> <UsageCount Value="20"/> <Loaded Value="True"/> </Unit1> + <Unit2> + <Filename Value="../units/matheunit.pas"/> + <EditorIndex Value="-1"/> + <TopLine Value="22"/> + <CursorPos X="66" Y="48"/> + <UsageCount Value="10"/> + </Unit2> + <Unit3> + <Filename Value="../units/lowlevelunit.pas"/> + <IsVisibleTab Value="True"/> + <EditorIndex Value="1"/> + <TopLine Value="664"/> + <CursorPos X="39" Y="693"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit3> </Units> - <JumpHistory Count="28" HistoryIndex="27"> + <JumpHistory Count="30" HistoryIndex="29"> <Position1> - <Filename Value="fernbedienung.lpr"/> - <Caret Line="14" Column="7"/> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="23" Column="14"/> </Position1> <Position2> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="32" Column="21"/> + <Filename Value="fernbedienung.lpr"/> + <Caret Line="21" Column="23"/> </Position2> <Position3> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="43" Column="27" TopLine="12"/> + <Caret Line="13" Column="33"/> </Position3> <Position4> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="27" Column="50" TopLine="7"/> + <Caret Line="8" Column="29"/> </Position4> <Position5> - <Filename Value="fernbedienung.lpr"/> - <Caret Line="18" Column="23"/> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="37" Column="25" TopLine="16"/> </Position5> <Position6> - <Filename Value="fernbedienung.lpr"/> - <Caret Line="11" Column="11"/> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="21" Column="24"/> </Position6> <Position7> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="72" Column="36" TopLine="32"/> + <Caret Line="51" Column="3" TopLine="17"/> </Position7> <Position8> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="36" Column="4" TopLine="15"/> + <Caret Line="37" Column="31" TopLine="17"/> </Position8> <Position9> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="48" Column="8" TopLine="28"/> + <Caret Line="18"/> </Position9> <Position10> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="23" Column="14"/> + <Caret Line="36" Column="38" TopLine="13"/> </Position10> <Position11> - <Filename Value="fernbedienung.lpr"/> - <Caret Line="21" Column="23"/> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="50" Column="11" TopLine="24"/> </Position11> <Position12> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="13" Column="33"/> + <Caret Line="69" Column="22" TopLine="38"/> </Position12> <Position13> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="8" Column="29"/> + <Caret Line="46" Column="22" TopLine="32"/> </Position13> <Position14> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="37" Column="25" TopLine="16"/> + <Caret Line="53" TopLine="34"/> </Position14> <Position15> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="21" Column="24"/> + <Filename Value="fernbedienung.lpr"/> + <Caret Line="20" Column="68"/> </Position15> <Position16> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="51" Column="3" TopLine="17"/> + <Caret Line="72" Column="34" TopLine="36"/> </Position16> <Position17> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="37" Column="31" TopLine="17"/> + <Caret Line="71" Column="17" TopLine="47"/> </Position17> <Position18> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="18"/> + <Caret Line="8" Column="35"/> </Position18> <Position19> <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="36" Column="38" TopLine="13"/> + <Caret Line="66" Column="22" TopLine="44"/> </Position19> <Position20> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="50" Column="11" TopLine="24"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="82" TopLine="58"/> </Position20> <Position21> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="69" Column="22" TopLine="38"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="663" Column="2" TopLine="627"/> </Position21> <Position22> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="46" Column="22" TopLine="32"/> + <Filename Value="fernbedienung.lpr"/> + <Caret Line="19"/> </Position22> <Position23> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="53" TopLine="34"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="87" Column="3" TopLine="61"/> </Position23> <Position24> - <Filename Value="fernbedienung.lpr"/> - <Caret Line="20" Column="68"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="8" Column="61"/> </Position24> <Position25> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="72" Column="34" TopLine="36"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="85" Column="70" TopLine="66"/> </Position25> <Position26> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="71" Column="17" TopLine="47"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="86" TopLine="73"/> </Position26> <Position27> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="8" Column="35"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="687" Column="30" TopLine="647"/> </Position27> <Position28> - <Filename Value="../units/lesethreadunit.pas"/> - <Caret Line="66" Column="22" TopLine="44"/> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="689" Column="41" TopLine="650"/> </Position28> + <Position29> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="82" Column="26" TopLine="62"/> + </Position29> + <Position30> + <Filename Value="../units/lowlevelunit.pas"/> + <Caret Line="678" Column="40" TopLine="657"/> + </Position30> </JumpHistory> </ProjectSession> </CONFIG> |