(Visual FoxPro) HTTP POST text/plain (not URL encoded params)

Demonstrates how to send an HTTP POST with params NOT URL-encoded.

Download Chilkat HTTP ActiveX

LOCAL loReq
LOCAL loHttp
LOCAL lnSuccess
LOCAL lcDomain
LOCAL lnPort
LOCAL lnSsl
LOCAL loResp

loReq = CreateObject('Chilkat.HttpRequest')
loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

*  Build an HTTP POST Request:
loReq.ContentType = "text/plain"
loReq.HttpVerb = "POST"
loReq.Path = "/testPostHandler.asp"
loReq.AddParam("arg1","1.0")
loReq.AddParam("arg2","2.0")
loReq.AddParam("arg3","3.0")

*  Send the HTTP POST and get the response.

lcDomain = "www.chilkatsoft.com"
lnPort = 80
lnSsl = 0

loResp = loHttp.SynchronousRequest(lcDomain,lnPort,lnSsl,loReq)
IF (loResp = NULL ) THEN
    ? loHttp.LastErrorText
ELSE
    *  Display the HTML page returned.
    ? loResp.BodyStr
    RELEASE loResp
ENDIF