Visual FoxPro

HTTP POST x-www-form-urlencoded

Demonstrates how to send a simple URL encoded POST (content-type = x-www-form-urlencoded). Form params are passed in the HTTP request body in x-www-form-urlencoded format. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loReq
LOCAL loResp

lnSuccess = 0

*  This example requires the Chilkat API to have been previously unlocked.
*  See Global Unlock Sample for sample code.

loHttp = CreateObject('Chilkat.Http')

loReq = CreateObject('Chilkat.HttpRequest')

*  Add the request params expected by the server-side:
loReq.AddParam("city","Paris")
loReq.AddParam("country","France")

*  Send the POST
loReq.HttpVerb = "POST"
loReq.ContentType = "application/x-www-form-urlencoded"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpReq("http://www.chilkatsoft.com/httpTest/cityCountry.asp",loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loResp
    CANCEL
ENDIF

*  The exact HTTP request sent and response received
*  by the example code above is as follows:

*  ---- Sending ----
*  POST /httpTest/cityCountry.asp HTTP/1.1
*  Host: www.chilkatsoft.com
*  Content-Type: application/x-www-form-urlencoded
*  Content-Length: 25
*  
*  city=Paris&country=France
*  ---- Received ----
*  HTTP/1.1 200 OK
*  Date: Wed, 09 Dec 2009 16:16:00 GMT
*  Server: Microsoft-IIS/6.0
*  X-Powered-By: ASP.NET
*  Content-Length: 156
*  Content-Type: text/html
*  Set-Cookie: ASPSESSIONIDQCDTSSAC=MHJCNFMDENFOKGINOFEDILCM; path=/
*  Cache-control: private
*  
*  
*  <html>
*  <head>
*  <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
*  </head>
*  <body>
*  
*  France<br />Paris<br />
*  
*  </body>
*  </html>

RELEASE loHttp
RELEASE loReq
RELEASE loResp