B4X Requires Chilkat v11.0.0+

Example: Http.HttpReq method

Demonstrates how to call the HttpReq method. B4X

Dim success As Boolean = False

Dim http As ChilkatHttp
http.Initialize("http")
success = False

'  This example will send an HTTP POST with the body of the HTTP request containing JSON.

'  Create the following JSON: { "name": "Harry", "state": "FL" }

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("name", "Harry")
json.UpdateString("state", "FL")

'  Specify the details of the request
Dim req As ChilkatHttpRequest
req.Initialize

req.HttpVerb = "POST"
req.ContentType = "application/json"
req.LoadBodyFromString(json.Emit, "utf-8")

'  Send the charset attribute in the HTTP request header.
req.SendCharset = True
req.Charset = "utf-8"

'  Send the POST
'  You can send the POST to the URL below.  
'  The response will contain the raw body of the request that was sent.
'  (i.e. everything except the HTTP request header).

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpReq("https://www.chilkatsoft.com/echo_request_body.asp", req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


'  Examine the HTTP request header we sent:
Log(http.LastHeader)

'  The response body contains the raw content of the HTTP request body we sent.
Log(resp.BodyStr)

'  Sample output:

'  POST /echo_request_body.asp HTTP/1.1
'  Host: www.chilkatsoft.com
'  Content-Type: application/json; charset=utf-8
'  Content-Length: 29
'  
'  
'  {"name":"Harry","state":"FL"}