TRichView数据保存与读取

最新推荐文章于 2022-07-05 08:36:04 发布

原创最新推荐文章于 2022-07-05 08:36:04 发布 · 1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#TRichViewEdit #varBinary #Delphi #SQL Server

Delphi7.0 专栏收录该内容

4 篇文章

订阅专栏

本文介绍TrichView控件的基本用法，包括编辑与查看文档、设置文本属性、支持中文显示及与数据库交互等内容。

TrichView是一套Delphi/C++Builder控件，主要用于显示、编辑和打印超文本文档。

经过一天的摸索，大致掌握了该控件的基本用法，详情如下：

1、TRichViewEdit用于编辑，TRichView只能用于查看

2、TRichViewEdit必须配合TRVStyle才能使用，所有的文本属性（字体、字号、加黑、斜体等）都要在TRVStyle中进行设置

3、TRichViewEdit中的文本、图片可导入、导出为多种格式（txt，html，rtf，rvf，TStream等）

4、控件默认是ASCII字符不支持中文，若要支持中文，可双击TRVStyle，选中所有的item，将属性Unicode置为True即可

5、可通过导出为TStream写入数据库中，以下以SQL SERVER2008为例说明

--创建表
CREATE TABLE(ID INT NOT NULL,FILE VARBINARY(MAX))

//写入DB
procedure TBulletINForm.Button1Click(Sender: TObject);
var
  V : TMemoryStream;
begin
  try
    V := TMemoryStream.Create;
    //如果仅保存选中的文本，第二个参数传True
    RVE.SaveRVFToStream(V,False);
    ADOQ1.Append;
    ADOQ1.FieldByName('id').AsInteger := 1;
    TBlobField(ADOQ1.FieldByName('file')).LoadFromStream(V);
    ADOQ1.Post;
  finally
    V.Free;
  end;
end;

//从DB读入RVE
procedure TBulletINForm.Button1Click(Sender: TObject);
var
  V : TMemoryStream;
begin
  try
    V := TMemoryStream.Create;
    TBlobField(ADOQ.FieldByName('FILE')).SaveToStream(V);
    V.Seek(0,soBeginning);//重要！！！从DB中读出的数据流在使用前必须先复位
    RVE.LoadRVFFromStream(V);
    RVE.Format;//重要！！！读入RVE后一定要调用此方法才可以正常显示出内容
  finally
    V.Free;
  end;
end;