Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) Extract XML string from a .p7m byte array (e.g. FATTURA ELETTRONICA, ITALY)Delphi ActiveX example to extract the original XML from a .p7m (Signed-Data PKCS7 Format) provided as a byte array. One use for this example is to extract the original XML from a Fattura Elettronica .p7m signature.
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 fac: TCkFileAccess; p7mBytes: Array of Byte; crypt: TChilkatCrypt2; originalXml: WideString; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. fac := TCkFileAccess.Create(Self); p7mBytes := fac.ReadEntireFile('testData/p7m/fattura_signature.p7m'); if (fac.LastMethodSuccess <> 1) then begin Memo1.Lines.Add(fac.LastErrorText); Exit; end; crypt := TChilkatCrypt2.Create(Self); originalXml := crypt.OpaqueVerifyString(p7mBytes); if (crypt.LastMethodSuccess <> 1) then begin Memo1.Lines.Add(fac.LastErrorText); Exit; end; Memo1.Lines.Add('Original XML:'); Memo1.Lines.Add(originalXml); Memo1.Lines.Add('Success!'); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.