Domoticz

Code: Select all

procedure TMain.SolarSocketWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Socket.SendText('{FB;01;1E|64:KDY;KT0;PAC|0672}');
end;

procedure TMain.SolarSocketRead(Sender: TObject; Socket: TCustomWinSocket);

var Data : string;

  FUNCTION  TMain.GetStrComponent(Comp : BYTE; Separator : CHAR; Line : STRING) : STRING;  
  VAR CharCount : BYTE;
      Count     : BYTE;
  BEGIN
    CharCount := 1;
    WHILE (CharCount <= Length(Line)) AND (Comp > 1) DO
    BEGIN
      IF Line[CharCount] = Separator THEN
        BEGIN
          Dec(Comp);
        END;
      Inc(CharCount);
    END;
    Count := System.Pos(Separator, Copy(Line, CharCount, Length(Line)));
    IF Count = 0 THEN
      Count := Length(Line)
    ELSE
      Dec(Count);
    GetStrComponent := Copy(Line, CharCount, Count);
  END;

  FUNCTION HexStrToInt(InStr : STRING) : Integer;
  VAR Count  : Integer;
      Res    : Integer;
  BEGIN
    Res := 0;
    FOR Count := 0 TO Length(InStr)-1 DO
    BEGIN
      IF UpCase(InStr[Length(InStr)-Count]) IN ['A'..'F'] THEN
        Res := Res + Round(Power(16, Count)) * (Ord(UpCase(InStr[Length(InStr)-Count]))-ORD('A')+10);
      IF InStr[Length(InStr)-Count] IN ['0'..'9'] THEN
        Res := Res + Round(Power(16, Count)) * (Ord(InStr[Length(InStr)-Count])-Ord('0'));
    END;
    HexStrToInt := Res;
  END;

  function GetValue(Ident, Data : string) : Integer;
  begin
    Data := Copy(Data, System.Pos(Ident, Data)+Length(Ident), Length(Data));
    if System.Pos(';', Data) > 0 then
      Data := Copy(Data, 1, System.Pos(';', Data)-1);
    Result := HexStrToInt(Data);
  end;

begin
  Data := Socket.ReceiveText;
  Data := GetStrComponent(2, '|', Data);
  Data := GetStrComponent(2, ':', Data);
  Data := GetStrComponent(1, '|', Data);
  edPVPAC.Text := FloatToStrF(GetValue('PAC=', Data)/2, ffGeneral, 7, 1);
  PVPACLast := edPVPAC.Text;
  edPVDay.Text := FloatToStrF(GetValue('KDY=', Data)/10, ffGeneral, 7, 1);
  PVYearLast := IntToStr(GetValue('KT0=', Data));
  try
    UpdateDomoticz(DOMOTICZ_URL+'type=command&param=udevice&idx=10&nvalue=0&svalue='+edPVPAC.Text+';'+FloatToStrF(GetValue('KDY=', Data)*100, ffGeneral, 7, 1));
  except
  end;
  if (edPVPACmax.text = '') or (edPVPACmax.text = '-') then
    edPVPACmax.text := PVPACLast
  else
    if (edPVPACmax.text <> '') and (edPVPACmax.text <> '-') and (PVPACLast <> '') and (PVPACLast <> '-') then
      if StrToFloat(edPVPACmax.text) < StrToFloat(PVPACLast) then
        edPVPACmax.text := edPVPAC.Text;
  edPVYear.Text := PVYearLast;
  SolarSocket.Close;
end;

Code: Select all

2020-11-14 22:10:26.220  Error: SolarMax: TCP could not connect to: <IPADDRESS>:12345
2020-11-14 22:10:26.221  Status: SolarMax: retrying in 30 seconds...