Einzelnen Beitrag anzeigen

Gremlin

Registriert seit: 18. Apr 2006
Ort: Im Süden
176 Beiträge
 
Delphi 7 Enterprise
 
#12

AW: SynPDF als Exportfilter für FastReport

  Alt 11. Mär 2014, 10:31
Hallöchen,


hab mich auch mal an dem Beispiel versucht, klappt ganz ausgezeichnet - vielen Dank auch dafür - nur weiss ich nicht, wie ich die Verschlüsselung für die Ausgabedatei setzen kann. Wenn ich es im nachfolgenden ersten Methode angebe, so wird eine Schutzverletzung bei der zweiten Methode ausgelöst. Kann mir bitte jemand dabei helfen oder einen Schubs in die passende Richtung geben? Viele Dank

Setzen der Sicherheitseinstellungen (im Beispiel-Exportfilter)

Delphi-Quellcode:
function TfrxSynPDFExport.GetPdfDocument: TPdfDocumentGDI;
begin
  if not Assigned(fPdfDocument) then
  begin
    fPdfDocument := TPdfDocumentGDI.Create(False, 0, False, TPdfEncryption.New(elRC4_128, '123', 'abc', PDF_PERMISSION_ALL));

Schutzverletztung in SynPDF.pas


Delphi-Quellcode:
procedure TPdfDictionary.AddItem(const AKey: PDFString; AValue: TPdfObject;
  AInternal: Boolean);
var FItem: TPdfDictionaryElement;
Gruss Gremlin
  Mit Zitat antworten Zitat