Lianja

Transition from Http.PostUrlEncoded to Http.HttpReq

Provides instructions for replacing deprecated PostUrlEncoded method calls with HttpReq.

Sends the following raw HTTP request:

POST /echoPost.asp HTTP/1.1
Host: www.chilkatsoft.com
Content-Type: application/x-www-form-urlencoded
Content-Length: 50

company=example&ip=111.111.111.111&url=example.com

Lianja

llSuccess = .F.

loHttp = createobject("CkHttp")

lcUrl = "https://www.chilkatsoft.com/echoPost.asp"

loReq = createobject("CkHttpRequest")
loReq.AddParam("company","example")
loReq.AddParam("ip","111.111.111.111")
loReq.AddParam("url","example.com")

// ------------------------------------------------------------------------
// The PostUrlEncoded method is deprecated:

loResponseObj = loHttp.PostUrlEncoded(lcUrl,loReq)
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loReq
    return
endif

// ...
// ...

release loResponseObj

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

loReq2 = createobject("CkHttpRequest")
loReq2.AddParam("company","example")
loReq2.AddParam("ip","111.111.111.111")
loReq2.AddParam("url","example.com")

loReq2.HttpVerb = "POST"
loReq2.ContentType = "application/x-www-form-urlencoded"

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpReq(lcUrl,loReq2,loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loReq
    release loReq2
    release loResp
    return
endif

// Results are contained in the HTTP response object...


release loHttp
release loReq
release loReq2
release loResp