(Delphi ActiveX) Create Signed SOAP XML for Albanian Fiscalization Service

Important: 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.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
xmlToSign: TChilkatXml;
gen: TChilkatXmlDSigGen;
cert: TChilkatCert;
sbXml: TChilkatStringBuilder;
strXml: WideString;
responseStatusCode: Integer;
http: TChilkatHttp;
endPoint: WideString;
resp: IChilkatHttpResponse;
xmlResp: TChilkatXml;

begin
// 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 := 1;
// Create the XML to be signed...
xmlToSign := TChilkatXml.Create(Self);
xmlToSign.Tag := 'SOAP-ENV:Envelope';
xmlToSign.AddAttribute('xmlns:SOAP-ENV','http://schemas.xmlsoap.org/soap/envelope/');
xmlToSign.UpdateChildContent('SOAP-ENV:Header','');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest',1,'xmlns','https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest',1,'xmlns:ns2','http://www.w3.org/2000/09/xmldsig#');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest',1,'Id','Request');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|Header',1,'SendDateTime','2019-09-03T14:19:01+02:00');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|Header',1,'UUID','42db3af5-0d9f-4dea-95b4-4b947ab8d8e7');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'BusinUnit','bb123bb123');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'DateTimeCreated','2019-09-03T14:19:01+02:00');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'DestinAddr','Destination address');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'DestinCity','Destination city');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'IsAfterDel','false');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'OperatorCode','oo123oo123');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'SoftNum','ss123ss123');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'StartAddr','Start address');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'StartCity','Start city');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'TransDate','2019-09-03T14:19:01+02:00');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'VehPlates','AA0000AA');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'WTNIC','5C5E58580D0A24E1F7A5E5E011929511');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'WTNICSignature','82D69C38206D ... F5FCA48');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN',1,'WTNNum','12345678901');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer',1,'NUIS','I12345678I');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer',1,'Name','Issuer name');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I',1,'C','501234567890');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I',1,'N','Item name');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I',1,'Q','1.0');
xmlToSign.UpdateAttrAt('SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I',1,'U','piece');

gen := TChilkatXmlDSigGen.Create(Self);

gen.SigLocation := 'SOAP-ENV:Envelope|SOAP-ENV:Body|RegisterWTNRequest';
gen.SigLocationMod := 0;
gen.SigNamespacePrefix := '';
gen.SigNamespaceUri := 'http://www.w3.org/2000/09/xmldsig#';
gen.SignedInfoCanonAlg := 'EXCL_C14N';
gen.SignedInfoDigestMethod := 'sha256';

// -------- Reference 1 --------
gen.AddSameDocRef('Request','sha256','EXCL_C14N','','');

// Provide a certificate + private key. (PFX password is test123)
cert := TChilkatCert.Create(Self);
success := cert.LoadPfxFile('qa_data/pfx/cert_test123.pfx','test123');
if (success <> 1) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;
gen.SetX509Cert(cert.ControlInterface,1);

gen.KeyInfoType := 'X509Data';
gen.X509Type := 'Certificate';

// Load XML to be signed...
sbXml := TChilkatStringBuilder.Create(Self);
xmlToSign.GetXmlSb(sbXml.ControlInterface);

gen.Behaviors := 'CompactSignedXml,ForceAddEnvelopedSignatureTransform';

// Sign the XML...
success := gen.CreateXmlDSigSb(sbXml.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(gen.LastErrorText);
    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 := sbXml.GetAsString();

// 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 := TChilkatHttp.Create(Self);
http.SetRequestHeader('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:
http.SetRequestHeader('Content-Type','text/xml; charset=utf-8');

// The testing endpoint for this soap service is likely:
endPoint := 'https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1';

resp := http.PostXml(endPoint,strXml,'utf-8');
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Memo1.Lines.Add('LastHeader:');
    Memo1.Lines.Add(http.LastHeader);
    Exit;
  end;

responseStatusCode := resp.StatusCode;

// 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(http.LastHeader);

// Examine the XML returned by the web service:
Memo1.Lines.Add('XML Response:');
xmlResp := TChilkatXml.Create(Self);
xmlResp.LoadXml(resp.BodyStr);
Memo1.Lines.Add(xmlResp.GetXml());

// Use this online tool to generate parsing code from response XML: 
// Generate Parsing Code from XML
end;