Delphi ActiveX Requires Chilkat v11.0.0+

Belgium eHealth Platform - AddressBook - Search for Professionals

See more Belgian eHealth Platform Examples

Demonstrates how to search for professionals using the AddressBook API. Delphi ActiveX

var
success: Integer;
cert: TChilkatCert;
bdSecToken: TChilkatBinData;
startIdx: Integer;
endIdx: Integer;
base64_saml_token: WideString;
xml: TChilkatXml;
dt: TCkDateTime;
http: TChilkatHttp;
xmlStr: WideString;
resp: TChilkatHttpResponse;

begin
success := 0;

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

//  --------------------------------------------------------------------------------
//  Also see Chilkat's Online WSDL Code Generator
//  to generate code and SOAP Request and Response XML for each operation in a WSDL.
//  --------------------------------------------------------------------------------

//  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 := TChilkatCert.Create(Self);
success := cert.LoadPfxFile('SSIN=12345678.acc.p12','p12_password');
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    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 := TChilkatBinData.Create(Self);
success := bdSecToken.LoadFile('qa_data/tokens/ehealth-fgov-be-sectoken.xml');
if (success = 0) 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 := bdSecToken.FindString('<Assertion',0,'utf-8');
if (startIdx < 0) then
  begin
    Memo1.Lines.Add('Did not find the start of the SAML assertion.');
    Exit;
  end;
endIdx := bdSecToken.FindString('</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 := bdSecToken.GetEncodedChunk(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 := TChilkatXml.Create(Self);
xml.Tag := 'soapenv:Envelope';
xml.UpdateAttrAt('soapenv:Header|wsse:Security',1,'xmlns:wsse','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd');
xml.UpdateAttrAt('soapenv:Header|wsse:Security|wsse:BinarySecurityToken',1,'ValueType','http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID');
xml.UpdateAttrAt('soapenv:Header|wsse:Security|wsse:BinarySecurityToken',1,'EncodingType','http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary');

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

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

dt := TCkDateTime.Create(Self);
dt.SetFromCurrentSystemTime();
xml.UpdateAttrAt('soapenv:Body|add:SearchProfessionalsRequest',1,'IssueInstant',dt.GetAsTimestamp(1));

xml.UpdateAttrAt('soapenv:Body|add:SearchProfessionalsRequest',1,'Offset','0');
xml.UpdateAttrAt('soapenv:Body|add:SearchProfessionalsRequest',1,'MaxElements','100');
xml.UpdateChildContent('soapenv:Body|add:SearchProfessionalsRequest|urn:SSIN','74062423769');

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

http := TChilkatHttp.Create(Self);

success := http.SetSslClientCert(cert.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

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

xmlStr := xml.GetXml();
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpStr('POST','https://services.ehealth.fgov.be/AddressBook/v1',xmlStr,'utf-8','application/xml',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add(resp.BodyStr);
Memo1.Lines.Add('response status code = ' + IntToStr(resp.StatusCode));