(PowerBuilder) 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

integer li_rc
integer li_Success
oleobject loo_SbUrl
oleobject loo_SbValue
oleobject loo_Http
string ls_ResponseBody

// 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.
loo_SbUrl = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbUrl.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
    destroy loo_SbUrl
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_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".
loo_SbUrl.Append("abc=123&xyz=")

loo_SbValue = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbValue.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbValue.Append("this is a test")

loo_SbUrl.Append("msg=")
loo_SbUrl.Append(loo_SbValue.GetEncoded("url","utf-8"))

// sbUrl contains:  https://www.example.com/something?abc=123&xyz=msg=this%20is%20a%20test
Write-Debug loo_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)
loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

ls_ResponseBody = loo_Http.QuickGetStr(loo_SbUrl.GetAsString())
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_SbUrl
    destroy loo_SbValue
    destroy loo_Http
    return
end if

Write-Debug "Response Body:"
Write-Debug ls_ResponseBody


destroy loo_SbUrl
destroy loo_SbValue
destroy loo_Http