(DataFlex) Demonstrates the Http.QuickRequestParams Method

Demonstrates how to use the Http.QuickRequestParams method. This is where query params can be provided non-URL-encoded in JSON format.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    Boolean iSuccess
    Variant vQueryParams
    Handle hoQueryParams
    String sSessionLogPath
    Variant vResp
    Handle hoResp
    Handle hoFac
    String sSessionLog
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Demonstrate sending a GET request with query parameters.
    Get Create (RefClass(cComChilkatJsonObject)) To hoQueryParams
    If (Not(IsComObjectCreated(hoQueryParams))) Begin
        Send CreateComObject of hoQueryParams
    End
    Get ComUpdateInt Of hoQueryParams "limit" 100 To iSuccess
    Get ComUpdateString Of hoQueryParams "email" "joe@example.com" To iSuccess
    Get ComUpdateString Of hoQueryParams "token" "VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4=" To iSuccess

    // Set a session log filename so we can examine the exact request that is sent.
    Move "qa_output/sessionLog.txt" To sSessionLogPath
    Set ComSessionLogFilename Of hoHttp To sSessionLogPath

    // 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..
    Get pvComObject of hoQueryParams to vQueryParams
    Get ComQuickRequestParams Of hoHttp "GET" "https://www.chilkatsoft.com/echoPostBody.asp" vQueryParams To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Send Destroy of hoResp

    Get Create (RefClass(cComCkFileAccess)) To hoFac
    If (Not(IsComObjectCreated(hoFac))) Begin
        Send CreateComObject of hoFac
    End
    Get ComReadEntireTextFile Of hoFac sSessionLogPath "utf-8" To sSessionLog
    Showln sSessionLog
    Get ComFileDelete Of hoFac sSessionLogPath To iSuccess

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


End_Procedure