Visual FoxPro

Transition from Http.PutBinary to Http.HttpBinary

Provides instructions for replacing deprecated PutBinary method calls with HttpBinary. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcVerb
LOCAL lcUrl
LOCAL loByteData
LOCAL lcContentType
LOCAL lcResponseBody
LOCAL loResponseOut

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')

lcVerb = "PUT"
lcUrl = "https://example.com/"

lcContentType = "application/octet-stream"

* ------------------------------------------------------------------------
* The PutBinary method is deprecated:

lcResponseBody = loHttp.PutBinary(lcUrl,loByteData,lcContentType,0,0)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* ...
* ...

* ------------------------------------------------------------------------
* Do the equivalent using HttpBinary.

loResponseOut = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpBinary(lcVerb,lcUrl,loByteData,lcContentType,loResponseOut)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResponseOut
    CANCEL
ENDIF

lcResponseBody = loResponseOut.BodyStr

RELEASE loHttp
RELEASE loResponseOut