PDF in Datenbank speichern

[DeddyH]

Wieso fehlt das Speichern? Wir reden doch beide von #3, oder?

[p80286]

Nee nicht das Speichern, sondern die gespeicherten Daten!
(Soll alles schon vorgekommen sein.)

Gruß
K-H

[Perlsau]

Zitat von p80286:

Nee nicht das Speichern, sondern die gespeicherten Daten!
(Soll alles schon vorgekommen sein.)

Also ich kann alle meine gespeicherten PDF- und HTML-Dateien anzeigen. Hab das eben mal stichprobenartig ausprobiert und keinerlei fehlende Daten festgestellt: Alle HTML- und PDF-Dateien werden von der Datenbank direkt in den integrierten Browser geladen und angezeigt.

[HolgerCW]

Perlsau schrieb in #3 aber

Zitat:

und auch das Post erfolgt nicht in der Funktion. Die erledigt nur das reine Einlesen einer Datei in ein Blobfeld.

Wie wird also anschliessend der Stream der PDF in der Datenbank gespeichert ?

Gruss

Holger

[Perlsau]

Zitat von HolgerCW:

Wie wird also anschliessend der Stream der PDF in der Datenbank gespeichert ?

Das reine Abspeichern der PDF-Datei im Blobfeld erledigt die genannte Funktion. In der aufrufenden Methode können aber noch weitere Zuweisungen von Daten an Tabellenfelder stattfinden, in diesem Fall nur ein Boolean-Feld:

Delphi-Quellcode:

    DatMod.Qset_NewsLink.Edit;
    DatMod.Qset_NewsLink.FieldByName('EXISTIERT').AsBoolean := Existiert;
    IF FileExists(Dateiname) THEN
    BEGIN
       DatMod.DateiToBlob(Dateiname,DatMod.Qset_NewsLink,DatMod.Qset_NewsLink.FieldByName('INHALT'));
       DeleteFile(Dateiname);
    END;
    DatMod.Qset_NewsLink.Post;

Das funktioniert so sicher & zuverlässig, daß ich die Quelldatei (ob nun PDF oder HTML) danach einfach löschen kann.

[HolgerCW]

Alles klar.

Habe es jetzt mal für mich etwas umgebaut:

Delphi-Quellcode:

function Datensatz_speichern_PDF(Tabelle, Spalte, Filter_Spalte, Filter_Wert, Pfad:String; PDF_loeschen: Boolean):Boolean;
var
 S : TStream;
 FileS : TFileStream;
 BlobFeld: TField;
begin

 Result := FALSE;

 DM_Main.TableRaw.Close;
 DM_Main.TableRaw.TableName := Tabelle;
 DM_Main.TableRaw.IndexFieldNames := Filter_Spalte;
 DM_Main.TableRaw.Filter := Filter_Spalte + ' = ' + Filter_Wert + '';
 DM_Main.TableRaw.Filtered := TRUE;
 DM_Main.TableRaw.Open;
 DM_Main.TableRaw.Edit;

 BlobFeld := DM_Main.TableRaw.FieldByName(Spalte);

 S := BlobFeld.DataSet.CreateBlobStream(BlobFeld, bmReadWrite);

 try

  FileS := TFileStream.Create(Pfad, fmOpenRead);
  S.CopyFrom(FileS, FileS.Size);
  DM_Main.TableRaw.Post;
  Result := TRUE;

 finally

  FileS.Free;
  S.Free;

 end;

end;

Nur leider werden keine Daten gespeichert. Wo ist der Fehler ?

Gruss

Holger

[DeddyH]

"Zurückspulen" vergessen?

[Perlsau]

Zitat von HolgerCW:

Nur leider werden keine Daten gespeichert. Wo ist der Fehler ?

Wie stellst du fest, daß keine Daten gespeichert werden? In welchen Datensatz speicherst du deine Daten und welchen Datensatz überprüfst du daraufhin, ob er die PDF-Datei auch enthält?

Wenn ich das richtig sehe, speicherst du alles immer in den ersten Record (Open setzt den Datensatzzeiger auf den ersten Record). Möchtest du einen neuen Datensatz anlegen, dann muß es natürlich Append oder Insert statt Edit heißen. Wenn du einen bestehenden Datensatz bearbeiten möchtest, solltest du zuvor den gewünschten Datensatz lokalisieren.

[Blup]

Zitat von HolgerCW:

Habe es jetzt mal für mich etwas umgebaut:

Gibts da nicht auch irgendwo mal ein "Post" (damit die Daten zur Datenbank übertragen werden) und vieleicht auch ein Commit für die Transaktion?