kann jetzt base64 zu binär

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>