RichviewEdit 图文保存操作

RichviewEdit 图文保存操作

首先要转换成stream后才能对RichviewEdit进行正确的读和写
  function   SaveRVFToField(rv: TCustomRichView; tbl: TTable;
  const   FieldName: String): Boolean;  
var   Stream: TStream;
  begin
   Stream: = TMemoryStream.Create;  
  try   Result: =   rv.SaveRVFToStream(Stream, False);
  Stream.Position: =   0 ;
  TBlobField(tbl.FieldByName(FieldName)).LoadFromStream(Stream);
  finally
  Stream.Free;
  end ;
    end ;
 
  function   LoadRVFFromField(rv: TCustomRichView; tbl: TTable;
  const   FieldName: String): Boolean;
  var   Stream: TStream;
  begin
  Stream: =   TMemoryStream.Create;
  try
  TBlobField(tbl.FieldByName(FieldName)).SaveToStream(Stream);
  Stream.Position: =   0 ;
  Result: =   rv.LoadRVFFromStream(Stream);
  finally
  Stream.Free;
  end ;
  rv.Format;
  end ;


    以上的两个函数是把RichviewEdit的内容保存到数据库里面的做法。但是，    RichViewEdit的图片内容保存到数据库后，有些图片保存的时候看起来是正常的，但是再从数据库里面读出来就看不到图片了，但是这种状况并不是每张图片都会发生，有些图片放进去数据库后又能正常显示，百思不得其解！
    后来在RichViewEdit的RVFOptions——rvfoSaveBinary设置成False，这样从数据库里面读取出来的图片就都能正常显示了。

让 RichviewEdit 内容转换成图片
procedure TSendDataFrm.btnR2BClick;
const
  VERYLARGEVALUE = $FFFFFFF;
var
  iWidth, iHeight: integer;
  Canvas: TMetafileCanvas;
  bmp: TBitmap;
  wmf: TMetafile;
  i, j, k: integer;
begin
  RVE.HScrollPos := 0;
  RVE.VScrollPos := 0;
  RVE.Deselect;
  RVE.Invalidate;
  k := 0;
  for i := 0 to RVE.LineCount - 1 do
  begin
    j := RVE.Canvas.TextWidth(RVE.GetItemTextA(i)); //+RVE.GetItemTextR(i)图片长
    if j > K then
      k := j;
  end;
  iWidth := k;
  iHeight := RVE.RVData.DocumentHeight - 10;

  Image1.Picture.Bitmap.Width := iwidth;
  Image1.Picture.Bitmap.Height := iHeight;
  bitblt(Image1.Picture.Bitmap.Canvas.Handle, -1, -7
    , RVE.Width, RVE.Height, GetWindowDC(RVE.Handle), 0, 0, SRCCOPY);
  image1.Refresh;
  

让 RichviewEdit 支持中文
⑴ 设置RichViewEdit下面的几个属性：
   ① TRVRTFReaderProperties → ParaStyleMode → rvrsAddIfNeeded
   ② TRVRTFReaderProperties → TextStyleMode → rvrsAddIfNeeded
   ③ TRVRTFReaderProperties → UnicodeMode → rvruOnlyUnicode
⑵ 设置RVStyle：
   双击该控件，在弹出的窗体里选定里面5个子项，然后在属性窗体里找到
Unicode属性，全部改为：True;