PDF Datei in Firebird Tabelle speichern

[Walter Landwehr]

Hallo,

ich möchte eine PDF Datei in eine Tabelle speichern und im OLE Container öffnen. Ich kann zwar die Datei speichern aber sie wird nicht im OLE Container angezeigt. Ich weiß nicht warum. Hier mein Code zum Speichern der PDF Datei.

Delphi-Quellcode:

Seite_Qry.Edit;
    blob:= Seite_Qry.CreateBlobStream(Seite_Qry.FieldByName('DATA'), bmWrite);
    try
      blob.Seek(0,soFromBeginning);
      datei := TFileStream.Create(extractFilePath(Application.ExeName) + 'DSGVO.pdf', fmOpenRead or fmShareDenyWrite);
      try
        blob.CopyFrom(datei,datei.Size);
        Seite_Qry.Post;
      finally
        datei.Free;
      end;
    finally
      blob.Free;
    end;

Ergänzung: In IBExpert kann ich die Datei als pdf lesen.

Kann mir jemand helfen.