PowerBuilder

Send XMLHttpRequest using PUT, GET, DELETE, or any HTTP Request Method

See more HTTP Examples

The PostXml method is the easiest way to send an XMLHttpRequest using the POST HTTP verb (which is by far the most common). To use a different HTTP request method (such as PUT, GET, DELETE, etc.), the SynchronousRequest method should be called. It provides more flexibility in constructing the exact HTTP request desired. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
string ls_XmlStr
string ls_EndpointDomain
integer li_EndpointPort
integer li_EndpointSsl
oleobject loo_Req
oleobject loo_Resp

li_Success = 0

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// The XML sent in the body of the request is application
// specified -- it should contain whatever the server-side
// application is expecting..
ls_XmlStr = "<?xml version=~"1.0~" encoding=~"UTF-8~"?><appXml><something>123</something></appXml>"

// If the service endpoint is  "http://www.chilkatsoft.com/xmlEcho.asp",
// then we have the following arguments to be passed to
// HttpSReq:
ls_EndpointDomain = "www.chilkatsoft.com"
li_EndpointPort = 443
li_EndpointSsl = 1

// Prepare the HTTP request object:
loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")

loo_Req.Path = "/xmlEcho.asp"

// This example will use the "PUT" HTTP request method
// (also known as HTTP verb)
loo_Req.HttpVerb = "PUT"
loo_Req.ContentType = "text/xml"
loo_Req.Charset = "utf-8"
li_Success = loo_Req.LoadBodyFromString(ls_XmlStr,"utf-8")

loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpSReq(ls_EndpointDomain,li_EndpointPort,li_EndpointSsl,loo_Req,loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Req
    destroy loo_Resp
    return
end if

// The raw HTTP request sent by the above call is:

// PUT /xmlEcho.asp HTTP/1.1
// Content-Type: text/xml
// Host: www.chilkatsoft.com
// Content-Length: 81
// 
// <?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>

// Examine the Body of the HTTP response
// This would be the XML response sent by the server.
Write-Debug loo_Resp.BodyStr


destroy loo_Http
destroy loo_Req
destroy loo_Resp