Get
- Der Funktionsbaustein wird gestartet, indem die Variable bGetTelegram im Hauptprogramm auf TRUE gesetzt wird.
- Die steigende Flanke wird dann verwendet, um eine GET-Anfrage mit dem Funktionsbaustein IotHttpRequest zu senden.
- Nachdem die Anfrage abgeschlossen ist, wird die Fehlerbehandlung durchlaufen. Wenn weder der Funktionsbaustein selbst noch der HTTP-Statuscode einen Fehler aufweisen, kann die JSON-Antwort vom Webserver im SPS-Programm geparst werden.
FUNCTION_BLOCK FB_TestHTTP_Get_Telegram
VAR_INPUT
bSend : BOOL;
sMessage : STRING(500);
END_VAR
VAR_IN_OUT
fbClient : FB_IotHttpClient;
END_VAR
VAR_OUTPUT
bBusy : BOOL;
bError : BOOL;
END_VAR
VAR
fbRequest : FB_IotHttpRequest;
fbJson : FB_JsonDomParser;
nState : UDINT;
RisingEdge : R_TRIG;
bGetContentResult : BOOL;
sContent : STRING(511);
bGetJsonResult : BOOL;
jsonDoc : SJsonValue;
jsonVal : SJsonValue;
sResultValue : STRING;
nReqCount : UDINT;
nResCount : UDINT;
nValidResCount : UDINT;
nErrCount : UDINT;
fbFormatString : FB_FormatString;
sBotApiKey : STRING(500):='1106704362:AAExFeda7Jf9CojjI9whLEzPeE4KDlDzEnf';
sChatId : STRING(500):='1140427258';
sConMessage : STRING(500);
END_VAR
RisingEdge(CLK:= bSend );
fbFormatString(
sFormat := '/bot%s/sendMessage?chat_id=%s&text=%s',
arg1 := F_STRING(sBotApiKey),
arg2 := F_STRING(sChatId),
arg3 := F_STRING(sMessage),
bError => ,
nErrId => ,
sOut => sConMessage);
CASE nState OF
0:
IF RisingEdge.Q THEN
IF fbRequest.SendRequest(sUri:=sConMessage, fbClient:=fbClient, eRequestType:=ETcIotHttpRequestType.HTTP_Get, 0, 0, 0) THEN
nState:= 1;
nReqCount:= nReqCount+1;
bBusy:= TRUE;
bError:= FALSE;
END_IF
END_IF
1:
IF NOT fbRequest.bBusy THEN
bError:= TRUE;
IF NOT fbRequest.bError THEN
bGetContentResult:= fbRequest.GetContent(pContent:= ADR(sContent), nContentSize:= SIZEOF(sContent), bSetNullTermination:= TRUE);
IF fbRequest.nStatusCode >= 200 AND fbRequest.nStatusCode < 300 THEN
bGetJsonResult:= FALSE;
jsonDoc:= fbRequest.GetJsonDomContent(fbJson);
IF jsonDoc <> 0 THEN
; // do something with the response
nValidResCount:= nValidResCount+1;
bError:= FALSE;
END_IF
nResCount:= nResCount+1;
END_IF
END_IF
nState:= 0;
bBusy:= FALSE;
IF bError THEN
nErrCount:= nErrCount+1;
END_IF
END_IF
END_CASE