如何用richedit读取数据库中的rtf文件。

[shanlin]

如何用richedit读取数据库中的rtf文件。

[shanlin]

我是想读取一个access数据库中的某个rtf字段，有什么办法吗

[xzhifei]

用流来读取

[shanlin]

您有例子吗？

[m_leaner]

richedit.stringLists.loadfromfile("1.rtf");

[AustinLei]

mark

[dancedog]

doc

[shanlin]

难到就没有会的了吗

[xzhifei]

Var
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;

[xzhifei]

如果要保存的源程序,再开个贴,呵呵

[things]

读到 RichEdit1
RichEdit1.Lines.assign(TBlobField(FieldByName('Information')));

保存
TBlobField(FieldByName('Information')).savetofile('c:\abc.rtf');

[things]

读到 RichEdit1
RichEdit1.Lines.assign(TBlobField(Table1.FieldByName('字段名称')));

保存为文件
TBlobField(Table1.FieldByName('字段名称')).savetofile('文件名');