PureBasic

Example: Http.SetUrlVar method

Demonstrates the HTTP SetUrlVar method. PureBasic

IncludeFile "CkStringBuilder.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

    success.i = 0

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    url.s = "https://finnhub.io/api/v1/quote?symbol={$symbol}&token={$api_key}"

    ; When the request is sent, the {$symbol} is replaced with "MSFT"
    ; and the {$api_key} is replaced with "1234567890ABCDEF"
    CkHttp::ckSetUrlVar(http,"symbol","MSFT")
    CkHttp::ckSetUrlVar(http,"api_key","1234567890ABCDEF")

    sbJson.i = CkStringBuilder::ckCreate()
    If sbJson.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckQuickGetSb(http,url,sbJson)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbJson)
        ProcedureReturn
    EndIf

    statusCode.i = CkHttp::ckLastStatus(http)
    If statusCode <> 200
        Debug "Status code: " + Str(statusCode)
        Debug "Error Message:"
        Debug CkStringBuilder::ckGetAsString(sbJson)
    Else
        Debug "JSON Stock Quote:"
        Debug CkStringBuilder::ckGetAsString(sbJson)
    EndIf

    ; Output:

    ; JSON Stock Quote:
    ; {"c":522.98,"d":0.5,"dp":0.0957,"h":524.51,"l":520.86,"o":524.28,"pc":522.48,"t":1755271948}


    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbJson)


    ProcedureReturn
EndProcedure