Xojo Plugin Requires Chilkat v11.0.0+

Example: Http.HttpParams method

Demonstrates the HttpParams method. Xojo Plugin

Dim success As Boolean
success = False

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

Dim http As New Chilkat.Http

//  Demonstrate sending a GET request with query parameters.
Dim queryParams As New Chilkat.JsonObject
success = queryParams.UpdateInt("limit",100)
success = queryParams.UpdateString("email","joe@example.com")
success = queryParams.UpdateString("token","VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4=")

//  Set a session log filename so we can examine the exact request that is sent.
Dim sessionLogPath As String
sessionLogPath = "c:/temp/qa_output/sessionLog.txt"
http.SessionLogFilename = sessionLogPath

//  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..
Dim resp As New Chilkat.HttpResponse
success = http.HttpParams("GET","https://chilkatsoft.com/echo_request_body.asp",queryParams,resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim fac As New Chilkat.FileAccess
Dim sessionLog As String
sessionLog = fac.ReadEntireTextFile(sessionLogPath,"utf-8")
System.DebugLog(sessionLog)
success = fac.FileDelete(sessionLogPath)

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