PowerBuilder

HTTP GET with Non-USASCII Query Params

See more HTTP Examples

This example illustrates how query parameters in a URL are typically encoded and transmitted. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_SbCompanyName
oleobject loo_SbUrl
oleobject loo_Http
oleobject loo_SbResponse

li_Success = 0

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

// First, let's load the string "Grünhöfer GmbH" from a file.  (This is a fictitious company name.)
// The file uses the utf-8 charset encoding.
loo_SbCompanyName = create oleobject
li_rc = loo_SbCompanyName.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
    destroy loo_SbCompanyName
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_SbCompanyName.LoadFile("qa_data/txt/companyName.txt","utf-8")
// Assuming success for this example...

// We'll send an HTTP GET request to https://chilkatsoft.com/example?company_name={company name}

// When sending an HTTP GET request with query parameters that contain accented characters 
// (e.g., umlauts: ä, ö, ü), they must be percent-encoded (URL encoded) to ensure proper transmission and 
// interpretation by the server.  This is based on their UTF-8 byte values.
loo_SbUrl = create oleobject
li_rc = loo_SbUrl.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbUrl.Append("https://chilkatsoft.com/example?company_name=")
loo_SbUrl.Append(loo_SbCompanyName.GetEncoded("url","utf-8"))

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

// Send the following HTTP GET request:

// GET /example?company_name=Gr%C3%BCnh%C3%B6fer%20GmbH HTTP/1.1
// Host: chilkatsoft.com
// Accept: */*
// Accept-Encoding: gzip

loo_SbResponse = create oleobject
li_rc = loo_SbResponse.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Http.QuickGetSb(loo_SbUrl.GetAsString(),loo_SbResponse)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_SbCompanyName
    destroy loo_SbUrl
    destroy loo_Http
    destroy loo_SbResponse
    return
end if

Write-Debug "response status code: " + string(loo_Http.LastStatus)
Write-Debug loo_SbResponse.GetAsString()


destroy loo_SbCompanyName
destroy loo_SbUrl
destroy loo_Http
destroy loo_SbResponse