Lianja Requires Chilkat v11.0.0+

Example: Http.HttpParams method

Demonstrates the HttpParams method. Lianja

llSuccess = .F.

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

loHttp = createobject("CkHttp")

//  Demonstrate sending a GET request with query parameters.
loQueryParams = createobject("CkJsonObject")
loQueryParams.UpdateInt("limit",100)
loQueryParams.UpdateString("email","joe@example.com")
loQueryParams.UpdateString("token","VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4=")

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

//  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..
loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpParams("GET","https://chilkatsoft.com/echo_request_body.asp",loQueryParams,loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loQueryParams
    release loResp
    return
endif

loFac = createobject("CkFileAccess")
lcSessionLog = loFac.ReadEntireTextFile(lcSessionLogPath,"utf-8")
? lcSessionLog
llSuccess = loFac.FileDelete(lcSessionLogPath)

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


release loHttp
release loQueryParams
release loResp
release loFac