HttpRequestMemory() allows not the direct access to the receive buffer.
We have to use:
Code: Select all
HTTPInfo(HTTPRequest, #PB_HTTP_Response)
I have not really a chance to convert this back in UTF8.
Code: Select all
InitNetwork()
HttpRequest = HTTPRequest(#PB_HTTP_Post, "https://www.ednt.de")
If HttpRequest
Debug "StatusCode = "+ HTTPInfo(HTTPRequest, #PB_HTTP_ErrorCode)
Response$ = HTTPInfo(HTTPRequest, #PB_HTTP_Response)
Pos = FindString(Response$, ~"<a title=\"R")
If Pos
Debug Mid(Response$, Pos, FindString(Response$, "</a>", Pos) - Pos + 4)
Debug "Should be: Rückruf"
EndIf
FinishHTTP(HttpRequest)
Else
Debug "Failed"
EndIf