Delphi DLL Requires Chilkat v11.0.0+
Delphi DLL
Create Signed SOAP XML for Albanian Fiscalization Service
See more XAdES Examples
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/FiscalizationServiceThe example demonstrates how to create and signed the SOAP XML message that is to be sent.
Chilkat Delphi DLL Downloads
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);