如何用richedit读取数据库中的rtf文件。
解决方案 »
- 怎样在DBgrid中加入下拉日期
- XPMan.dcu这个文件找不到是怎么回事?
- 在成功写完百度贴吧发贴机并顺利商用后,昨晚搞成功搜狗说吧发贴机,今天来散分
- 印度为什么可怕[从李建忠兄处转载,原出处不可考]
- d5开发人员指南并没有象网上说的那么好!很多都是概念模糊!!
- 一个关于delphi5的问题,答对就有分
- WebService导入数据类型问题,求教!!~
- 在注册DPK 包编译时提示找不到.pas文件,如何解决?
- 谁做过黄金,美指K线图软件?有问题请教?
- 比如,一个Button是动态创建出来的如何写它的onclick事件?
- 帮我看看这个出错信息是什么意思?我该怎么改
- Strign to Pchar的函数是什么,我忘了?
MemStrm: TMemoryStream;
begin
//读取Rich文本
MemStrm := TMemoryStream.Create;
Try
//假式字段为'Information'
TBlobField(FieldByName('Information')).SaveToStream(MemStrm);
MemStrm.Position := 0;
RichEdit1.Lines.LoadFromStream(MemStrm);
Finally
MemStrm.Free;
End;
end;
RichEdit1.Lines.assign(TBlobField(FieldByName('Information')));保存
TBlobField(FieldByName('Information')).savetofile('c:\abc.rtf');
RichEdit1.Lines.assign(TBlobField(Table1.FieldByName('字段名称')));保存为文件
TBlobField(Table1.FieldByName('字段名称')).savetofile('文件名');