Visual FoxPro

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

Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcUrl
LOCAL loReq
LOCAL loResponseObj
LOCAL loReq2
LOCAL loResp

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')

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

loReq = CreateObject('Chilkat.HttpRequest')
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 = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    CANCEL
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('Chilkat.HttpRequest')
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('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpReq(lcUrl,loReq2,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loReq2
    RELEASE loResp
    CANCEL
ENDIF

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

RELEASE loHttp
RELEASE loReq
RELEASE loReq2
RELEASE loResp