Xbase++

Demonstrates the Http.QuickRequestParams Method

See more HTTP Examples

Demonstrates how to use the Http.QuickRequestParams method. This is where query params can be provided non-URL-encoded in JSON format. 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 := "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://www.chilkatsoft.com/echoPostBody.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 /echoPostBody.asp?limit=100&email=joe%40example.com&token=VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4%3D HTTP/1.1
//  Host: www.chilkatsoft.com
//  Accept: */*
//  Accept-Encoding: gzip

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