Delphi DLL
Delphi DLL
Create SOAP with one VeriFactu Digitally Signed Registration Record
See more Verifactu Examples
Creates a SOAP message containing a single digitally signed invoice registration record, formatted according to the specifications for Spain's Veri*Factu system.Chilkat Delphi DLL Downloads
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder, XmlDSigGen, Xml, XmlDSig, Cert;
...
procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
registroAlta_id: PWideChar;
xml: HCkXml;
i: Integer;
sbSigId: HCkStringBuilder;
sbSigValueId: HCkStringBuilder;
sbSignedPropsId: HCkStringBuilder;
sbObjectRefId: HCkStringBuilder;
gen: HCkXmlDSigGen;
object1: HCkXml;
cert: HCkCert;
sbXml: HCkStringBuilder;
verifier: HCkXmlDSig;
numSigs: Integer;
verifyIdx: Integer;
verified: Boolean;
begin
success := False;
success := True;
// Create the following SOAP XML containing one Veri*Factu record to be signed...
// <?xml version="1.0" encoding="UTF-8"?>
// <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:sum="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd" xmlns:sum1="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" xmlns:xd="http://www.w3.org/2000/09/xmldsig#">
// <soapenv:Header/>
// <soapenv:Body>
// <sum:RegFactuSistemaFacturacion>
// <sum:Cabecera>
// <sum1:ObligadoEmision>
// <sum1:NombreRazon>XYZ STORE SL</sum1:NombreRazon>
// <sum1:NIF>B99999999</sum1:NIF>
// </sum1:ObligadoEmision>
// <sum1:RemisionRequerimiento>
// <sum1:RefRequerimiento>3333333333</sum1:RefRequerimiento>
// <sum1:FinRequerimiento>S</sum1:FinRequerimiento>
// </sum1:RemisionRequerimiento>
// </sum:Cabecera>
// <sum:RegistroFactura>
// <sum1:RegistroAlta Id="001-2020003408">
// <sum1:IDVersion>1.0</sum1:IDVersion>
// <sum1:IDFactura>
// <sum1:IDEmisorFactura>89890001K</sum1:IDEmisorFactura>
// <sum1:NumSerieFactura>12345678-G66</sum1:NumSerieFactura>
// <sum1:FechaExpedicionFactura>03-02-2025</sum1:FechaExpedicionFactura>
// </sum1:IDFactura>
// <sum1:NombreRazonEmisor>certificado uno telematicas</sum1:NombreRazonEmisor>
// <sum1:Subsanacion>N</sum1:Subsanacion>
// <sum1:RechazoPrevio>N</sum1:RechazoPrevio>
// <sum1:TipoFactura>R3</sum1:TipoFactura>
// <sum1:TipoRectificativa>I</sum1:TipoRectificativa>
// <sum1:FacturasRectificadas>
// <sum1:IDFacturaRectificada>
// <sum1:IDEmisorFactura>89890001K</sum1:IDEmisorFactura>
// <sum1:NumSerieFactura>12345600-G66</sum1:NumSerieFactura>
// <sum1:FechaExpedicionFactura>01-04-2024</sum1:FechaExpedicionFactura>
// </sum1:IDFacturaRectificada>
// </sum1:FacturasRectificadas>
// <sum1:FechaOperacion>03-02-2025</sum1:FechaOperacion>
// <sum1:DescripcionOperacion>fecha entrega</sum1:DescripcionOperacion>
// <sum1:Destinatarios>
// <sum1:IDDestinatario>
// <sum1:NombreRazon>certificado dos telematicas</sum1:NombreRazon>
// <sum1:NIF>89890002E</sum1:NIF>
// </sum1:IDDestinatario>
// </sum1:Destinatarios>
// <sum1:Desglose>
// <sum1:DetalleDesglose>
// <sum1:ClaveRegimen>01</sum1:ClaveRegimen>
// <sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
// <sum1:TipoImpositivo>4</sum1:TipoImpositivo>
// <sum1:BaseImponibleOimporteNoSujeto>10</sum1:BaseImponibleOimporteNoSujeto>
// <sum1:CuotaRepercutida>0.4</sum1:CuotaRepercutida>
// </sum1:DetalleDesglose>
// <sum1:DetalleDesglose>
// <sum1:ClaveRegimen>01</sum1:ClaveRegimen>
// <sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
// <sum1:TipoImpositivo>21</sum1:TipoImpositivo>
// <sum1:BaseImponibleOimporteNoSujeto>100</sum1:BaseImponibleOimporteNoSujeto>
// <sum1:CuotaRepercutida>21</sum1:CuotaRepercutida>
// </sum1:DetalleDesglose>
// <sum1:DetalleDesglose>
// <sum1:ClaveRegimen>05</sum1:ClaveRegimen>
// <sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
// <sum1:TipoImpositivo>10</sum1:TipoImpositivo>
// <sum1:BaseImponibleOimporteNoSujeto>100</sum1:BaseImponibleOimporteNoSujeto>
// <sum1:CuotaRepercutida>10</sum1:CuotaRepercutida>
// </sum1:DetalleDesglose>
// </sum1:Desglose>
// <sum1:CuotaTotal>41.4</sum1:CuotaTotal>
// <sum1:ImporteTotal>241.4</sum1:ImporteTotal>
// <sum1:Encadenamiento>
// <sum1:RegistroAnterior>
// <sum1:IDEmisorFactura>89890001K</sum1:IDEmisorFactura>
// <sum1:NumSerieFactura>12345677-G33</sum1:NumSerieFactura>
// <sum1:FechaExpedicionFactura>15-04-2024</sum1:FechaExpedicionFactura>
// <sum1:Huella>C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5</sum1:Huella>
// </sum1:RegistroAnterior>
// </sum1:Encadenamiento>
// <sum1:SistemaInformatico>
// <sum1:NombreRazon>CERTIFICADO UNO TELEMATICAS</sum1:NombreRazon>
// <sum1:NIF>89890001K</sum1:NIF>
// <sum1:NombreSistemaInformatico>NombreSistemaInformatico</sum1:NombreSistemaInformatico>
// <sum1:IdSistemaInformatico>77</sum1:IdSistemaInformatico>
// <sum1:Version>1.0.03</sum1:Version>
// <sum1:NumeroInstalacion>383</sum1:NumeroInstalacion>
// <sum1:TipoUsoPosibleSoloVerifactu>S</sum1:TipoUsoPosibleSoloVerifactu>
// <sum1:TipoUsoPosibleMultiOT>N</sum1:TipoUsoPosibleMultiOT>
// <sum1:IndicadorMultiplesOT>N</sum1:IndicadorMultiplesOT>
// </sum1:SistemaInformatico>
// <sum1:FechaHoraHusoGenRegistro>2025-02-03T14:30:00+01:00</sum1:FechaHoraHusoGenRegistro>
// <sum1:TipoHuella>01</sum1:TipoHuella>
// <sum1:Huella>FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA</sum1:Huella>
// </sum1:RegistroAlta>
// </sum:RegistroFactura>
// </sum:RegFactuSistemaFacturacion>
// </soapenv:Body>
// </soapenv:Envelope>
registroAlta_id := '001-2020003408';
xml := CkXml_Create();
CkXml_putTag(xml,'soapenv:Envelope');
CkXml_AddAttribute(xml,'xmlns:soapenv','http://schemas.xmlsoap.org/soap/envelope/');
CkXml_AddAttribute(xml,'xmlns:sum','https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd');
CkXml_AddAttribute(xml,'xmlns:sum1','https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd');
CkXml_AddAttribute(xml,'xmlns:xd','http://www.w3.org/2000/09/xmldsig#');
CkXml_UpdateChildContent(xml,'soapenv:Header','');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NombreRazon','XYZ STORE SL');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:ObligadoEmision|sum1:NIF','B99999999');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:RefRequerimiento','3333333333');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:Cabecera|sum1:RemisionRequerimiento|sum1:FinRequerimiento','S');
// This Id is URI in the XML digital signature Reference.
CkXml_UpdateAttrAt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta',True,'Id',registroAlta_id);
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDVersion','1.0');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:IDEmisorFactura','89890001K');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:NumSerieFactura','12345678-G66');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:IDFactura|sum1:FechaExpedicionFactura','03-02-2025');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:NombreRazonEmisor','certificado uno telematicas');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Subsanacion','N');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:RechazoPrevio','N');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoFactura','R3');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoRectificativa','I');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:IDEmisorFactura','89890001K');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:NumSerieFactura','12345600-G66');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FacturasRectificadas|sum1:IDFacturaRectificada|sum1:FechaExpedicionFactura','01-04-2024');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaOperacion','03-02-2025');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:DescripcionOperacion','fecha entrega');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NombreRazon','certificado dos telematicas');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Destinatarios|sum1:IDDestinatario|sum1:NIF','89890002E');
i := 0;
CkXml_putI(xml,i);
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen',01);
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion','S1');
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo',4);
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto',10);
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida','0.4');
i := i + 1;
CkXml_putI(xml,i);
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen',01);
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion','S1');
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo',21);
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto',100);
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida',21);
i := i + 1;
CkXml_putI(xml,i);
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:ClaveRegimen',05);
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CalificacionOperacion','S1');
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:TipoImpositivo',10);
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:BaseImponibleOimporteNoSujeto',100);
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Desglose|sum1:DetalleDesglose[i]|sum1:CuotaRepercutida',10);
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:CuotaTotal','41.4');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:ImporteTotal','241.4');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:IDEmisorFactura','89890001K');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:NumSerieFactura','12345677-G33');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:FechaExpedicionFactura','15-04-2024');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Encadenamiento|sum1:RegistroAnterior|sum1:Huella','C9AF4AF1EF5EBBA700350DE3EEF12C2D355C56AC56F13DB2A25E0031BD2B7ED5');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreRazon','CERTIFICADO UNO TELEMATICAS');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NIF','89890001K');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NombreSistemaInformatico','NombreSistemaInformatico');
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IdSistemaInformatico',77);
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:Version','1.0.03');
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:NumeroInstalacion',383);
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleSoloVerifactu','S');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:TipoUsoPosibleMultiOT','N');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:SistemaInformatico|sum1:IndicadorMultiplesOT','N');
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:FechaHoraHusoGenRegistro','2025-02-03T14:30:00+01:00');
CkXml_UpdateChildContentInt(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:TipoHuella',01);
CkXml_UpdateChildContent(xml,'soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta|sum1:Huella','FF954378B64ED331A9B2366AD317D86E9DEC1716B12DD0ACCB172A6DC4C105AA');
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
sbSigId := CkStringBuilder_Create();
CkStringBuilder_Append(sbSigId,'xmldsig-');
CkStringBuilder_AppendUuid(sbSigId,True);
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-sigvalue"
sbSigValueId := CkStringBuilder_Create();
CkStringBuilder_AppendSb(sbSigValueId,sbSigId);
CkStringBuilder_Append(sbSigValueId,'-sigvalue');
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-signedprops"
sbSignedPropsId := CkStringBuilder_Create();
CkStringBuilder_AppendSb(sbSignedPropsId,sbSigId);
CkStringBuilder_Append(sbSignedPropsId,'-signedprops');
// Generate an ID such as "xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a-ref0"
sbObjectRefId := CkStringBuilder_Create();
CkStringBuilder_AppendSb(sbObjectRefId,sbSigId);
CkStringBuilder_Append(sbObjectRefId,'-ref0');
gen := CkXmlDSigGen_Create();
CkXmlDSigGen_putSigLocation(gen,'soapenv:Envelope|soapenv:Body|sum:RegFactuSistemaFacturacion|sum:RegistroFactura|sum1:RegistroAlta');
CkXmlDSigGen_putSigLocationMod(gen,0);
CkXmlDSigGen_putSigId(gen,CkStringBuilder__getAsString(sbSigId));
CkXmlDSigGen_putSigNamespacePrefix(gen,'ds');
CkXmlDSigGen_putSigNamespaceUri(gen,'http://www.w3.org/2000/09/xmldsig#');
CkXmlDSigGen_putSigValueId(gen,CkStringBuilder__getAsString(sbSigValueId));
CkXmlDSigGen_putSignedInfoCanonAlg(gen,'C14N');
CkXmlDSigGen_putSignedInfoDigestMethod(gen,'sha256');
// Create an Object to be added to the Signature.
object1 := CkXml_Create();
CkXml_putTag(object1,'xades:QualifyingProperties');
CkXml_AddAttribute(object1,'xmlns:xades','http://uri.etsi.org/01903/v1.3.2#');
CkXml_AddAttribute(object1,'xmlns:xades141','http://uri.etsi.org/01903/v1.4.1#');
// "#xmldsig-90637596-e368-4bd0-bcf8-d9a7be617d9a"
CkStringBuilder_Prepend(sbSigId,'#');
CkXml_AddAttribute(object1,'Target',CkStringBuilder__getAsString(sbSigId));
CkXml_UpdateAttrAt(object1,'xades:SignedProperties',True,'Id',CkStringBuilder__getAsString(sbSignedPropsId));
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime','TO BE GENERATED BY CHILKAT');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestMethod',True,'Algorithm','http://www.w3.org/2000/09/xmldsig#sha1');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:CertDigest|ds:DigestValue','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509IssuerName','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert|xades:IssuerSerial|ds:X509SerialNumber','TO BE GENERATED BY CHILKAT');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestMethod',True,'Algorithm','http://www.w3.org/2000/09/xmldsig#sha1');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:CertDigest|ds:DigestValue','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509IssuerName','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[1]|xades:IssuerSerial|ds:X509SerialNumber','TO BE GENERATED BY CHILKAT');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestMethod',True,'Algorithm','http://www.w3.org/2000/09/xmldsig#sha1');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:CertDigest|ds:DigestValue','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509IssuerName','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificate|xades:Cert[2]|xades:IssuerSerial|ds:X509SerialNumber','TO BE GENERATED BY CHILKAT');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier','urn:oid:2.16.724.1.3.1.1.2.1.9');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description','');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod',True,'Algorithm','http://www.w3.org/2000/09/xmldsig#sha1');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue','G7roucf600+f03r/o0bAOQ6WAs0=');
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyQualifiers|xades:SigPolicyQualifier|xades:SPURI','https://sede.administracion.gob.es/politica_de_firma_anexo_1.pdf');
CkStringBuilder_Prepend(sbObjectRefId,'#');
CkXml_UpdateAttrAt(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat',True,'ObjectReference',CkStringBuilder__getAsString(sbObjectRefId));
CkXml_UpdateChildContent(object1,'xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType','text/xml');
CkXmlDSigGen_AddObject(gen,'',CkXml__getXml(object1),'','');
// -------- Reference 1 --------
// The URI for this Reference is the registroAlta_id
CkXmlDSigGen_AddSameDocRef(gen,registroAlta_id,'sha256','','','');
// Remove the "#"
CkStringBuilder_RemoveCharsAt(sbObjectRefId,0,1);
CkXmlDSigGen_SetRefIdAttr(gen,registroAlta_id,CkStringBuilder__getAsString(sbObjectRefId));
// -------- Reference 2 --------
CkXmlDSigGen_AddObjectRef(gen,CkStringBuilder__getAsString(sbSignedPropsId),'sha256','C14N','','http://uri.etsi.org/01903#SignedProperties');
// 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+KeyValue');
CkXmlDSigGen_putX509Type(gen,'Certificate');
// Load XML to be signed...
sbXml := CkStringBuilder_Create();
CkXml_GetXmlSb(xml,sbXml);
CkXmlDSigGen_putBehaviors(gen,'IndentedSignature,Base64Cr13Entity');
// Sign the XML...
success := CkXmlDSigGen_CreateXmlDSigSb(gen,sbXml);
if (success = False) then
begin
Memo1.Lines.Add(CkXmlDSigGen__lastErrorText(gen));
Exit;
end;
// -----------------------------------------------
// Save the signed XML to a file.
success := CkStringBuilder_WriteFile(sbXml,'c:/temp/qa_output/signedSoapXml1.xml','utf-8',False);
Memo1.Lines.Add(CkStringBuilder__getAsString(sbXml));
// ----------------------------------------
// Verify the signatures we just produced...
verifier := CkXmlDSig_Create();
success := CkXmlDSig_LoadSignatureSb(verifier,sbXml);
if (success = False) then
begin
Memo1.Lines.Add(CkXmlDSig__lastErrorText(verifier));
Exit;
end;
numSigs := CkXmlDSig_getNumSignatures(verifier);
verifyIdx := 0;
while verifyIdx < numSigs do
begin
CkXmlDSig_putSelector(verifier,verifyIdx);
verified := CkXmlDSig_VerifySignature(verifier,True);
if (verified <> True) then
begin
Memo1.Lines.Add(CkXmlDSig__lastErrorText(verifier));
Exit;
end;
verifyIdx := verifyIdx + 1;
end;
Memo1.Lines.Add('All signatures were successfully verified.');
CkXml_Dispose(xml);
CkStringBuilder_Dispose(sbSigId);
CkStringBuilder_Dispose(sbSigValueId);
CkStringBuilder_Dispose(sbSignedPropsId);
CkStringBuilder_Dispose(sbObjectRefId);
CkXmlDSigGen_Dispose(gen);
CkXml_Dispose(object1);
CkCert_Dispose(cert);
CkStringBuilder_Dispose(sbXml);
CkXmlDSig_Dispose(verifier);
end;