![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi DLL) Create Signed SOAP XML for Albanian Fiscalization ServiceThis 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. Note: This example requires Chilkat v11.0.0 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, XmlDSigGen, HttpResponse, StringBuilder, Cert, Http, Xml; ... procedure TForm1.Button1Click(Sender: TObject); var success: Boolean; xmlToSign: HCkXml; gen: HCkXmlDSigGen; cert: HCkCert; sbXml: HCkStringBuilder; strXml: PWideChar; responseStatusCode: Integer; http: HCkHttp; endPoint: PWideChar; resp: HCkHttpResponse; xmlResp: HCkXml; begin success := False; // 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> success := True; // Create the XML to be signed... xmlToSign := CkXml_Create(); CkXml_putTag(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',True,'xmlns','https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest',True,'xmlns:ns2','http://www.w3.org/2000/09/xmldsig#'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest',True,'Id','Request'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|Header',True,'SendDateTime','2019-09-03T14:19:01+02:00'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|Header',True,'UUID','42db3af5-0d9f-4dea-95b4-4b947ab8d8e7'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'BusinUnit','bb123bb123'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'DateTimeCreated','2019-09-03T14:19:01+02:00'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'DestinAddr','Destination address'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'DestinCity','Destination city'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'IsAfterDel','false'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'OperatorCode','oo123oo123'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'SoftNum','ss123ss123'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'StartAddr','Start address'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'StartCity','Start city'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'TransDate','2019-09-03T14:19:01+02:00'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'VehPlates','AA0000AA'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'WTNIC','5C5E58580D0A24E1F7A5E5E011929511'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'WTNICSignature','82D69C38206D ... F5FCA48'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN',True,'WTNNum','12345678901'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer',True,'NUIS','I12345678I'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer',True,'Name','Issuer name'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I',True,'C','501234567890'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I',True,'N','Item name'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I',True,'Q','1.0'); CkXml_UpdateAttrAt(xmlToSign,'SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I',True,'U','piece'); gen := CkXmlDSigGen_Create(); CkXmlDSigGen_putSigLocation(gen,'SOAP-ENV:Envelope|SOAP-ENV:Body|RegisterWTNRequest'); CkXmlDSigGen_putSigLocationMod(gen,0); CkXmlDSigGen_putSigNamespacePrefix(gen,''); CkXmlDSigGen_putSigNamespaceUri(gen,'http://www.w3.org/2000/09/xmldsig#'); CkXmlDSigGen_putSignedInfoCanonAlg(gen,'EXCL_C14N'); CkXmlDSigGen_putSignedInfoDigestMethod(gen,'sha256'); // -------- Reference 1 -------- CkXmlDSigGen_AddSameDocRef(gen,'Request','sha256','EXCL_C14N','',''); // Provide a certificate + private key. (PFX password is test123) cert := CkCert_Create(); success := CkCert_LoadPfxFile(cert,'qa_data/pfx/cert_test123.pfx','test123'); if (success = False) then begin Memo1.Lines.Add(CkCert__lastErrorText(cert)); Exit; end; CkXmlDSigGen_SetX509Cert(gen,cert,True); CkXmlDSigGen_putKeyInfoType(gen,'X509Data'); CkXmlDSigGen_putX509Type(gen,'Certificate'); // Load XML to be signed... sbXml := CkStringBuilder_Create(); CkXml_GetXmlSb(xmlToSign,sbXml); CkXmlDSigGen_putBehaviors(gen,'CompactSignedXml,ForceAddEnvelopedSignatureTransform'); // Sign the XML... success := CkXmlDSigGen_CreateXmlDSigSb(gen,sbXml); if (success = False) then begin Memo1.Lines.Add(CkXmlDSigGen__lastErrorText(gen)); Exit; end; // ----------------------------------------------- // 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... 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.. http := CkHttp_Create(); CkHttp_SetRequestHeader(http,'SOAPAction','https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN'); // The testing endpoint for this soap service is likely: endPoint := 'https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1'; resp := CkHttpResponse_Create(); success := CkHttp_HttpStr(http,'POST',endPoint,strXml,'utf-8','text/xml',resp); if (success = False) then begin Memo1.Lines.Add(CkHttp__lastErrorText(http)); Exit; end; responseStatusCode := CkHttpResponse_getStatusCode(resp); // Check that the responseStatusCode equals 200... Memo1.Lines.Add('Response Status Code: ' + IntToStr(responseStatusCode)); // Examine the exact HTTP header sent with the POST like this: Memo1.Lines.Add('LastHeader:'); Memo1.Lines.Add(CkHttp__lastHeader(http)); // Examine the XML returned by the web service: Memo1.Lines.Add('XML Response:'); xmlResp := CkXml_Create(); CkXml_LoadXml(xmlResp,CkHttpResponse__bodyStr(resp)); Memo1.Lines.Add(CkXml__getXml(xmlResp)); // Use this online tool to generate parsing code from response XML: // Generate Parsing Code from XML CkXml_Dispose(xmlToSign); CkXmlDSigGen_Dispose(gen); CkCert_Dispose(cert); CkStringBuilder_Dispose(sbXml); CkHttp_Dispose(http); CkHttpResponse_Dispose(resp); CkXml_Dispose(xmlResp); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.