Visual FoxPro

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

Visual FoxPro

LOCAL lnSuccess
LOCAL lcLocalFilePath
LOCAL loBd
LOCAL lcUrl
LOCAL loResp
LOCAL loHttp

lnSuccess = 0

lcLocalFilePath = "C:/example/zips/data.zip"
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.LoadFile(lcLocalFilePath)
IF (lnSuccess = 0) THEN
    ? loBd.LastErrorText
    RELEASE loBd
    CANCEL
ENDIF

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

* Send a POST with the contents of the BinData in the binary HTTP request body.
loResp = CreateObject('Chilkat.HttpResponse')
loHttp = CreateObject('Chilkat.Http')
lnSuccess = loHttp.HttpBd("POST",lcUrl,loBd,"application/zip",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loBd
    RELEASE loResp
    RELEASE loHttp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)
? "Response body:"
? loResp.BodyStr

RELEASE loBd
RELEASE loResp
RELEASE loHttp