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;

[DeddyH]

Du weißt schon, wozu diese Sparte gedacht ist? Wieso stellst Du Deine Fragen eigentlich alle hier?

[blondervolker]

Hallo,
ich wollte es unter "Sonstiges" eingeben.Da kam die Meldung Kontrollzentrum.Hab ich auch gemacht.

[mkinzler]

Ich weiss nicht, wie du s schaffst konsequent in dieser Rubrik zu Posten. Im Alten Forum, war diese automatisch ausgewählt, da konnte man es ja verstehn. Aber im neuen Forum ist das eigentlich nicht der Fall.

Beim nächsten Mal gehe einfach in die Rubrik, in der du ein neues Thema erstellen willst, dann wird der Beitrag automatisch dort erstellt.

Bitte ergänze nun den 1. Beitrag um die fehlenden Informatioen zur verwendeten Datenbank usw., in dem du den 1. Beitrag editierst.
So wird die Beantwortung der Frage auch leichter.

[DeddyH]

Back to topic: wenn Du Daten abfragen willst, setzt Du die Datenmenge in den Editiermodus? Wozu soll das gut sein? Versuch es stattdessen einmal so:
- Datenmenge öffnen
- Inhalt des Feldes auf NULL prüfen
- wenn nicht NULL, Inhalt in Datei kopieren
- ggf. Datenmenge wieder schließen

Das sollte eigentlich funktionieren, wenn ich nichts vergessen habe.

[blondervolker]

Wie kann ich den Inhalt auf Null prüfens.Das ist mein zigs`ter Versuch,aber ich bin leider noch zu Blöde.
Kannst bitte diesen Code vervollständigen?
Ich würde mich freuen,wenn ich endlich mal einen kleinen Erfolg hätte...

[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.

[mkinzler]

Ich meinte das du die Angaben zur verwendeten Datenbank, Zugriffskompos usw. in den entsprechend dafür vorgesehenen Feldern ergänzt.