rxrichedit中的数据保存到数据库,但不能将数据中保存的数据在rxrichedit中显示出来?

donaldwang77 donaldwang77 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
步骤:
1.rxrichedit中数据保存到数据库中。
2.将数据库中的数据读取出来并显示在rxrichedit上。

问题:不能在rxrichedit中显示刚才步骤1中保存的数据?请各位大侠救命啊!


具体代码如下(开发环境 Delphi5):

1.保存数据
rxrichedit.Lines.SaveToStream(res);
...
qry.Close;
qry.SQL.Text := ' Insert into TFile(FGid, FContent) (:FGID, :FContent) ';
qry.ParamByName('FGid').AsInteger := 1;
qry.ParamByName('FContent').LoadFromStream(res, ftBlob);
qry.ExecSQL;
...
CommitTransaction;
...
通过查询数据库,数据已经保存到数据库中

2.读取数据显示在rxrichedit上
qry.SQL.Text := 'select * from TFile where Fgid = 1';
qry.Open;
...
TBlobField(qry.FieldByName(FContent)).SaveToStream(res);
...
rxRichEdit.Lines.LoadFromStream(res);

rxRichEdit上显示空白。很奇怪,研究了好久,都没有找出原因,请大侠们帮帮忙



...全文
评论 4
收藏 已收藏
分享
返回顶部