用delphi怎样把image类型里的内容取出来，反映在memo控件里？

Question

用delphi怎样把image类型里的内容取出来，反映在memo控件里？

Answer 1

大概这样，试试看：
procedure TForm1.Button2Click(Sender: TObject);
var
  tempstream: TMemoryStream;
  s: TStringlist;
begin
  try
    tempstream:=TmemoryStream.Create();
    TBlobField(ADOQuery.FieldByName('image')).SaveToStream(tempstream);
    tempstream.Position:=0;
    s:= TStringList.Create;
    s.LoadFromStream(tempstream);
    memo1.Lines.Assign(s);
  finally
    tempstream.Free;
    s.Free;
  end;
end;

Answer 2

image类型里存放的是一篇word文件，但我打开在memo控件里全是乱码，怎么做啊？

Answer 3

流都是些二进制码，当然在memo中显示些乱码

Answer 4

用RichEdit试试。或者保存成rtf文件，然后直接用richedit  load一下就可以了。

Answer 5

除了使用OCR识别成文字外别无它法

Answer 6

我弄不懂了
谁会帮我写下吧
我从程序把一篇word导入数据库的image字段了，应该还能取出来吧