|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PureBasic) Belgium eHealth Platform - AddressBook - Search for ProfessionalsSee more Belgian eHealth Platform ExamplesDemonstrates 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
IncludeFile "CkBinData.pb" IncludeFile "CkDateTime.pb" IncludeFile "CkHttp.pb" IncludeFile "CkXml.pb" IncludeFile "CkXmlDSigGen.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkHttpResponse.pb" IncludeFile "CkCert.pb" Procedure ChilkatExample() ; This example assumes the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. success.i = 1 ; 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.i = CkCert::ckCreate() If cert.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkCert::ckLoadPfxFile(cert,"SSIN=12345678.acc.p12","p12_password") If success <> 1 Debug CkCert::ckLastErrorText(cert) CkCert::ckDispose(cert) ProcedureReturn EndIf ; Create the XML to be signed... xmlToSign.i = CkXml::ckCreate() If xmlToSign.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::setCkTag(xmlToSign, "soapenv:Envelope") CkXml::ckAddAttribute(xmlToSign,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") CkXml::ckAddAttribute(xmlToSign,"xmlns:urn","urn:be:fgov:ehealth:platformintegrationconsumertest:v1") CkXml::ckAddAttribute(xmlToSign,"xmlns:urn1","urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1") CkXml::ckUpdateAttrAt(xmlToSign,"soapenv:Header|wsse:Security",1,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd") CkXml::ckUpdateAttrAt(xmlToSign,"soapenv:Header|wsse:Security",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") CkXml::ckUpdateAttrAt(xmlToSign,"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") CkXml::ckUpdateAttrAt(xmlToSign,"soapenv:Header|wsse:Security|wsse:BinarySecurityToken",1,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3") CkXml::ckUpdateAttrAt(xmlToSign,"soapenv:Header|wsse:Security|wsse:BinarySecurityToken",1,"wsu:Id","X509-FC77E2C72083DA8E0F16711753508182856") ; --------------------------------------------------------------------------------------------------------------- ; A note about the Id's, such as X509-FC77E2C72083DA8E0F16711753508182856, TS-FC77E2C72083DA8E0F16711753508042855, etc. ; These Id's simply need to be unique within the XML document. You don't need to generate new Id's every time. ; You can use the same Id's in each XML document that is submitted. The purpose of each Id is to ; match the XMLDsig Reference to the element in XML being referenced. ; In other words, you could use the Id's "mickey_mouse", "donald_duck", and "goofy", and it would work perfectly OK, ; as long as no other XML elements also use the Id's "mickey_mouse", "donald_duck", or "goofy" ; --------------------------------------------------------------------------------------------------------------- bdCert.i = CkBinData::ckCreate() If bdCert.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkCert::ckExportCertDerBd(cert,bdCert) CkXml::ckUpdateChildContent(xmlToSign,"soapenv:Header|wsse:Security|wsse:BinarySecurityToken",CkBinData::ckGetEncoded(bdCert,"base64")) CkXml::ckUpdateAttrAt(xmlToSign,"soapenv:Header|wsse:Security|wsu:Timestamp",1,"wsu:Id","TS-FC77E2C72083DA8E0F16711753508042855") dt.i = CkDateTime::ckCreate() If dt.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkDateTime::ckSetFromCurrentSystemTime(dt) CkXml::ckUpdateChildContent(xmlToSign,"soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Created",CkDateTime::ckGetAsTimestamp(dt,0)) CkDateTime::ckAddSeconds(dt,3600) CkXml::ckUpdateChildContent(xmlToSign,"soapenv:Header|wsse:Security|wsu:Timestamp|wsu:Expires",CkDateTime::ckGetAsTimestamp(dt,0)) CkDateTime::ckAddSeconds(dt,-3600) ; The body part of the SOAP request to search for professionals looks like this: ; <soapenv:Body> ; <urn:SearchProfessionalsRequest Id="id-FC77E2C72083DA8E0F16711753508182859" IssueInstant="2016-03-23T18:49:26.968+01:00" Offset="0" MaxElements="100"> ; <urn:SSIN>74062423769</urn:SSIN> ; </urn:SearchProfessionalsRequest> ; </soapenv:Body> CkXml::ckUpdateAttrAt(xmlToSign,"soapenv:Body|urn:SearchProfessionalsRequest",1,"Id","id-FC77E2C72083DA8E0F16711753508182859") CkXml::ckUpdateAttrAt(xmlToSign,"soapenv:Body|urn:SearchProfessionalsRequest",1,"IssueInstant",CkDateTime::ckGetAsTimestamp(dt,1)) CkXml::ckUpdateAttrAt(xmlToSign,"soapenv:Body|urn:SearchProfessionalsRequest",1,"Offset","0") CkXml::ckUpdateAttrAt(xmlToSign,"soapenv:Body|urn:SearchProfessionalsRequest",1,"MaxElements","100") CkXml::ckUpdateChildContent(xmlToSign,"soapenv:Body|urn:SearchProfessionalsRequest|urn:SSIN","12345678910") gen.i = CkXmlDSigGen::ckCreate() If gen.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXmlDSigGen::setCkSigLocation(gen, "soapenv:Envelope|soapenv:Header|wsse:Security|wsse:BinarySecurityToken") CkXmlDSigGen::setCkSigLocationMod(gen, 1) CkXmlDSigGen::setCkSigId(gen, "SIG-FC77E2C72083DA8E0F16711753508252860") CkXmlDSigGen::setCkSigNamespacePrefix(gen, "ds") CkXmlDSigGen::setCkSigNamespaceUri(gen, "http://www.w3.org/2000/09/xmldsig#") CkXmlDSigGen::setCkSignedInfoPrefixList(gen, "soapenv urn urn1") CkXmlDSigGen::setCkIncNamespacePrefix(gen, "ec") CkXmlDSigGen::setCkIncNamespaceUri(gen, "http://www.w3.org/2001/10/xml-exc-c14n#") CkXmlDSigGen::setCkSignedInfoCanonAlg(gen, "EXCL_C14N") CkXmlDSigGen::setCkSignedInfoDigestMethod(gen, "sha256") ; Set the KeyInfoId before adding references.. CkXmlDSigGen::setCkKeyInfoId(gen, "KI-FC77E2C72083DA8E0F16711753508182857") ; -------- Reference 1 -------- CkXmlDSigGen::ckAddSameDocRef(gen,"TS-FC77E2C72083DA8E0F16711753508042855","sha256","EXCL_C14N","wsse soapenv urn urn1","") ; -------- Reference 2 -------- CkXmlDSigGen::ckAddSameDocRef(gen,"id-FC77E2C72083DA8E0F16711753508182859","sha256","EXCL_C14N","urn urn1","") ; -------- Reference 3 -------- CkXmlDSigGen::ckAddSameDocRef(gen,"X509-FC77E2C72083DA8E0F16711753508182856","sha256","EXCL_C14N","_EMPTY_","") CkXmlDSigGen::ckSetX509Cert(gen,cert,1) CkXmlDSigGen::setCkKeyInfoType(gen, "Custom") ; Create the custom KeyInfo XML.. xmlCustomKeyInfo.i = CkXml::ckCreate() If xmlCustomKeyInfo.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::setCkTag(xmlCustomKeyInfo, "wsse:SecurityTokenReference") CkXml::ckAddAttribute(xmlCustomKeyInfo,"wsu:Id","STR-FC77E2C72083DA8E0F16711753508182858") CkXml::ckUpdateAttrAt(xmlCustomKeyInfo,"wsse:Reference",1,"URI","#X509-FC77E2C72083DA8E0F16711753508182856") CkXml::ckUpdateAttrAt(xmlCustomKeyInfo,"wsse:Reference",1,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3") CkXml::setCkEmitXmlDecl(xmlCustomKeyInfo, 0) CkXmlDSigGen::setCkCustomKeyInfoXml(gen, CkXml::ckGetXml(xmlCustomKeyInfo)) ; Load XML to be signed... sbXml.i = CkStringBuilder::ckCreate() If sbXml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::ckGetXmlSb(xmlToSign,sbXml) CkXmlDSigGen::setCkBehaviors(gen, "IndentedSignature") ; Sign the XML... success = CkXmlDSigGen::ckCreateXmlDSigSb(gen,sbXml) If success <> 1 Debug CkXmlDSigGen::ckLastErrorText(gen) CkCert::ckDispose(cert) CkXml::ckDispose(xmlToSign) CkBinData::ckDispose(bdCert) CkDateTime::ckDispose(dt) CkXmlDSigGen::ckDispose(gen) CkXml::ckDispose(xmlCustomKeyInfo) CkStringBuilder::ckDispose(sbXml) ProcedureReturn EndIf ; ----------------------------------------------- ; Send the signed XML... http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkHttp::ckSetSslClientCert(http,cert) If success <> 1 Debug CkHttp::ckLastErrorText(http) CkCert::ckDispose(cert) CkXml::ckDispose(xmlToSign) CkBinData::ckDispose(bdCert) CkDateTime::ckDispose(dt) CkXmlDSigGen::ckDispose(gen) CkXml::ckDispose(xmlCustomKeyInfo) CkStringBuilder::ckDispose(sbXml) CkHttp::ckDispose(http) ProcedureReturn EndIf CkHttp::ckSetRequestHeader(http,"Content-Type","text/xml") CkHttp::ckSetRequestHeader(http,"SOAPAction","urn:be:fgov:ehealth:addressbook:protocol:v1:searchProfessionals") resp.i = CkHttp::ckPostXml(http,"https://services.ehealth.fgov.be/AddressBook/v1",CkStringBuilder::ckGetAsString(sbXml),"utf-8") If CkHttp::ckLastMethodSuccess(http) = 0 Debug CkHttp::ckLastErrorText(http) CkCert::ckDispose(cert) CkXml::ckDispose(xmlToSign) CkBinData::ckDispose(bdCert) CkDateTime::ckDispose(dt) CkXmlDSigGen::ckDispose(gen) CkXml::ckDispose(xmlCustomKeyInfo) CkStringBuilder::ckDispose(sbXml) CkHttp::ckDispose(http) ProcedureReturn EndIf Debug CkHttpResponse::ckBodyStr(resp) Debug "response status code = " + Str(CkHttpResponse::ckStatusCode(resp)) CkHttpResponse::ckDispose(resp) CkCert::ckDispose(cert) CkXml::ckDispose(xmlToSign) CkBinData::ckDispose(bdCert) CkDateTime::ckDispose(dt) CkXmlDSigGen::ckDispose(gen) CkXml::ckDispose(xmlCustomKeyInfo) CkStringBuilder::ckDispose(sbXml) CkHttp::ckDispose(http) ProcedureReturn EndProcedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.