(Delphi DLL) Belgium eHealth Platform - AddressBook - Search for Professionals

See more Belgian eHealth Platform Examples

Demonstrates how to search for professionals using the AddressBook API.

For more information, see https://www.ehealth.fgov.be/ehealthplatform/nl/data/file/view/6c419e5685327eed7200d1c543c38a55d5387d30?name=AddressBook%20Consultation%20WS%20v.1%20-%20Cookbook%20v.1.11%20dd%2031082023.pdf

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, CkDateTime, HttpResponse, BinData, Cert, Http, Xml;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
cert: HCkCert;
bdSecToken: HCkBinData;
startIdx: Integer;
endIdx: Integer;
base64_saml_token: PWideChar;
xml: HCkXml;
dt: HCkDateTime;
http: HCkHttp;
resp: HCkHttpResponse;

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

success := True;

// Provide a certificate + private key.
// Note: If your certificate + private key is located on a hardware token or smartcard, you can call a different function to load from smartcard..
cert := CkCert_Create();
success := CkCert_LoadPfxFile(cert,'SSIN=12345678.acc.p12','p12_password');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

// Let's get the SAML Security Token obtained from https://services-acpt.ehealth.fgov.be/IAM/SecurityTokenService/v1/RequestSecurityToken
// a very short time ago..

// See this example for how we got the SAML security token: eHealth Belgium Request Security Token
bdSecToken := CkBinData_Create();
success := CkBinData_LoadFile(bdSecToken,'qa_data/tokens/ehealth-fgov-be-sectoken.xml');
if (success = False) then
  begin
    Memo1.Lines.Add('Failed to load SAML security token');
    Exit;
  end;

// The SAML security token is just the part from <Assertion ..> ... </Assertion>
// So let's get just that part..
startIdx := CkBinData_FindString(bdSecToken,'<Assertion',0,'utf-8');
if (startIdx < 0) then
  begin
    Memo1.Lines.Add('Did not find the start of the SAML assertion.');
    Exit;
  end;
endIdx := CkBinData_FindString(bdSecToken,'</Assertion>',0,'utf-8');
if (endIdx < 0) then
  begin
    Memo1.Lines.Add('Did not find the end of the SAML assertion.');
    Exit;
  end;

// Adjust the index to the 1st byte after "</Assertion>"
endIdx := endIdx + 12;
base64_saml_token := CkBinData__getEncodedChunk(bdSecToken,startIdx,endIdx - startIdx,'base64');

Memo1.Lines.Add(base64_saml_token);

// Our SOAP request will look like this:

// The SOAP request to search for professionals looks like this:

// <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:add="urn:be:fgov:ehealth:addressbook:protocol:v1">
//     <soapenv:Header>
// 	      <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
// 	         <wsse:BinarySecurityToken
// 	            ValueType="http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID"
// 	            EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary">BASE64_SAML_TOKEN</wsse:BinarySecurityToken>
// 	      </wsse:Security>
//     </soapenv:Header>
//     <soapenv:Body>
//         <add:SearchProfessionalsRequest Id="bdc38ae62-3e7f-4f80-80f7-c3e745500fa3" IssueInstant="2016-03-23T18:49:26.968+01:00" Offset="0" MaxElements="100">
//             <add:SSIN>74062423769</add:SSIN>
//         </add:SearchProfessionalsRequest>
//     </soapenv:Body>
// </soapenv:Envelope>

xml := CkXml_Create();
CkXml_putTag(xml,'soapenv:Envelope');
CkXml_UpdateAttrAt(xml,'soapenv:Header|wsse:Security',True,'xmlns:wsse','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd');
CkXml_UpdateAttrAt(xml,'soapenv:Header|wsse:Security|wsse:BinarySecurityToken',True,'ValueType','http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID');
CkXml_UpdateAttrAt(xml,'soapenv:Header|wsse:Security|wsse:BinarySecurityToken',True,'EncodingType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary');

CkXml_UpdateChildContent(xml,'soapenv:Header|wsse:Security|wsse:BinarySecurityToken',base64_saml_token);

CkXml_UpdateAttrAt(xml,'soapenv:Body|add:SearchProfessionalsRequest',True,'Id','bdc38ae62-3e7f-4f80-80f7-c3e745500fa3');

dt := CkDateTime_Create();
CkDateTime_SetFromCurrentSystemTime(dt);
CkXml_UpdateAttrAt(xml,'soapenv:Body|add:SearchProfessionalsRequest',True,'IssueInstant',CkDateTime__getAsTimestamp(dt,True));

CkXml_UpdateAttrAt(xml,'soapenv:Body|add:SearchProfessionalsRequest',True,'Offset','0');
CkXml_UpdateAttrAt(xml,'soapenv:Body|add:SearchProfessionalsRequest',True,'MaxElements','100');
CkXml_UpdateChildContent(xml,'soapenv:Body|add:SearchProfessionalsRequest|urn:SSIN','74062423769');

Memo1.Lines.Add(CkXml__getXml(xml));

http := CkHttp_Create();

success := CkHttp_SetSslClientCert(http,cert);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

CkHttp_SetRequestHeader(http,'Content-Type','text/xml');
CkHttp_SetRequestHeader(http,'SOAPAction','urn:be:fgov:ehealth:addressbook:protocol:v1:searchProfessionals');

resp := CkHttp_PostXml(http,'https://services.ehealth.fgov.be/AddressBook/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);

CkCert_Dispose(cert);
CkBinData_Dispose(bdSecToken);
CkXml_Dispose(xml);
CkDateTime_Dispose(dt);
CkHttp_Dispose(http);

end;