SynPDF als Exportfilter für FastReport

[Gremlin]

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;