From 7b0e121322f9b9ca6ff6d8cc10ef9610d92ee450 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Sun, 18 Oct 2015 23:16:53 +0200 Subject: Eingabe in Parameter gepackt, zeigt nun 3-Zeichen-Code an --- fernbedienung.lpr | 9 ++++++--- 1 file 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; -- cgit v1.2.3-54-g00ecf