请问哪位用过RxRichEdit，教教我怎么用它来存储和显示图文数据？？？

Question

我用它来存了数据到SQLServer后，显示不出来
所以也不知道是我存的方式不对，还是我显示方式不对？请多指教！！！谢谢

Answer 1

procedure TfrmMainUnit.Button1Click(Sender: TObject);//保存
var mems:TMemoryStream;
    zips:TCompressionStream;
begin
  mems:=TMemoryStream.Create;
  zips:=TCompressionStream.Create(clMax,mems);
  
  mems.Position :=0;
  rxFile.Lines.SaveToStream(mems);
//  mems.Position :=0;
  zips.compress  if aqryTool.Active then aqryTool.Close;
  aqryTool.SQL.Clear;
  aqryTool.SQL.Add(' insert into filecontent(fileid,content) ');
  aqryTool.SQL.Add(' values(1,:cont)  ');
  aqryTool.Parameters[0].LoadFromStream(mems,ftBlob);
  aqryTool.ExecSQL ;  mems.Free;
end;procedure TfrmMainUnit.Button2Click(Sender: TObject);//显示
var mems:TMemoryStream;
begin
  mems:=TMemoryStream.Create;  if aqryTool.Active then aqryTool.Close;
  aqryTool.SQL.Clear;
  aqryTool.SQL.Add(' select fileid,content from filecontent ');
  aqryTool.Open ;
  TBlobField(aqryTool.FieldByName('content')).SaveToStream(mems);
  mems.Position :=0;
  rxFile.Lines.LoadFromStream(mems);
  //rxfile.
  mems.Free ;
  mems:=nil;
end;