Xbase++ Requires Chilkat v11.0.0+

Example: Http.HttpParams method

Demonstrates the HttpParams method. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oQueryParams
LOCAL cSessionLogPath
LOCAL oResp
LOCAL oFac
LOCAL cSessionLog

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Demonstrate sending a GET request with query parameters.
oQueryParams := CreateObject("Chilkat.JsonObject")
oQueryParams:UpdateInt("limit", 100)
oQueryParams:UpdateString("email", "joe@example.com")
oQueryParams:UpdateString("token", "VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4=")

//  Set a session log filename so we can examine the exact request that is sent.
cSessionLogPath := "c:/temp/qa_output/sessionLog.txt"
oHttp:SessionLogFilename := cSessionLogPath

//  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..
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpParams("GET", "https://chilkatsoft.com/echo_request_body.asp", oQueryParams, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oQueryParams:destroy()
    oResp:destroy()
    RETURN
ENDIF

oFac := CreateObject("Chilkat.FileAccess")
cSessionLog := oFac:ReadEntireTextFile(cSessionLogPath, "utf-8")
? cSessionLog
nSuccess := oFac:FileDelete(cSessionLogPath)

//  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

oHttp:destroy()
oQueryParams:destroy()
oResp:destroy()
oFac:destroy()