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;