Put
- Der Funktionsbaustein wird gestartet, indem die Variable bPut im Hauptprogramm auf TRUE gesetzt wird.
- Die steigende Flanke wird dann verwendet, um eine PUT-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, wird die JSON-Antwort vom Webserver geparst. Die JSON-Antwort enthält die Variable nReqCount, die an den Webserver gesendet wurde.
FUNCTION_BLOCK FB_TestHTTP_Put
VAR_INPUT
bSend : BOOL;
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;
END_VAR
RisingEdge(CLK:= bSend);
CASE nState OF
0:
IF RisingEdge.Q THEN
sContent:= UDINT_TO_STRING(nReqCount+1);
IF fbRequest.SendRequest(sUri:= '/put', fbClient:= fbClient,
eRequestType:= ETcIotHttpRequestType.HTTP_PUT,
pContent:= ADR(sContent),
nContentSize:= LEN2(ADR(sContent)), 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
bGetJsonResult:= TRUE;
IF fbJson.HasMember(jsonDoc, 'data') THEN
jsonVal:= fbJson.FindMember(jsonDoc, 'data');
sResultValue:= fbJson.GetString(jsonVal);
IF STRING_TO_UDINT(sResultValue)= nReqCount THEN
nValidResCount:= nValidResCount+1;
bError:= FALSE;
END_IF
END_IF
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