Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loXml
LOCAL loDt
LOCAL loResp

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

lnSuccess = loHttp.SetSslClientCertPfx("SSIN=12345678.acc.p12","p12_password")
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
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>

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

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

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

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST","https://services-acpt.ehealth.fgov.be/PlatformIntegrationConsumerTest/v1",loXml.GetXml(),"utf-8","application/xml",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loXml
    RELEASE loDt
    RELEASE loResp
    CANCEL
ENDIF

? loResp.BodyStr
? "response status code = " + STR(loResp.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>

RELEASE loHttp
RELEASE loXml
RELEASE loDt
RELEASE loResp