抢分问题,如何把一个TStream存入数据库中的某个字段里? 快,能者不难,难者不能

Question

TStream是一个抽象类，不能别实例化，可以用TMemoryStream

Answer 1

ta.Edit;
TBlodField(ta.FieldByName('treetext')).LoadFormStream(om);
ta.Post;

Answer 2

谢谢 ：　blackfiles(blackfiles)可是又有个问题,我怎么把它读到TreeView里去
var
     om:TMemoryStream;
     treetab:TADOTable;
begin
    treetab:=TADOTable.Create(self);
    treetab.ConnectionString:=filelink;
    treetab.TableName:='treetext';
    treetab.Open;
    treetab.First;
    om:=TMemoryStream.Create;    treetab.Edit;
    TBlobField(treetab.FieldByName('treetext')).SaveToStream(om);
    treetab.Post;    self.m_TabTreeMu.LoadFromStream(om);    treetab.Close;
    om.Free;
end;虽然不出错,但TreeView空空如也,
我看见有些书上说要用 TBlobStream 怎么用?

Answer 3

程序的一部分改成这样：
//    treetab.Edit;//去掉这句。从TBlobField字段中读数据不用进编辑状态
    TBlobField(treetab.FieldByName('treetext')).SaveToStream(om);
//    treetab.Post;//去掉这句。原理同上    om.seek(0,0);//这里加上这句，在读流之前先把读指针移到开头
    self.m_TabTreeMu.LoadFromStream(om);