Einzelnen Beitrag anzeigen

Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
397 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: PDF Datei in Firebird Tabelle speichern

  Alt 30. Aug 2018, 11:16
Hallo, war 2 Tage außer Haus darum erst jetzt meine Antwort.

Gelöst habe ich das Problem folgendermaßen, Komponente TIB_OLEContainer hinzugefügt mit Name: edOle. Dann folgenden Code:
Delphi-Quellcode:
    Seite_OLEQry.Edit;
    PDFFile :=(extractFilePath(Application.ExeName) + 'DSGVO.pdf');
    edOle.CreateObjectFromFile(PDFFile,False);
    edOle.AutoDisplay := True;
    Seite_OLEQry.Post;
Dann kann ich alles sehen und mit dem Reader ausdrucken.
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat