Visual FoxPro

Transition from Http.PostBinary to Http.HttpBinary

Provides instructions for replacing deprecated PostBinary 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 = "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