(Delphi DLL) 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.

For more information, see https://www.ehealth.fgov.be/ehealthplatform/nl/beveiliging-van-webservices#3

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpResponse, Xml, CkDateTime;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
xml: HCkXml;
dt: HCkDateTime;
resp: HCkHttpResponse;

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

http := CkHttp_Create();

success := CkHttp_SetSslClientCertPfx(http,'SSIN=12345678.acc.p12','p12_password');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

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

xml := CkXml_Create();
CkXml_putTag(xml,'soapenv:Envelope');
CkXml_AddAttribute(xml,'xmlns:soapenv','http://schemas.xmlsoap.org/soap/envelope/');
CkXml_AddAttribute(xml,'xmlns:urn','urn:be:fgov:ehealth:platformintegrationconsumertest:v1');
CkXml_AddAttribute(xml,'xmlns:urn1','urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1');
CkXml_UpdateChildContent(xml,'soapenv:Header','');
CkXml_UpdateChildContent(xml,'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
dt := CkDateTime_Create();
CkDateTime_SetFromCurrentSystemTime(dt);

CkXml_UpdateChildContent(xml,'soapenv:Body|urn:CheckConnectionRequest|urn1:Timestamp',CkDateTime__getAsTimestamp(dt,True));

CkHttp_SetRequestHeader(http,'Content-Type','text/xml');

resp := CkHttp_PostXml(http,'https://services-acpt.ehealth.fgov.be/PlatformIntegrationConsumerTest/v1',CkXml__getXml(xml),'utf-8');
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));
Memo1.Lines.Add('response status code = ' + IntToStr(CkHttpResponse_getStatusCode(resp)));

CkHttpResponse_Dispose(resp);

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

CkHttp_Dispose(http);
CkXml_Dispose(xml);
CkDateTime_Dispose(dt);

end;