1 files changed, 31 insertions, 0 deletions
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.
+