B4X Requires Chilkat v11.0.0+

Example: Http.HttpParams method

Demonstrates the HttpParams method. B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim http As ChilkatHttp
http.Initialize("http")

'  Demonstrate sending a GET request with query parameters.
Dim queryParams As ChilkatJsonObject
queryParams.Initialize
queryParams.UpdateInt("limit", 100)
queryParams.UpdateString("email", "joe@example.com")
queryParams.UpdateString("token", "VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4=")

'  Set a session log filename so we can examine the exact request that is sent.
Dim sessionLogPath As String = "c:/temp/qa_output/sessionLog.txt"
http.SessionLogFilename = sessionLogPath

'  Send the GET request to an endpoint.  We don't care about the response. The purpose of this example
'  is to see the exact HTTP request that is sent..
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpParams("GET", "https://chilkatsoft.com/echo_request_body.asp", queryParams, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim fac As ChilkatFileAccess
fac.Initialize
Dim sessionLog As String = fac.ReadEntireTextFile(sessionLogPath, "utf-8")
Log(sessionLog)
success = fac.FileDelete(sessionLogPath)

'  This is the exact GET request that was sent.
'  Notice how each query parameter is URL encoded and added to the HTTP start line of the request.

'  GET /echo_request_body.asp?limit=100&email=joe%40example.com&token=VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4%3D HTTP/1.1
'  Host: chilkatsoft.com
'  Accept: */*
'  Accept-Encoding: gzip