Visual FoxPro

Example: Http.HttpBinary method

Demonstrates the HttpBinary method. Visual FoxPro

LOCAL lnSuccess
LOCAL lcLocalFilePath
LOCAL loBd
LOCAL loZipBytes
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

loZipBytes = loBd.GetData()

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

* Send a POST with a binary HTTP request body.
loResp = CreateObject('Chilkat.HttpResponse')
loHttp = CreateObject('Chilkat.Http')

lnSuccess = loHttp.HttpBinary("POST",lcUrl,loZipBytes,"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