Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Create XAdES Facturae 3.2 Signed Invoice
See more XAdES Examples
Demonstrates how to create a factura electrónica XAdES digital signature for Gobierno de EspañaChilkat Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.StringBuilder,
Chilkat.XmlDSigGen,
Chilkat.Xml,
Chilkat.Cert;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
xmlToSign: TXml;
gen: TXmlDSigGen;
object1: TXml;
cert: TCert;
sbXml: TStringBuilder;
begin
success := False;
// ---
// The following source code can be generated from sample XML using the XML Signature Code Generator at chilkat.io
// ---
// Create the XML to be signed...
xmlToSign := TXml.Create;
xmlToSign.Tag := 'fe:Facturae';
xmlToSign.AddAttribute('xmlns:ds','http://www.w3.org/2000/09/xmldsig#');
xmlToSign.AddAttribute('xmlns:fe','http://www.facturae.es/Facturae/2009/v3.2/Facturae');
xmlToSign.UpdateChildContent('FileHeader|SchemaVersion','3.2');
xmlToSign.UpdateChildContent('FileHeader|Modality','I');
xmlToSign.UpdateChildContent('FileHeader|InvoiceIssuerType','EM');
xmlToSign.UpdateChildContent('FileHeader|Batch|BatchIdentifier','0000000000B2Emit-');
xmlToSign.UpdateChildContent('FileHeader|Batch|InvoicesCount','1');
xmlToSign.UpdateChildContent('FileHeader|Batch|TotalInvoicesAmount|TotalAmount','63.13');
xmlToSign.UpdateChildContent('FileHeader|Batch|TotalOutstandingAmount|TotalAmount','63.13');
xmlToSign.UpdateChildContent('FileHeader|Batch|TotalExecutableAmount|TotalAmount','63.13');
xmlToSign.UpdateChildContent('FileHeader|Batch|InvoiceCurrencyCode','EUR');
xmlToSign.UpdateChildContent('Parties|SellerParty|TaxIdentification|PersonTypeCode','J');
xmlToSign.UpdateChildContent('Parties|SellerParty|TaxIdentification|ResidenceTypeCode','R');
xmlToSign.UpdateChildContent('Parties|SellerParty|TaxIdentification|TaxIdentificationNumber','A82735122');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|CorporateName','Company Comp SA');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|TradeName','Comp');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Book','1');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|RegisterOfCompaniesLocation','12AP22');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Sheet','3');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Folio','15');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Section','2');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|Volume','12');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|RegistrationData|AdditionalRegistrationData','Sin datos');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|Address','C/ Mayour 33 15 E');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|PostCode','28001');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|Town','Argamasilla de Alba');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|Province','Ciudad Real');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|AddressInSpain|CountryCode','ESP');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|Telephone','917776665');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|TeleFax','917776666');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|WebAddress','www.facturae.es');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|ElectronicMail','facturae@mityc.es');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|ContactPersons','Fernando');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|CnoCnae','28000');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|INETownCode','2134AAB');
xmlToSign.UpdateChildContent('Parties|SellerParty|LegalEntity|ContactDetails|AdditionalContactDetails','Otros datos');
xmlToSign.UpdateChildContent('Parties|BuyerParty|TaxIdentification|PersonTypeCode','F');
xmlToSign.UpdateChildContent('Parties|BuyerParty|TaxIdentification|ResidenceTypeCode','E');
xmlToSign.UpdateChildContent('Parties|BuyerParty|TaxIdentification|TaxIdentificationNumber','0000000000B');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreCode','1');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|RoleTypeCode','02');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|Name','Ruth');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|FirstSurname','Mauripo');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Address','Armenia 1922');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|PostCodeAndTown','00000 Buenos Aires');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|Province','Capital Federal');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|OverseasAddress|CountryCode','ARG');
xmlToSign.UpdateChildContent('Parties|BuyerParty|AdministrativeCentres|AdministrativeCentre|CentreDescription','Centro principal de recepcion');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|Name','Juana');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|FirstSurname','Mauripo');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|OverseasAddress|Address','Juncal 1315');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|OverseasAddress|PostCodeAndTown','00000 Buenos Aires');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|OverseasAddress|Province','Capital Federal');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|OverseasAddress|CountryCode','ARG');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|ContactDetails|Telephone','00547775554');
xmlToSign.UpdateChildContent('Parties|BuyerParty|Individual|ContactDetails|TeleFax','00547775555');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceHeader|InvoiceNumber','2');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceHeader|InvoiceSeriesCode','Emit-');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceHeader|InvoiceDocumentType','FC');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceHeader|InvoiceClass','OO');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|IssueDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|OperationDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PostCode','00000');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|PlaceOfIssue|PlaceOfIssueDescription','Regalos');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|StartDate','2010-03-09');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|InvoicingPeriod|EndDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|InvoiceCurrencyCode','EUR');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|TaxCurrencyCode','EUR');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceIssueData|LanguageName','es');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|TaxTypeCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|TaxRate','16.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|TaxableBase|TotalAmount','26.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|TaxAmount|TotalAmount','4.16');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurcharge','1.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount','0.26');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax[1]|TaxTypeCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax[1]|TaxRate','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesOutputs|Tax[1]|TaxableBase|TotalAmount','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesWithheld|Tax|TaxTypeCode','05');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesWithheld|Tax|TaxRate','4.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesWithheld|Tax|TaxableBase|TotalAmount','26.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|TaxesWithheld|Tax|TaxAmount|TotalAmount','1.04');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalGrossAmount','59.75');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalGeneralDiscounts','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalGeneralSurcharges','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalGrossAmountBeforeTaxes','59.75');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalTaxOutputs','4.42');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalTaxesWithheld','1.04');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|InvoiceTotal','63.13');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalOutstandingAmount','63.13');
xmlToSign.UpdateChildContent('Invoices|Invoice|InvoiceTotals|TotalExecutableAmount','63.13');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|IssuerContractReference','A9938281');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|IssuerContractDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|IssuerTransactionReference','A9938282');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|IssuerTransactionDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ReceiverContractReference','BBBH-38271');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ReceiverContractDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionReference','BBBH-38272');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ReceiverTransactionDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|FileReference','000298172');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|FileDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|SequenceNumber','1.0');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteNumber','132413842');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote|DeliveryNoteDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteNumber','987673211');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DeliveryNotesReferences|DeliveryNote[1]|DeliveryNoteDate','2010-03-09');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ItemDescription','Flores');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|Quantity','1.0');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|UnitOfMeasure','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|UnitPriceWithoutTax','25.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TotalCost','25.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountReason','Descuento');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountRate','5.0000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|DiscountsAndRebates|Discount|DiscountAmount','1.250000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeReason','Cargo');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|Charges|Charge|ChargeAmount','10.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|GrossAmount','33.750000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxTypeCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxRate','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxableBase|TotalAmount','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|TaxesOutputs|Tax|TaxAmount|TotalAmount','0.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|AdditionalLineItemInformation','Contacto en Neuquen: Paulita');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|SpecialTaxableEvent|SpecialTaxableEventReason','Concepto exento por el motivo aqu definido');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine|ArticleCode','142');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|IssuerContractDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|IssuerTransactionDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|ReceiverContractDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|ReceiverTransactionDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|FileDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|SequenceNumber','2.0');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|ItemDescription','Mate');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|Quantity','2.0');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|UnitOfMeasure','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|UnitPriceWithoutTax','13.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TotalCost','26.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|GrossAmount','26.000000');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxTypeCode','05');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxRate','4.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxableBase|TotalAmount','26.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesWithheld|Tax|TaxAmount|TotalAmount','1.04');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxTypeCode','01');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxRate','16.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxableBase|TotalAmount','26.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|TaxAmount|TotalAmount','4.16');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurcharge','1.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|TaxesOutputs|Tax|EquivalenceSurchargeAmount|TotalAmount','0.26');
xmlToSign.UpdateChildContent('Invoices|Invoice|Items|InvoiceLine[1]|ArticleCode','122');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|InstallmentDueDate','2010-03-10');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|InstallmentAmount','25.00');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|PaymentMeans','19');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|IBAN','4322 3432 22 1341234212');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BankCode','4322');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|BranchCode','3432');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Address','Juncal 1423 8 Z');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|PostCodeAndTown','01115 Capital Federal');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|Province','Buenos Aires');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeCredited|OverseasBranchAddress|CountryCode','ARG');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|PaymentReconciliationReference','12223');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|IBAN','1234 4312 22 33212341212314');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BankCode','1234');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|AccountToBeDebited|BranchCode','4312');
xmlToSign.UpdateChildContent('Invoices|Invoice|PaymentDetails|Installment|DebitReconciliationReference','12223');
gen := TXmlDSigGen.Create;
success := True;
gen.SigLocation := 'fe:Facturae';
gen.SigLocationMod := 0;
gen.SigId := 'Signature869123';
gen.AddSignatureNamespace('etsi','http://uri.etsi.org/01903/v1.3.2#');
gen.SigNamespacePrefix := 'ds';
gen.SigNamespaceUri := 'http://www.w3.org/2000/09/xmldsig#';
gen.SignedInfoId := 'Signature-SignedInfo241096';
gen.SignedInfoCanonAlg := 'EXCL_C14N';
gen.SignedInfoDigestMethod := 'sha256';
// Create an Object to be added to the Signature.
object1 := TXml.Create;
object1.Tag := 'xades:QualifyingProperties';
object1.AddAttribute('xmlns:xades','http://uri.etsi.org/01903/v1.3.2#');
// The Id can be any unique string..
object1.AddAttribute('Id','QualifyingProperties-e01a8fee-1bee-4ff5-9570-3d57aa02f278');
object1.AddAttribute('Target','#Signature869123');
object1.UpdateAttrAt('xades:SignedProperties',True,'Id','Signature869123-SignedProperties787205');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningTime','TO BE GENERATED BY CHILKAT');
// Note: It may be that http://www.w3.org/2001/04/xmlenc#sha256 is needed in the following line instead of http://www.w3.org/2000/09/xmldsig#sha1
object1.UpdateAttrAt('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestMethod',True,'Algorithm','http://www.w3.org/2000/09/xmldsig#sha1');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:CertDigest|ds:DigestValue','TO BE GENERATED BY CHILKAT');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SigningCertificateV2|xades:Cert|xades:IssuerSerialV2','TO BE GENERATED BY CHILKAT');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Identifier','http://www.facturae.es/politica_de_firma_formato_facturae/politica_de_firma_formato_facturae_v3_1.pdf');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyId|xades:Description','Polótica de Firma FacturaE v3.1');
object1.UpdateAttrAt('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestMethod',True,'Algorithm','http://www.w3.org/2000/09/xmldsig#sha1');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignaturePolicyIdentifier|xades:SignaturePolicyId|xades:SigPolicyHash|ds:DigestValue','Ohixl6upD6av8N7pEvDABhEL6hM=');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedSignatureProperties|xades:SignerRole|xades:ClaimedRoles|xades:ClaimedRole','emisor');
object1.UpdateAttrAt('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat',True,'ObjectReference','#Reference-ID-670821');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:Description','Factura electrónica');
object1.UpdateChildContent('xades:SignedProperties|xades:SignedDataObjectProperties|xades:DataObjectFormat|xades:MimeType','text/xml');
gen.AddObject('Signature869123-Object629337',object1.GetXml(),'','');
gen.AddObjectRef('Signature869123-SignedProperties787205','sha1','','','http://uri.etsi.org/01903#SignedProperties');
gen.SetRefIdAttr('Signature869123-SignedProperties787205','SignedPropertiesID459347');
gen.KeyInfoId := 'Certificate1570061';
gen.AddSameDocRef('Certificate1570061','sha1','','','');
gen.AddSameDocRef('','sha1','','','');
gen.SetRefIdAttr('','Reference-ID-670821');
// Provide a certificate + private key. (PFX password is test123)
cert := TCert.Create;
success := cert.LoadPfxFile('qa_data/pfx/cert_test123.pfx','test123');
if (success = False) then
begin
WriteLn(cert.LastErrorText);
Exit;
end;
gen.SetX509Cert(cert,True);
gen.KeyInfoType := 'X509Data+KeyValue';
gen.X509Type := 'Certificate';
// Load XML to be signed...
sbXml := TStringBuilder.Create;
xmlToSign.GetXmlSb(sbXml);
gen.Behaviors := 'CompactSignedXml';
// Sign the XML...
success := gen.CreateXmlDSigSb(sbXml);
if (success = False) then
begin
WriteLn(gen.LastErrorText);
Exit;
end;
// Save the signed XMl to a file.
success := sbXml.WriteFile('qa_output/signedXml.xml','utf-8',False);
WriteLn(sbXml.GetAsString());
xmlToSign.Free;
gen.Free;
object1.Free;
cert.Free;
sbXml.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.