From 128502efaf5a5d472a6c904368e97615f48efd15 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 14 Oct 2015 11:46:09 +0200 Subject: kann jetzt lesen --- fernbedienung.lpi | 84 ++++++++++++++++++++++++++++++++ fernbedienung.lpr | 31 ++++++++++++ fernbedienung.lps | 140 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 255 insertions(+) create mode 100644 fernbedienung.lpi create mode 100644 fernbedienung.lpr create mode 100644 fernbedienung.lps diff --git a/fernbedienung.lpi b/fernbedienung.lpi new file mode 100644 index 0000000..ba21e25 --- /dev/null +++ b/fernbedienung.lpi @@ -0,0 +1,84 @@ + + + + + + + + + + + + + <UseAppBundle Value="False"/> + <ResourceType Value="res"/> + </General> + <i18n> + <EnableI18N LFM="False"/> + </i18n> + <VersionInfo> + <StringTable ProductVersion=""/> + </VersionInfo> + <BuildModes Count="1"> + <Item1 Name="Default" Default="True"/> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + </PublishOptions> + <RunParams> + <local> + <FormatVersion Value="1"/> + </local> + </RunParams> + <Units Count="2"> + <Unit0> + <Filename Value="fernbedienung.lpr"/> + <IsPartOfProject Value="True"/> + </Unit0> + <Unit1> + <Filename Value="../units/lesethreadunit.pas"/> + <IsPartOfProject Value="True"/> + </Unit1> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <Target> + <Filename Value="fernbedienung"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <OtherUnitFiles Value="../units"/> + <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <CodeGeneration> + <Checks> + <IOChecks Value="True"/> + <RangeChecks Value="True"/> + <OverflowChecks Value="True"/> + <StackChecks Value="True"/> + </Checks> + <VerifyObjMethodCallValidity Value="True"/> + </CodeGeneration> + <Linking> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> + </CompilerOptions> + <Debugging> + <Exceptions Count="3"> + <Item1> + <Name Value="EAbort"/> + </Item1> + <Item2> + <Name Value="ECodetoolError"/> + </Item2> + <Item3> + <Name Value="EFOpenError"/> + </Item3> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/fernbedienung.lpr b/fernbedienung.lpr new file mode 100644 index 0000000..2c568c4 --- /dev/null +++ b/fernbedienung.lpr @@ -0,0 +1,31 @@ +program fernbedienung; + +{$mode objfpc}{$H+} + +{$DEFINE UseCThreads} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Classes, lesethreadunit + { you can add units after this }, + sysutils; + +var + ttySLeser: tLeseProzess; + s: string; + +begin + ttySLeser:=tLeseProzess.create(extractfilepath(paramstr(0))+'socket',1); + + repeat + if ttySLeser.gibZeile(s) then begin + writeln(s); + + end; + until false; + + ttySLeser.free; +end. + diff --git a/fernbedienung.lps b/fernbedienung.lps new file mode 100644 index 0000000..b709687 --- /dev/null +++ b/fernbedienung.lps @@ -0,0 +1,140 @@ +<?xml version="1.0" encoding="UTF-8"?> +<CONFIG> + <ProjectSession> + <Version Value="9"/> + <BuildModes Active="Default"/> + <Units Count="2"> + <Unit0> + <Filename Value="fernbedienung.lpr"/> + <IsPartOfProject Value="True"/> + <IsVisibleTab Value="True"/> + <CursorPos Y="23"/> + <UsageCount Value="20"/> + <Loaded Value="True"/> + </Unit0> + <Unit1> + <Filename Value="../units/lesethreadunit.pas"/> + <IsPartOfProject Value="True"/> + <EditorIndex Value="1"/> + <TopLine Value="24"/> + <CursorPos X="14" Y="44"/> + <UsageCount Value="20"/> + <Loaded Value="True"/> + </Unit1> + </Units> + <JumpHistory Count="28" HistoryIndex="27"> + <Position1> + <Filename Value="fernbedienung.lpr"/> + <Caret Line="14" Column="7"/> + </Position1> + <Position2> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="32" Column="21"/> + </Position2> + <Position3> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="43" Column="27" TopLine="12"/> + </Position3> + <Position4> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="27" Column="50" TopLine="7"/> + </Position4> + <Position5> + <Filename Value="fernbedienung.lpr"/> + <Caret Line="18" Column="23"/> + </Position5> + <Position6> + <Filename Value="fernbedienung.lpr"/> + <Caret Line="11" Column="11"/> + </Position6> + <Position7> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="72" Column="36" TopLine="32"/> + </Position7> + <Position8> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="36" Column="4" TopLine="15"/> + </Position8> + <Position9> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="48" Column="8" TopLine="28"/> + </Position9> + <Position10> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="23" Column="14"/> + </Position10> + <Position11> + <Filename Value="fernbedienung.lpr"/> + <Caret Line="21" Column="23"/> + </Position11> + <Position12> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="13" Column="33"/> + </Position12> + <Position13> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="8" Column="29"/> + </Position13> + <Position14> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="37" Column="25" TopLine="16"/> + </Position14> + <Position15> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="21" Column="24"/> + </Position15> + <Position16> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="51" Column="3" TopLine="17"/> + </Position16> + <Position17> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="37" Column="31" TopLine="17"/> + </Position17> + <Position18> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="18"/> + </Position18> + <Position19> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="36" Column="38" TopLine="13"/> + </Position19> + <Position20> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="50" Column="11" TopLine="24"/> + </Position20> + <Position21> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="69" Column="22" TopLine="38"/> + </Position21> + <Position22> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="46" Column="22" TopLine="32"/> + </Position22> + <Position23> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="53" TopLine="34"/> + </Position23> + <Position24> + <Filename Value="fernbedienung.lpr"/> + <Caret Line="20" Column="68"/> + </Position24> + <Position25> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="72" Column="34" TopLine="36"/> + </Position25> + <Position26> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="71" Column="17" TopLine="47"/> + </Position26> + <Position27> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="8" Column="35"/> + </Position27> + <Position28> + <Filename Value="../units/lesethreadunit.pas"/> + <Caret Line="66" Column="22" TopLine="44"/> + </Position28> + </JumpHistory> + </ProjectSession> +</CONFIG> -- cgit v1.2.3-70-g09d2