B4X

HTTPS GET URL with URL Encoded Query Params

See more HTTP Examples

Creates a URL with URL encoded query params, and sends an HTTPS GET to the URL. B4X

Dim success As Boolean = False

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

'  Create a URL with URL-encoded query params.
Dim sbUrl As ChilkatStringBuilder
sbUrl.Initialize
sbUrl.Append("https://www.example.com/something?")

'  If we know a query param value does not have any special chars requiring URL encoding,
'  just add it.  In this case, there is no need to URL encode "123" because "123" url encoded is still just "123".
sbUrl.Append("abc=123&xyz=")

Dim sbValue As ChilkatStringBuilder
sbValue.Initialize
sbValue.Append("this is a test")

sbUrl.Append("msg=")
sbUrl.Append(sbValue.GetEncoded("url", "utf-8"))

'  sbUrl contains:  https://www.example.com/something?abc=123&xyz=msg=this%20is%20a%20test
Log(sbUrl.GetAsString)

'  Send the GET request and get the response body, which is assumed to be text of some sort (HTML, XML, JSON, etc.)
'  (Chilkat automatically decompresses gzipped responses)
Dim http As ChilkatHttp
http.Initialize("http")
Dim responseBody As String = http.QuickGetStr(sbUrl.GetAsString)
If http.LastMethodSuccess = False Then
    Log(http.LastErrorText)
    Return
End If


Log("Response Body:")
Log(responseBody)