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;

[p80286]

Darf ich mal vorsichtig fragen um was es hier jetzt noch geht?
Lesen einer Datei und abspeichern in DB?
oder
DB-Wert in Datei Speichern?
oder doch Bahnhof,Kofferklauen?

Gruß
K-H

[DeddyH]

Prinzipiell waren ja beide Methoden im Ausgangspost falsch. Das haben wir nur (hoffentlich) korrigiert.

[octonet]

Danke, das hat mir alles sehr geholfen...

Grüße
Robert