Eingabe in Parameter gepackt, zeigt nun 3-Zeichen-Code an

1 files changed, 6 insertions, 3 deletions

diff --git a/fernbedienung.lpr b/fernbedienung.lpr
index e6ac9b9..1c86644 100644
--- a/fernbedienung.lpr
+++ b/fernbedienung.lpr
@@ -17,12 +17,15 @@ var
   s:         string;
 
 begin
-  ttySLeser:=tLeseProzess.create(extractfilepath(paramstr(0))+'socket',1);
+  ttySLeser:=tLeseProzess.create(paramstr(1),1);
 
   repeat
     if ttySLeser.gibZeile(s) then begin
-      if s='Ha!' then continue; // Startzeichen
-      if length(s)=2 then
+      if s='Ha!' then begin
+        writeln('Empfänger hat sich gemeldet!');
+        continue; // Startzeichen
+      end;
+      if length(s)=3 then
         if base64ToBin(s) then begin
           writeln('Bits: '+s);
           continue;