FastReport VCL是用于在軟件中集成商務(wù)智能的現(xiàn)代解決方案。它提供了可視化模板設(shè)計(jì)器，可以訪問最受歡迎的數(shù)據(jù)源，報(bào)告引擎，預(yù)覽，將過濾器導(dǎo)出為30多種格式，并可以部署到云，Web，電子郵件和打印中。

FastReport VCL最新版下載

我們很難想象沒有電子文檔管理的生活，電子文檔的文件不易丟失，易于存儲(chǔ)，并且可以方便轉(zhuǎn)移。但眾所周知，只有簽署的文件才能生效。

procedure TForm1.Button1Click(Sender: TObject);
const
 FR3FileName = 'Signatures.fr3';
var
 PDFExport: TfrxPDFExport;
 Report: TfrxReport;
begin
 Report := TfrxReport.Create(nil);
 try
 Report.LoadFromFile(FR3FileName);
 Report.PrepareReport; // upload and prepare a report
 
 PDFExport := TfrxPDFExport.Create(nil);
 try
 PDFExport.Report := Report;
 PDFExport.ShowDialog := False;
 
 
 PDFExport.FileName := ExtractFileName(FR3FileName) + '.pdf';
 Report.Export(PDFExport); // export the report
 SignExport(PDFExport); // sign the file
 finally
 PDFExport.Free;
 end;
 finally
 Report.Free;
 end;
end;
 
procedure SignExport(PDFExport: TfrxPDFExport);
const
 CertificatePath = 'JaneDoe.pfx'; // The name of our certificate
 PasCert = '123'; // certificate password
var
 Lookup: TCertificateStoreLookup;
 FS: TfrxFileSignature;
 FSO: Integer;
begin
 Lookup := TCertificateStoreLookup.Create;
 Lookup.IgnoreCase := true;
 Lookup.CertificatePath := CertificatePath;
 
 FSO := FileSignatureOptions(
 true, // Detached = true Signature in a detached file
 false, // Chain = false Certificate chain
 false, // OnlyGOST= true GOST certificate
 true, // DebugLog = true Debugging Information
 true); // PFX = false (true) indicates that the certificate should be searched in the pfx/p12 file. 
At the same time, the file name and, possibly, the password must be specified.
 
 FS := TfrxFileSignature.Create(
 Lookup,
 PDFExport.FileName, // PDF file name
 PDFExport.FileName + '.sig', // Name of the generated signature
 AnsiString(PasCert),
 FSO);
 
 FS.Sign;
 FS.Free;
 Lookup.Free;
end; 

啟動(dòng)后，點(diǎn)擊“導(dǎo)出”按鈕。然后我們得到一個(gè)帶有簽名文件的簽名PDF文件：

我們應(yīng)該檢查 PDF 文件是否正確簽名。為此，打開控制臺(tái)并輸入以下命令：

openssl pkcs12 -in JohnDoe.pfx -out JohnDoe.pem

openssl smime -verify  -binary  -inform DER -in Signatures.fr3.pdf.sig -content Signatures.fr3.pdf 
-certfile JohnDoe.pem -nointern  -noverify  1 >  / dev / null 

此屏幕截圖顯示 PDF 文件已通過簽名檢查，所以我們做到了。
因此，我們用FastReport VCL快速地得到了一個(gè)正確導(dǎo)出的PDF文件的簽名。

FastReport技術(shù)QQ群：536197826      歡迎進(jìn)群一起討論