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

用delphi怎样把image类型里的内容取出来，反映在memo控件里？ 问题点数：20、回复次数：7Top

1 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-11-02 15:37:46 得分 10

大概这样，试试看：  
  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;Top

2 楼Lizhidao（李指导）回复于 2005-11-02 15:54:06 得分 0

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

3 楼Lizhidao（李指导）回复于 2005-11-02 16:12:41 得分 0

谁能指点一下Top

4 楼YAMABACK（不要把我当Michael，我只是会投篮）回复于 2005-11-02 16:17:55 得分 0

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

5 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-11-02 16:19:51 得分 5

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

6 楼sxqwhxq（步青云）回复于 2005-11-02 16:25:50 得分 5

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

7 楼Lizhidao（李指导）回复于 2005-11-02 16:45:18 得分 0

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

相关问题

• 控件
• tempstream
• memo
• 取出
• 类型
• image

• 帖主：Lizhidao
• xixuemao
• xixuemao
• sxqwhxq

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载