PDF in DB speichern und öffnen danach Proggi-Abstutz

[blondervolker]

Hallo,

hab versucht eine kleine PDF-Datei in einem DBMemo(Felddatentyp=Oleobject) in einer Access Datenbank zu speichern.
Das ging auch.Hab denn versucht diese PDF aus dem DB Eintrag zu speichern
in einem anderen Ordner,aber die PDF Datei war da,aber ohne Endung und
lässt sich nich mit dem Reader öffnen.

Beim Beenden des Programms hatte ich die A-Karte...
Programmabstutz...
Siehe Abbildung 1

Kann bitte jemand helfen

Hier ist der Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Edit;
OpenDialog1.Filter:='*.pdf|*.pdf';
    if OpenDialog1.Execute then
      try
        TBlobField(ADOTable1.FieldByName('PDFFILE')). //PDF Datei im DBMemo10 Blob speichern
          LoadFromFile(OpenDialog1.FileName);
           EXCEPT
            ShowMessage ('Fehler beim Öffnen der Datei!');
             ADOTable1.Post;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.Edit;
SaveDialog1.Filter:='*.pdf|*.pdf';
    if SaveDialog1.Execute then
     TRY
      TBlobField(ADOTable1.FieldByName('PDFFILE')). // gespeicherte PDF aus DBMemo10 Blob speichern unter
       SavetoFile(SaveDialog1.Filename);
        EXCEPT
         ShowMessage ('Fehler beim Speichern der Datei!');
end;
end;