SynPDF als Exportfilter für FastReport

[Kostas]

Hallo Zusammen,

der PDF Exportfilter von FastReport ist völlig unbrauchbar.
Jetzt habe ich zufällig was von SynPDF gehört und mir das SynPDF.zip gesaugt.
Leider finde ich keine Hinweise wie es als PDF-Exportfilter für FastReport genutzt werden kann.
In dem Zip ist keine Komponente enthalten und keine Beschreibung wie es verwendet werden kann.

so habe ich es versucht.

Delphi-Quellcode:

            frxReport1.FileName := aPrintJobName;

            frxReport1.PrintOptions.ShowDialog := false;

            frxReport1.PrepareReport;

            frxSynPDFExport.Create(Appication);  <<<Exception
            try
              if (ExtractFilePath(PrintJobName)<>'')
              then frxSynPDFExport.FileName := PrintJobName
              else frxSynPDFExport.FileName := PrgPath + PDFExportPath + aPrintJobName + '.pdf';
              frxSynPDFExport.ShowDialog := false;
              frxReport1.Export(frxSynPDFExport);
            finally
              frxSynPDFExport.free;
            end;

Hat jemand eine Idee wie SynPDF eingebunden werden kann?

Gruß Kostas

[sahimba]

Schau mal hier: http://synopse.info/forum/viewtopic.php?id=78
In dem Thread ist ein Exportfilter zu finden. Habe bisher keinerlei Probleme feststellen können.
Grüße,
S.

[Kostas]

Zitat von sahimba:

Schau mal hier: http://synopse.info/forum/viewtopic.php?id=78
In dem Thread ist ein Exportfilter zu finden. Habe bisher keinerlei Probleme feststellen können.
Grüße,
S.

Hallo sahimba,

der Link ist leider defekt.
Wie nutze ich bitte die Klasse TfrxSynPDFExport? Gibt es eine Komponente dazu oder wird es irgend wie instanziert?

[Edit] mit dem defekten Link meine ich nicht deinen Link sondern in dem Link das Zip File
Gruß Kostas

[Union]

Da fehlte eine 1 am Ende des Links.

http://synopse.info/forum/viewtopic.php?id=781

[Kostas]

Zitat von Union:

Da fehlte eine 1 am Ende des Links.

http://synopse.info/forum/viewtopic.php?id=781

Diese Seite kannte ich bereits. Ich komme nicht wirklich weiter damit.
Also ich habe die frxExportSynPDF.dfm und frxExportSynPDF.pas erstellt und zusammen mit den
SynPDF.zip Files in ein Verzeichnis kopiert und danach den Path in der Bibliothek gesetzt.
In mein Projekt frxExportSynPDF in uses eingetragen.

Wie geht es jetzt weiter bitte?

Es steht beschrieben, man muss frxPDFExport ersetzen durch TfrxSynPDFExport wie ist das gemeint?
frxPDFExport ist eine Komponente auf der Form. Es steht drin, die soll ich löschen.
Wenn ich frxPDFExport lösche, muss ich TfrxSynPDFExport manuell instanzieren da ich ja keine Komponente habe.
In frxExportSynPDF.pas gibt es keine Procedure Register somit ist das Teil auch nicht vorgesehen als
Komponente.

Wie verwendest du es bitte? Hast du daraus eine Komponente gemacht oder instanzierst du das Teil manuell?

Danke für Hilfestellung!

Gruß Kostas

[Union]

Ich verwende das gar nicht. Ich meinte die Nutzung ginge aus dem Trend hervor. Wir verwenden den normalen FR PDF Export und hatten bisher keine Probleme.

[Aviator]

Zitat von Kostas:

frxSynPDFExport.Create(Appication); <<<Exception

Übertragungsfehler oder fehlt bei dem Übergabeparameter das "L" bei Application? Wenn das auch nicht geht versuch doch mal Self oder so.
Edit: Würde mich allerdings wundern, wenn es eine solche Variable geben würde.

[Kostas]

Problem gelöst.

...manchmal ist es besser ein Testprojekt zu erzeugen um genau ein bestimmtes Problem zu analysieren.
In einem neuen Projekt funktioniert alles einwandfrei. In meinem Projekt übersehe ich da sicherlich eine Kleinigkeit.
Das Testprojekt komplett incl. SynDPF sources im Anhang falls es jemand braucht.

Das generierte PDF ist übrigens genau so wie erwartet. RTF ist RTF, WMF ist WMF und auch HTML-Tags funktionieren.
Ist doch wie Weihnachten.

Sorry für den Thread.
Gruß Kostas

[Buddelfish]

Zitat von Kostas:

...manchmal ist es besser ein Testprojekt zu erzeugen um genau ein bestimmtes Problem zu analysieren.

Nee. Eigentlich immer.

Zitat:

Sorry für den Thread.

Sorry? Eher Danke! Problem erklärt, Facepalm ausgelöst, Beispiellösung geliefert.

Danke für den Thread.

[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;