API conection to my new heat pump

[Pavel Bohac 1]

Hi Guys,

 

i know that here are the most experts on fibaro and me as a newbie so i pleas for help I bought HC3 month ago and still learning basics. I have few scenes and some Zwave devices, thats for me OK and i can deal with this, but at my house is new Neore Heat Pump and it has his own "server" with API (see attachment pleas).

 

I want know how i get values as a second option in ideal case how to change this values

 

tvenek - venkovní teplota; °C (r )
ActFlow - aktuální průtok vody; m³/h (r )
ActHeaPow - aktuální tepelný výkon; kW (r )
HeatSumCnt - dodaná tepelná energie od resetu; kWh (r )
bivalctr - běh bivalentu; bool (r )
pow1st - požadovaný výkon; % (r )

InTtopv - teplota výstupní vody; °C (r )

Even - chyba nebo nepřipojené venkovní čidlo; bool (r )
Eobj - chyba nebo nepřipojené čidlo objektu; bool (r )
Etuv - chyba nebo nepřipojené čidlo tuv; bool (r )
WatPress - tlak v topném systému; Bar (r )
OutTReqWat - požadovaná teplota výstupní vody; °C (r )
EkvReq2 - požadovaná teplota výstupní vody 2 okruhu vypoč. ekv .křivkou včetně korekce; °C (r)
TreqWatPre - vypočtená teplota ekv. křivkou; °C (r )
SlntOn - Aktivní Silent mode; bool (r )

OuPWM1 - požadovaný výkon TČ; % (r )

 

and show it in module or device in fibaro. I try some but no funcion

 

If someone have time to help me, it will be great.

Please login or register to see this attachment.

[Pavel Bohac 1]

So, with great help from Youda we have great QA fot NEORE HeatPump :

local Host   = "LOCALIPADRESS"

local Port   = "80"

local tcpTimeout = 2000

local srvUser = "USER"

local srvPwd = "PASS"

 

function urlencode(str)

  if (str) then

    str = string.gsub (str, "\n", "\r\n")

    str = string.gsub (str, "([^%w %-%_%.%~])", function (c) return string.format ("%%%02X", string.byte(c)) end)

    str = string.gsub (str, " ", "+")

  end

  return str    

end

 

function base64(data)

    local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'

    return ((data:gsub('.', function(x) 

            local r,b='',x:byte() for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end

            return r;

          end)..'0000'?gsub('%d%d%d?%d?%d?%d?', function(x)

          if (#x < 6) then return '' end

          local c=0

          for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end

          return b:sub(c+1,c+1)

    end)..({ '', '==', '=' })[#data%3+1])

end

 

function QuickApp:TC_Read()

self:debug("LOOP")

 

local bauth = 'Basic '..base64(srvUser..":"..srvPwd)

local url = "http://" .. Host .. ":" .. Port .. "/TecoAPI/getobject?tvenek&ActFlow&ActHeaPow&pow1st&InTtopv&WatPress&HeatSumCnt&OutTReqWat&OuPWM1"

 

net.HTTPClient():request(url, {

    options={

      method = 'GET',

      headers = {

          ["Authorization"] = bauth

        },

      timeout = tcpTimeout,

    },

    success = function(response) 

            print(response.status)

            print(response.data)

            local jsonTable = json.decode(response.data);

            print('tvenek: ' ..jsonTable.tvenek);

            print('ActFlow: ' ..jsonTable.ActFlow);

            print('ActHeaPow: ' ..jsonTable.ActHeaPow);

            print('pow1st: ' ..jsonTable.pow1st);

            print('InTtopv: ' ..jsonTable.InTtopv);

            print('WatPress: ' ..jsonTable.WatPress);

            print('HeatSumCnt: ' ..jsonTable.HeatSumCnt);

            print('OutTReqWat: ' ..jsonTable.OutTReqWat);

            print('OuPWM1: ' ..jsonTable.OuPWM1);

            fibaro.setGlobalVariable("TC_tvenek", tostring(jsonTable.tvenek));

            fibaro.setGlobalVariable("TC_ActHeaPow", tostring(jsonTable.ActHeaPow));

            fibaro.setGlobalVariable("TC_ActFlow", tostring(jsonTable.ActFlow));

            fibaro.setGlobalVariable("TC_pow1st", tostring(jsonTable.pow1st));

            fibaro.setGlobalVariable("TC_InTtopv", tostring(jsonTable.InTtopv));

            fibaro.setGlobalVariable("TC_WatPress", tostring(jsonTable.WatPress));

            fibaro.setGlobalVariable("TC_HeatSumCnt", tostring(jsonTable.HeatSumCnt));

            fibaro.setGlobalVariable("TC_OutTReqWat", tostring(jsonTable.OutTReqWat));

            fibaro.setGlobalVariable("TC_OuPWM1", tostring(jsonTable.OuPWM1));                  

            self:updateView ("label", "text", "Venkovní teplota: "..tostring(string.format("%.1f",jsonTable.tvenek)).." °C");

            self:updateView ("label2", "text", "Aktuální průtok vody: "..tostring(string.format("%.1f",jsonTable.ActFlow)).." m3/h");

            self:updateView ("label3", "text", "Aktuální výkon čerpadla: "..tostring(string.format("%.1f",jsonTable.ActHeaPow)).." Kw");

            self:updateView ("label4", "text", "Požadovaný výkon čerpadla: "..tostring(string.format("%.1f",jsonTable.pow1st)).." %");

            self:updateView ("label5", "text", "Teplota výstupní vody: "..tostring(string.format("%.1f",jsonTable.InTtopv)).." °C");

            self:updateView ("label6", "text", "Tlak v topném systému "..tostring(string.format("%.1f",jsonTable.WatPress)).." Bar");

            self:updateView ("label7", "text", "Dodaná energie :"..tostring(string.format("%.1f",jsonTable.HeatSumCnt)).." kWh");

            self:updateView ("label8", "text", "Požadovaná teplota výstupní vody: "..tostring(string.format("%.1f",jsonTable.OutTReqWat)).." °C");

            self:updateView ("label9", "text", "Oběhové čerpadlo: "..tostring(string.format("%.0f",jsonTable.OuPWM1)).." %");

    

    end,

    error = function(message)

          print("error:", message)

    end

})

 

fibaro.setTimeout(1000*60*1, function() 

      self:TC_Read()

end)

 

end

 

function QuickApp:onInit()

self:debug("onInit----**-");

self:TC_Read();

end