(PureBasic) Example: Http.HttpBd method

Shows how to use the HttpBd method to send an HTTP POST request with the contents of a BinData as the request body. The example sends the following request:

POST /api/v1/sites/123/deploys HTTP/1.1
Host: example.com
Accept: */*
Accept-Encoding: gzip
Content-Type: application/zip
Content-Length: 123456

[binary data bytes of the BinData]

Also see: Chilkat Http Default and Auto-Filled Headers

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkBinData.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

    success.i = 0

    localFilePath.s = "C:/example/zips/data.zip"
    bd.i = CkBinData::ckCreate()
    If bd.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkBinData::ckLoadFile(bd,localFilePath)
    If success = 0
        Debug CkBinData::ckLastErrorText(bd)
        CkBinData::ckDispose(bd)
        ProcedureReturn
    EndIf

    url.s = "https://example.com/api/v1/sites/123/deploys"

    ; Send a POST with the contents of the BinData in the binary HTTP request body.
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    success = CkHttp::ckHttpBd(http,"POST",url,bd,"application/zip",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkBinData::ckDispose(bd)
        CkHttpResponse::ckDispose(resp)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    Debug "Response Status Code: " + Str(CkHttpResponse::ckStatusCode(resp))
    Debug "Response body:"
    Debug CkHttpResponse::ckBodyStr(resp)


    CkBinData::ckDispose(bd)
    CkHttpResponse::ckDispose(resp)
    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure