PDF in DB speichern und öffnen danach Proggi-Abstutz

[Andreas L.]

Ich kenne mich mit ADO nicht aus aber kann es sein das keine Daten in die Datenbank geschrieben werden weil ADOTable1.Post im except-Abschnitt steht?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOTable1.Edit;
  OpenDialog1.Filter:='*.pdf|*.pdf';
  if OpenDialog1.Execute then
  try
    TBlobField(ADOTable1.FieldByName('PDFFILE')).LoadFromFile(OpenDialog1.FileName);
  EXCEPT
    ShowMessage ('Fehler beim Öffnen der Datei!');
    ADOTable1.Post; // <-- Aufruf in Except-Bereich? 
  end;
end;