高分请教:RichEdit的问题

Question

1.如何在richedit中插入图像?2.设置字体和插入图像的richedit内容如何保存到数据库中?3.如何从数据库中取出richedit的内容并在richedit上显示?

Answer 1

2,savetofile();
3,loadfromfile();

Answer 2

保存到数据库,比如access,我该怎么办?

Answer 3

2\3:
//存入
procedure TForm1.Button3Click(Sender: TObject);
var
  temp: TMemoryStream;
begin
  temp := TMemoryStream.Create;
  try
    with RichEdit1 do
    begin
      SelStart := 0;
      SelLength := Length(Text);
      SelAttributes.Protected := FALSE;
      Lines.SaveToStream(temp);
    end;
    temp.Position := 0;
    ADOTable1.open;
    ADOTable1.Edit;
    TBlobField(ADOTable1.FieldByName('rtf')).LoadFromStream(temp);
    ADOTable1.Post;
  finally
    temp.Free;
  end;
end;
//取出
procedure TForm1.Button4Click(Sender: TObject);
var
  temp: TMemoryStream;
begin
  temp := TMemoryStream.Create;
  try
    TBlobField(ADOTable1.FieldByName('rtf')).SaveToStream(temp);
    temp.Position := 0;
    RichEdit1.Lines.LoadFromStream(temp);
  finally
    temp.Free;
  end;
end;
//注：ADO连接

Answer 4

richedit不能显示图片，用rxrichedit

Answer 5

rxrichedit是Rxlib里的一个控件，www.51delphi.com和www.playicq.com有下载