HTTP POST

Demonstrates a simple HTTP POST. You may test this program against http://www.chilkatsoft.com/testPostHandler.asp. This ASP page fetches and displays the contents of form variables named arg1, arg2, and arg3.

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
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

*  Build an HTTP POST Request:
loReq.UsePost()
loReq.Path = "/testPostHandler.asp"
loReq.AddParam("arg1","This is the value for arg1." + CHR(13)+CHR(10) + "It can be any length")
loReq.AddParam("arg2","This is the value for arg2." + CHR(13)+CHR(10) + "It can be any length")
loReq.AddParam("arg3","This is the value for arg3." + CHR(13)+CHR(10) + "It can be any length")

*  Send the HTTP POST and get the response.  Note: This is a blocking call.
*  The method does not return until the full HTTP response is received.

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
ENDIF