(Visual FoxPro) Transition from Http.PostBinary to Http.HttpBinary

Provides instructions for replacing deprecated PostBinary method calls with HttpBinary.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')

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

lcContentType = "application/octet-stream"

* ------------------------------------------------------------------------
* The PostBinary method is deprecated:

lcResponseBody = loHttp.PostBinary(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