BLOB

[day]

Hallo

ich bekomme eine Exception wenn ich versuche aus einem OLEContainer ein Stream in ein BLOB feld zu schreiben.

Die Exception lautet: BLOB field not open

was mache ich falsch?

Code:

procedure TForm1.Button3Click(Sender: TObject);
var S: TStream;
begin
  Table1.Append;
  S:=Table1.CreateBlobStream(Table1.FieldByName('BLOBIMAGE'), bmReadWrite);
  try
    OleContainer1.SaveToStream(S);
    Table1.FieldValues['ID'] := StrToInt(RzSpinEdit1.Text);
    Table1.Post;
    Table1.ApplyUpdates;
  finally
    S.Free
  end;
end;

[CenBells]

Da diese Lösung dem "Update" zum Opfer gefallen ist, hier nochmal ;)

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var S: TMemoryStream;
begin
  Table1.Append;
  S := TMemoryStream.create;
  try
    OleContainer1.SaveToStream(S);
    Table1.FieldValues['ID'] := StrToInt(RzSpinEdit1.Text);
    S.Position := 0;
    TBlobField(Table1.FieldByName('BLOBIMAGE')).LoadFromStream(s);
    Table1.Post;
    Table1.ApplyUpdates;
  finally
    S.Free;
  end;
end;

Gruß
Ken