|
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
(Classic ASP) 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
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' 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. ' -------------------------------------------------------------------------------- success = 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.. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert") set cert = Server.CreateObject("Chilkat.Cert") success = cert.LoadPfxFile("SSIN=12345678.acc.p12","p12_password") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>" Response.End End If ' 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 ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData") set bdSecToken = Server.CreateObject("Chilkat.BinData") success = bdSecToken.LoadFile("qa_data/tokens/ehealth-fgov-be-sectoken.xml") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to load SAML security token") & "</pre>" Response.End End If ' 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 Response.Write "<pre>" & Server.HTMLEncode( "Did not find the start of the SAML assertion.") & "</pre>" Response.End End If endIdx = bdSecToken.FindString("</Assertion>",0,"utf-8") If (endIdx < 0) Then Response.Write "<pre>" & Server.HTMLEncode( "Did not find the end of the SAML assertion.") & "</pre>" Response.End End If ' Adjust the index to the 1st byte after "</Assertion>" endIdx = endIdx + 12 base64_saml_token = bdSecToken.GetEncodedChunk(startIdx,endIdx - startIdx,"base64") Response.Write "<pre>" & Server.HTMLEncode( base64_saml_token) & "</pre>" ' 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> ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = Server.CreateObject("Chilkat.Xml") xml.Tag = "soapenv:Envelope" success = 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") success = xml.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",1,"ValueType","http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID") success = 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 success = xml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",1,"Id","bdc38ae62-3e7f-4f80-80f7-c3e745500fa3") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime") set dt = Server.CreateObject("Chilkat.CkDateTime") success = dt.SetFromCurrentSystemTime() success = xml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",1,"IssueInstant",dt.GetAsTimestamp(1)) success = xml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",1,"Offset","0") success = xml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",1,"MaxElements","100") xml.UpdateChildContent "soapenv:Body|add:SearchProfessionalsRequest|urn:SSIN","74062423769" Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") success = http.SetSslClientCert(cert) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If http.SetRequestHeader "Content-Type","text/xml" http.SetRequestHeader "SOAPAction","urn:be:fgov:ehealth:addressbook:protocol:v1:searchProfessionals" ' resp is a Chilkat.HttpResponse Set resp = http.PostXml("https://services.ehealth.fgov.be/AddressBook/v1",xml.GetXml(),"utf-8") If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & resp.StatusCode) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.