1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

procedure TForm1.RS485RxClusterEvent(Sender: TObject);
var
received_value_rs485, sendstring: string;
vb,ve: integer;
syncbyte,byte0,byte1,byte2: byte;
bytes_send: array of byte;

begin
syncbyte:= 128;
setlength(received_value_rs485,4);
setlength(bytes_send,4);
  //NT_Timeout.Enabled:= false;
  //ComPort1.ReadStr(s_received, Count);
  received_value_rs485:= RS485.ReadNextClusterAsString;
 // if ((received_value_rs485 = hexsend('C000E8E8')) or (received_value_rs485 = hexsend('80004343')) or (received_value_rs485 = hexsend('8000E8E8')) ) and (programmingstate = 0) then
 // begin
 //   RS485.SendString(hexsend('81002525'));
 //   memo1.Lines.Add( '>> 81002525');
 //   LED_Mon_Status:= 0;
 // end;
  byte0:= ord(received_value_rs485[1]);
  Button_Mon_Status:= byte0 and not 192;
  byte1:= ord(received_value_rs485[2]);
  Button_Mon_Status:= Button_Mon_Status or (byte1 shl 6);
  byte2:= ord(received_value_rs485[3]);
  if Button_Mon_Status > 0 then
  LED_Mon_Status:= Button_Mon_Status;
  if ( byte0 and 128) = syncbyte then
  begin
    if ( byte0 and 64) = 64 then  // Auto taste gedrückt
    bytes_send[0] := 193
    else
    bytes_send[0] := (LED_Mon_Status and not 64) or 128;
    bytes_send[1] := LED_Mon_Status shr 6;
    bytes_send[2] := 36;
    bytes_send[3] := (bytes_send[0] xor 36 xor byte1) and not 128;

   // RS485.SendString(inttostr(byte0+0+24+(byte0 xor 24)));
   sendstring:= inttostr(bytes_send[0]);
  //  RS485.SendString(sendstring);
  end;
{   s := received_value_rs485;      // Den ersten Text auslesen
    len := length(received_value_rs485);    // die Länge des Textes auslesen

    if RS485_Buffer.Write(len, SizeOf(len)) = -1 then // Die Länge des Textes speichern
      raise Exception.Create('Fehler beim Schreiben - Puffer zu klein');
    if RS485_Buffer.Write(s[1], len) = -1 then        // Den Text an sich speichern
      raise Exception.Create('Fehler beim Schreiben - Puffer zu klein');    }
  //memo1.Lines.Add( StringToHexStr(received_value_rs485));
 // RS485_Timer1.Enabled:= false;
 // memo1.Lines.Add( 'LED: '+inttostr(LED_Mon_Status));
  memo1.Lines.Add( 'Button: '+inttostr(Button_Mon_Status));
end;