【结帖】shuTRichEdit如何显示RTF格式中的数据**

欧诺万德

表中MAINBODY是以二进制，RFT格式存储的，但我用下面代码
var
  lStream :  TMemoryStream;
begin
  Inherited;
  lStream :=TMemoryStream.Create;
  TBlobField(DataSet.FieldByName('MAINBODY')).SaveToStream(lStream);
  RichEdit1.Lines.LoadFromStream(lStream);
end;

TRichEdit里面显示不出来

zfang

你这个字段是怎么存储的呢？贴代码看下。

欧诺万德

procedure TRichEditBJ.SaveRichEditDB(ADataSet :TSQLDataSet;AFileName :String);
var
  lMemoryStream :TMemoryStream;
  lBlobField: TBlobField;
begin
  try
    if not (ADataSet.State in [TDatasetState.dsInsert,TDataSetState.dsedit,TDatasetStatE.dsNewValue]) then
      ADataSet.Edit;
    lMemoryStream :=TMemoryStream.Create;
    Editor.Lines.SaveToStream(lMemoryStream);
    lBlobField := TBlobField(ADataSet.FieldByName(AFileName));
    lMemoryStream.Position := 0;
    lBlobField.LoadFromStream(lMemoryStream);
    ADataSet.Post;
  except

  end;
end;

zfang

1楼代码这么写看下吧。
  lStream :=TMemoryStream.Create;
  try
    TBlobField(DataSetBrokerBZSJJ1.DataSet.FieldByName('QZ')).SaveToStream(lStream);
    lStream.Position := 0;
    RichEdit1.Lines.LoadFromStream(lStream);
  finally
    lStream.Free;
  end;

欧诺万德

oK 搞定了

zfang

好的，谢谢反馈。