PDF in Blob speichern mit seltsamen Effekten

[chuckholdt]

Bin nicht ganz sicher, wie die Felder arbeiten, aber du gibts den Stream vor dem POST frei, das könnte zu komischen Effekten führen.

Chuck

[Perlsau]

Zitat von chuckholdt:

Bin nicht ganz sicher, wie die Felder arbeiten, aber du gibts den Stream vor dem POST frei, das könnte zu komischen Effekten führen.

Was sind denn "komische Effekte"? Davon hab ich noch nie was bemerkt! Wieso sollte es den Eintrag in der Datenbank jucken, wenn der Stream, der ihn geliefert hatte, abkratzt? Genau so gut könntest du in einer lokalen Procedure Zuweisungen an DB-Felder machen und in einer anderen Procedure dann erst mit Post abschließen:

Delphi-Quellcode:

Procedure Zuweisen;
Var
  Feld1 : Integer;
  Feld2 : String;
  Feld3 : Boolean;
Begin
  Feld1 := Self.Tag;
  Feld2 := Application.ExeName;
  Feld3 := Self.WindowState = wsMaximized;
  MyDataSet.FieldByName('Field1').AsInteger := Feld1;
  MyDataSet.FieldByName('Field2').AsString  := Feld2;
  MyDataSet.FieldByName('Field3').AsBoolean := Feld3;
End;

Procedure NeuerEintrag;
Begin
  MyDataSet.Append;
  Zuweisen;
  MyDataSet.Post;
End;

Was meinst du: würde das funktionieren oder ergäbe das eine Fehlermeldung?

[jobo]

Ich hab mal diese Variante von swissdelphicenter probiert:
http://www.swissdelphicenter.ch/torr...de.php?id=1271

Funktioniert mit Oracle OLEDB und MS OLEDB über Oracle ODBC unter Delphi 5. Hab allerdings ein paar Bilder zum Test genommen und der Code musste bei der Blob Variable auf Typ TStream umgestellt werden.

Das läuft sowohl bei einer AdoQuery innerhalb eines Inserts oder als Update eines bestehenden Records.