Lianja

Transition from Http.PutText to Http.HttpStr

Provides instructions for replacing deprecated PutText method calls with HttpStr. Lianja

llSuccess = .F.

loHttp = createobject("CkHttp")

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,.F.,.F.)
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    return
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("CkHttpResponse")
llSuccess = loHttp.HttpStr(lcVerb,lcUrl,lcTextData,lcCharset,lcContentType,loResponseOut)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loResponseOut
    return
endif

lcResponseBody = loResponseOut.BodyStr


release loHttp
release loResponseOut