(Visual FoxPro) HTTPS GET URL with URL Encoded Query Params

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loSbUrl
LOCAL loSbValue
LOCAL loHttp
LOCAL lcResponseBody

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbUrl = CreateObject('Chilkat.StringBuilder')
loSbUrl.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".
loSbUrl.Append("abc=123&xyz=")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbValue = CreateObject('Chilkat.StringBuilder')
loSbValue.Append("this is a test")

loSbUrl.Append("msg=")
loSbUrl.Append(loSbValue.GetEncoded("url","utf-8"))

* sbUrl contains:  https://www.example.com/something?abc=123&xyz=msg=this%20is%20a%20test
? loSbUrl.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)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
lcResponseBody = loHttp.QuickGetStr(loSbUrl.GetAsString())
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loSbUrl
    RELEASE loSbValue
    RELEASE loHttp
    CANCEL
ENDIF

? "Response Body:"
? lcResponseBody

RELEASE loSbUrl
RELEASE loSbValue
RELEASE loHttp