Visual FoxPro

Transition from Http.PutText to Http.HttpStr

Provides instructions for replacing deprecated PutText method calls with HttpStr. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcVerb
LOCAL lcUrl
LOCAL lcTextData
LOCAL lcCharset
LOCAL lcContentType
LOCAL lcResponseBody
LOCAL loResponseOut

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')

lcVerb = "PUT"
lcUrl = "https://example.com/"
lcTextData = "This is the HTTP request body"
lcCharset = "utf-8"
lcContentType = "text/plain"

* ------------------------------------------------------------------------
* The PutText method is deprecated:

lcResponseBody = loHttp.PutText(lcUrl,lcTextData,lcCharset,lcContentType,0,0)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* ...
* ...

* ------------------------------------------------------------------------
* Do the equivalent using HttpStr.
* Your application creates a new, empty HttpResponse object which is passed 
* in the last argument and filled upon success.

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

lcResponseBody = loResponseOut.BodyStr

RELEASE loHttp
RELEASE loResponseOut