summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--fernbedienung.lpr15
-rw-r--r--fernbedienung.lps119
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>