|
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
(Tcl) Create Signed SOAP XML for Albanian Fiscalization ServiceImportant: This example requires Chilkat v9.5.0.80 or greater. This example is created for a customer that needs to send signed billing/invoicing SOAP XML requests to http://efiskalizimi-test.tatime.gov.al:80/FiscalizationService The example demonstrates how to create and signed the SOAP XML message that is to be sent.
load ./chilkat.dll # 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. # -------------------------------------------------------------------------------- # We want to build and send a signed SOAP XML that looks like the following: # # <?xml version="1.0" encoding="utf-8"?> # <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"> # <SOAP-ENV:Header/> # <SOAP-ENV:Body> # <RegisterWTNRequest xmlns="https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema" xmlns:ns2="http://www.w3.org/2000/09/xmldsig#" Id="Request"> # <Header SendDateTime="2019-09-03T14:19:01+02:00" UUID="42db3af5-0d9f-4dea-95b4-4b947ab8d8e7"/> # <WTN BusinUnit="bb123bb123" DateTimeCreated="2019-09-03T14:19:01+02:00" DestinAddr="Destination address" # DestinCity="Destination city" IsAfterDel="false" OperatorCode="oo123oo123" # SoftNum="ss123ss123" StartAddr="Start address" StartCity="Start city" TransDate="2019-09-03T14:19:01+02:00" # VehPlates="AA0000AA" WTNIC="5C5E58580D0A24E1F7A5E5E011929511" WTNICSignature="82D69C38206D ... F5FCA48" WTNNum="12345678901"> # <Issuer NUIS="I12345678I" Name="Issuer name"/> # <Items> # <I C="501234567890" N="Item name" Q="1.0" U="piece"/> # </Items> # </WTN> # <Signature xmlns="http://www.w3.org/2000/09/xmldsig#"> # <SignedInfo> # <CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/> # <SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256"/> # <Reference URI="#Request"> # <Transforms> # <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/> # <Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/> # </Transforms> # <DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/> # <DigestValue>aNa0r4RW04BlsAciTUrWHGW9PADskl2op315BAQ0hTg=</DigestValue> # </Reference> # </SignedInfo> # <SignatureValue>4/j/d4j/5xCJ2YUP+XTC6li0B94...........................KESd38NT5+puArBcNgLYIjLx/dh6Q==</SignatureValue> # <KeyInfo> # <X509Data> # <X509Certificate>MIIE6TCCAtGgAwIBAgICEA8wDQYJKoZIhvcNA......................uoqWsSuLmA==</X509Certificate> # </X509Data> # </KeyInfo> # </Signature> # </RegisterWTNRequest> # </SOAP-ENV:Body> # </SOAP-ENV:Envelope> set success 1 # Create the XML to be signed... set xmlToSign [new_CkXml] CkXml_put_Tag $xmlToSign "SOAP-ENV:Envelope" CkXml_AddAttribute $xmlToSign "xmlns:SOAP-ENV" "http://schemas.xmlsoap.org/soap/envelope/" CkXml_UpdateChildContent $xmlToSign "SOAP-ENV:Header" "" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest" 1 "xmlns" "https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest" 1 "xmlns:ns2" "http://www.w3.org/2000/09/xmldsig#" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest" 1 "Id" "Request" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|Header" 1 "SendDateTime" "2019-09-03T14:19:01+02:00" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|Header" 1 "UUID" "42db3af5-0d9f-4dea-95b4-4b947ab8d8e7" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "BusinUnit" "bb123bb123" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "DateTimeCreated" "2019-09-03T14:19:01+02:00" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "DestinAddr" "Destination address" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "DestinCity" "Destination city" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "IsAfterDel" "false" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "OperatorCode" "oo123oo123" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "SoftNum" "ss123ss123" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "StartAddr" "Start address" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "StartCity" "Start city" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "TransDate" "2019-09-03T14:19:01+02:00" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "VehPlates" "AA0000AA" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "WTNIC" "5C5E58580D0A24E1F7A5E5E011929511" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "WTNICSignature" "82D69C38206D ... F5FCA48" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "WTNNum" "12345678901" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer" 1 "NUIS" "I12345678I" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer" 1 "Name" "Issuer name" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I" 1 "C" "501234567890" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I" 1 "N" "Item name" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I" 1 "Q" "1.0" CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I" 1 "U" "piece" set gen [new_CkXmlDSigGen] CkXmlDSigGen_put_SigLocation $gen "SOAP-ENV:Envelope|SOAP-ENV:Body|RegisterWTNRequest" CkXmlDSigGen_put_SigLocationMod $gen 0 CkXmlDSigGen_put_SigNamespacePrefix $gen "" CkXmlDSigGen_put_SigNamespaceUri $gen "http://www.w3.org/2000/09/xmldsig#" CkXmlDSigGen_put_SignedInfoCanonAlg $gen "EXCL_C14N" CkXmlDSigGen_put_SignedInfoDigestMethod $gen "sha256" # -------- Reference 1 -------- CkXmlDSigGen_AddSameDocRef $gen "Request" "sha256" "EXCL_C14N" "" "" # Provide a certificate + private key. (PFX password is test123) set cert [new_CkCert] set success [CkCert_LoadPfxFile $cert "qa_data/pfx/cert_test123.pfx" "test123"] if {$success != 1} then { puts [CkCert_lastErrorText $cert] delete_CkXml $xmlToSign delete_CkXmlDSigGen $gen delete_CkCert $cert exit } CkXmlDSigGen_SetX509Cert $gen $cert 1 CkXmlDSigGen_put_KeyInfoType $gen "X509Data" CkXmlDSigGen_put_X509Type $gen "Certificate" # Load XML to be signed... set sbXml [new_CkStringBuilder] CkXml_GetXmlSb $xmlToSign $sbXml CkXmlDSigGen_put_Behaviors $gen "CompactSignedXml,ForceAddEnvelopedSignatureTransform" # Sign the XML... set success [CkXmlDSigGen_CreateXmlDSigSb $gen $sbXml] if {$success != 1} then { puts [CkXmlDSigGen_lastErrorText $gen] delete_CkXml $xmlToSign delete_CkXmlDSigGen $gen delete_CkCert $cert delete_CkStringBuilder $sbXml exit } # ----------------------------------------------- # Now to send the SOAP request.... # Note: Chilkat did not actually test this by sending the request to the server. # The example is a best-guess for how to do it... set strXml [CkStringBuilder_getAsString $sbXml] # We'll need to add this in the HTTP header: # SOAPAction: "https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN" # Note: This is for the RegisterWTN request. # You may wish to load the WSDL at https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1/FiscalizationService.wsdl into the SoapUI application to see # the SOAP requests.. set http [new_CkHttp] CkHttp_SetRequestHeader $http "SOAPAction" "https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN" # Some services expect the content-type in the HTTP header to be "application/xml" while # other expect text/xml. The default sent by Chilkat is "application/xml", but this web service # likely expects "text/xml". Therefore, change the content-type: CkHttp_SetRequestHeader $http "Content-Type" "text/xml; charset=utf-8" # The testing endpoint for this soap service is likely: set endPoint "https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1" # resp is a CkHttpResponse set resp [CkHttp_PostXml $http $endPoint $strXml "utf-8"] if {[CkHttp_get_LastMethodSuccess $http] != 1} then { puts [CkHttp_lastErrorText $http] puts "LastHeader:" puts [CkHttp_lastHeader $http] delete_CkXml $xmlToSign delete_CkXmlDSigGen $gen delete_CkCert $cert delete_CkStringBuilder $sbXml delete_CkHttp $http exit } set responseStatusCode [CkHttpResponse_get_StatusCode $resp] # Check that the responseStatusCode equals 200... puts "Response Status Code: $responseStatusCode" # Examine the exact HTTP header sent with the POST like this: puts "LastHeader:" puts [CkHttp_lastHeader $http] # Examine the XML returned by the web service: puts "XML Response:" set xmlResp [new_CkXml] CkXml_LoadXml $xmlResp [CkHttpResponse_bodyStr $resp] puts [CkXml_getXml $xmlResp] # Use this online tool to generate parsing code from response XML: # Generate Parsing Code from XML delete_CkHttpResponse $resp delete_CkXml $xmlToSign delete_CkXmlDSigGen $gen delete_CkCert $cert delete_CkStringBuilder $sbXml delete_CkHttp $http delete_CkXml $xmlResp |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.