RO dataabstract 如何使用text,或者是image字段(sqlserver)

其实很简单，要充分利用memorystream.
 
一存储text字段为例
 
1.如何进行存储？
 
var
 ms:TmemoryStream;
 
ms:=TMemoryStream .Create ;
 
{将richedit的内容读取到内存流，并能存储}
Frmtongzhi.Editor.Lines.SaveToStream(ms);
 ms.Seek(0,soFromBeginning );
 
   with tbl_tongzhi do
    begin
     Edit;
     FieldByName('djtime').AsDateTime :=Frmtongzhi.bdate.date ;
     FieldByName('endtime').AsDateTime :=Frmtongzhi.edate.date;
     FieldByName('toall').AsBoolean :=Frmtongzhi.chk_all.Checked ;
     FieldByName('status').AsInteger :=Frmtongzhi.e_1.ItemIndex ;
     FieldByName('myouter').AsString :=var_Loginid ;
     FieldByName('mytitle').AsString :=Frmtongzhi.e_title.Text   ;
 
{将richedit的内容读取到内存流，并能存储}
     FieldByName('mycontent').LoadFromStream(ms);
 

    FieldByName('tocangku').AsString :=Frmtongzhi.lst_ID.EditValue ;
     Post;
     ApplyUpdates;
    end;
    ms.Free ; 
end;
 


2.如何显示存储的结果？
 
var
 ms:TmemoryStream;
 
begin
 richedit.Lines.Clear ;
 {如何从数据表格读取内存流图片或者是文档并显示}
ms:=TMemoryStream .Create ;
 {将数据字段的内容写入内存流}
tbl_tongzhi .FieldByName('mycontent').SaveToStream(ms);
 {注意将内存流的读取指针放到开始位置}
ms.Seek(0,soFromBeginning ) ;
 richedit.Lines.LoadFromStream(ms);
 ms.Free ;
 
end;