Xbase++

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. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oXml
LOCAL oDt
LOCAL oResp

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

nSuccess := oHttp:SetSslClientCertPfx("SSIN=12345678.acc.p12", "p12_password")
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    RETURN
ENDIF

//  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>

oXml := CreateObject("Chilkat.Xml")
oXml:Tag := "soapenv:Envelope"
oXml:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oXml:AddAttribute("xmlns:urn", "urn:be:fgov:ehealth:platformintegrationconsumertest:v1")
oXml:AddAttribute("xmlns:urn1", "urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1")
oXml:UpdateChildContent("soapenv:Header", "")
oXml: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
oDt := CreateObject("Chilkat.CkDateTime")
oDt:SetFromCurrentSystemTime()

oXml:UpdateChildContent("soapenv:Body|urn:CheckConnectionRequest|urn1:Timestamp", oDt:GetAsTimestamp(1))

oHttp:SetRequestHeader("Content-Type", "text/xml")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpStr("POST", "https://services-acpt.ehealth.fgov.be/PlatformIntegrationConsumerTest/v1", oXml:GetXml(), "utf-8", "application/xml", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oXml:destroy()
    oDt:destroy()
    oResp:destroy()
    RETURN
ENDIF

? oResp:BodyStr
? "response status code = " + Str(oResp: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>

oHttp:destroy()
oXml:destroy()
oDt:destroy()
oResp:destroy()