PowerBuilder

Belgium eHealth Platform - checkConnection

See more Belgian eHealth Platform Examples

Demonstrates the first operation of PlatformIntegrationConsumerTest (checkConnection), which has no message-level security and therefore no wsse:Security block in the SOAP header. You test the SSL/TLS connection to the SOA platform. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_Xml
oleobject loo_Dt
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

li_Success = loo_Http.SetSslClientCertPfx("SSIN=12345678.acc.p12","p12_password")
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    return
end if

// Create the following XML
// <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:be:fgov:ehealth:platformintegrationconsumertest:v1"
// xmlns:urn1="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1">
//     <soapenv:Header/>
//     <soapenv:Body>
//         <urn:CheckConnectionRequest>
//             <urn1:Message>Hello World</urn1:Message>
//             <urn1:Timestamp>2014-12-30T15:29:03.157+01:00</urn1:Timestamp>
//         </urn:CheckConnectionRequest>
//     </soapenv:Body>
// </soapenv:Envelope>

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.Tag = "soapenv:Envelope"
loo_Xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loo_Xml.AddAttribute("xmlns:urn","urn:be:fgov:ehealth:platformintegrationconsumertest:v1")
loo_Xml.AddAttribute("xmlns:urn1","urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1")
loo_Xml.UpdateChildContent("soapenv:Header","")
loo_Xml.UpdateChildContent("soapenv:Body|urn:CheckConnectionRequest|urn1:Message","Hello World")

// Create a timestamp with the current date/time in the following format: 2014-12-30T15:29:03.157+01:00
loo_Dt = create oleobject
li_rc = loo_Dt.ConnectToNewObject("Chilkat.CkDateTime")

loo_Dt.SetFromCurrentSystemTime()

loo_Xml.UpdateChildContent("soapenv:Body|urn:CheckConnectionRequest|urn1:Timestamp",loo_Dt.GetAsTimestamp(1))

loo_Http.SetRequestHeader("Content-Type","text/xml")

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

li_Success = loo_Http.HttpStr("POST","https://services-acpt.ehealth.fgov.be/PlatformIntegrationConsumerTest/v1",loo_Xml.GetXml(),"utf-8","application/xml",loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Xml
    destroy loo_Dt
    destroy loo_Resp
    return
end if

Write-Debug loo_Resp.BodyStr
Write-Debug "response status code = " + string(loo_Resp.StatusCode)

// A successful response is a 200 status code, with this sample response:
// 
// <?xml version="1.0"?>
// <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
//    <soapenv:Header xmlns:v1="urn:be:fgov:ehealth:platformintegrationconsumertest:v1" xmlns:v11="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1"/>
//    <soapenv:Body xmlns:v1="urn:be:fgov:ehealth:platformintegrationconsumertest:v1" xmlns:v11="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1">
//       <ic:CheckConnectionResponse xmlns:ic="urn:be:fgov:ehealth:platformintegrationconsumertest:v1" xmlns:type="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1">
//          <type:Message>Hello World</type:Message>
//          <type:Timestamp>2023-09-28T21:24:32.925+02:00</type:Timestamp>
//          <type:AuthenticatedConsumer>anonymous</type:AuthenticatedConsumer>
//       </ic:CheckConnectionResponse>
//    </soapenv:Body>
// </soapenv:Envelope>


destroy loo_Http
destroy loo_Xml
destroy loo_Dt
destroy loo_Resp