PowerBuilder

Example: Http.HttpSReq method

Demonstrates how to call the HttpSReq method. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_Req
oleobject loo_Resp
string ls_RequestBody

li_Success = 0

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
loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")

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

// Specify the details of the HTTP request.
loo_Req.HttpVerb = "POST"
loo_Req.ContentType = "application/json"
loo_Req.Path = "/echo_request_body.asp"

ls_RequestBody = "{~"greeting~":~"Hello World~"}"
loo_Req.LoadBodyFromString(ls_RequestBody,"utf-8")

// Send a POST to https://chilkatsoft.com/echo_request_body.asp with a JSON request body.
li_Success = loo_Http.HttpSReq("chilkatsoft.com",443,1,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

Write-Debug "Response Status Code: " + string(loo_Resp.StatusCode)

// Examine the request we sent.
// The LastHeader property stores the HTTP request header of the most recent request sent,
// and in this instance, the response body mirrors the request body.
Write-Debug loo_Http.LastHeader
Write-Debug loo_Resp.BodyStr

// Output:

// POST /echo_request_body.asp HTTP/1.1
// Host: chilkatsoft.com
// Content-Type: application/json
// Content-Length: 26
// 
// {"greeting":"Hello World"}


destroy loo_Http
destroy loo_Req
destroy loo_Resp