Sample code for 30+ languages & platforms
Lianja

Transition from Http.PTextSb to Http.HttpSb

Provides instructions for replacing deprecated PTextSb method calls with HttpSb.

Chilkat Lianja Downloads

Lianja
llSuccess = .F.

loHttp = createobject("CkHttp")

lcVerb = "PUT"
lcUrl = "https://example.com/"
loSbRequestBody = createobject("CkStringBuilder")
loSbRequestBody.Append("This is the HTTP request body")
lcCharset = "utf-8"
lcContentType = "text/plain"

// ------------------------------------------------------------------------
// The PTextSb method is deprecated:

loResponseObj = loHttp.PTextSb(lcVerb,lcUrl,loSbRequestBody,lcCharset,lcContentType,.F.,.F.)
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loSbRequestBody
    return
endif

// ...
// ...

release loResponseObj

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

loResponseOut = createobject("CkHttpResponse")
llSuccess = loHttp.HttpSb(lcVerb,lcUrl,loSbRequestBody,lcCharset,lcContentType,loResponseOut)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loSbRequestBody
    release loResponseOut
    return
endif



release loHttp
release loSbRequestBody
release loResponseOut