(PowerBuilder) HTTP POST (Duplicate Simple HTML Form POST)

Demonstrates how to duplicate a simple HTML form POST.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Req
oleobject loo_Http
integer li_Success
string ls_Domain
integer li_Port
integer li_Tls
oleobject loo_Resp

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

loo_Req = create oleobject
// Use "Chilkat_9_5_0.HttpRequest" for versions of Chilkat < 10.0.0
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")
if li_rc < 0 then
    destroy loo_Req
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

// This example simulates this FORM:
// <form action="echoPost.asp" method="post">
// First name: <input type="text" name="firstName"><br />
// Last name: <input type="text" name="lastName"><br />
// <input type="submit" value="Submit">
// </form>
// The online FORM is found at this URL:
// https://www.chilkatsoft.com/simpleForm.html

// Build an HTTP POST Request:
loo_Req.HttpVerb = "POST"

// The FORM target is http://www.chilkatsoft.com/processPost.asp
// An easy way of filling out most of the HTTP request object
// is to call SetFromUrl:
loo_Req.SetFromUrl("https://www.chilkatsoft.com/echoPost.asp")

// Send form params using application/x-www-form-urlencoded
loo_Req.ContentType = "application/x-www-form-urlencoded"

// The only remaining task is to add the params to the 
// HTTP request object:
loo_Req.AddParam("firstName","Matt")
loo_Req.AddParam("lastName","Jones")

// Send the HTTP POST and get the response.
// The POST is being sent to chilkatsoft.com, on port 443 (using TLS)
ls_Domain = "chilkatsoft.com"
li_Port = 443
li_Tls = 1

// The HTTP POST is sent here:
loo_Resp = loo_Http.SynchronousRequest(ls_Domain,li_Port,li_Tls,loo_Req)
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Req
    destroy loo_Http
    return
end if

// Display the HTML source of the page returned.
Write-Debug loo_Resp.BodyStr


destroy loo_Req
destroy loo_Http