PDF in DB speichern und öffnen danach Proggi-Abstutz

[DeddyH]

Das ist noch keinem aufgefallen (mir auch nicht) . OK, wenn wir eh schon dabei sind:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Filter:='*.pdf|*.pdf';
  if OpenDialog1.Execute then
    try
      ADOTable1.Edit;
      TBlobField(ADOTable1.FieldByName('PDFFILE')).LoadFromFile(OpenDialog1.FileName);
      ADOTable1.Post;
    except
      on E: Exception do   
        ShowMessage ('Fehler beim Speichern der Daten: ' + E.Message);             
    end;
end;