PDF in DB speichern und öffnen danach Proggi-Abstutz

[DeddyH]

ADO ist nicht meine Welt, aber versuch mal

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  PDFField: TBlobField;
begin
  ADOTable1.Open;
  SaveDialog1.Filter:='*.pdf|*.pdf';
  if SaveDialog1.Execute then
    TRY
      PDFField := ADOTable1.FieldByName('PDFFILE') as TBlobField;      
      if not PDFField.IsNull then
        PDFField.SaveToFile(SaveDialog1.Filename);
    EXCEPT
      on E: Exception do
       ShowMessage('Fehler beim Speichern der Datei: ' + E.Message);
    end;
end;

Ungetestet, da direkt im Editor getippt.