编一个小的试验程序,想把预先已经存在Access表里的图片,显示出来,但跑程序不报错,也无反应,不能显示图像,下面是源码:procedure TForm2.ADOTable1AfterScroll(DataSet: TDataSet);
  var
  ms: Tadoblobstream;
  tu: Tbitmap;
begin
ms:=Tadoblobstream.Create(tblobfield(adotable1.fieldbyname( 'picture')),bmread);
        ms.position:=0;
        tu:=Tbitmap.Create   ;
        tu.loadfromstream(ms);
          image1.Picture.Bitmap:=tu;
          tu.Free;
end;picture是存放图片的字段名称,数据库连接应该已经是成功的了,不知道是什么问题,求解答哈~

解决方案 »

  1.   

    字段的数据类型是OLE对象。
    我要做一个题库系统,图片是每道题的配图,如果不放在表里面,感觉有点乱啊
      

  2.   

    建议不要把图片Access表里,这样如果以后的图片多了,会很慢。在D盘上建个文件夹放图片,Access表里放图片路径就可以了。
      

  3.   

    什么图片格式,默认delphi只支持bmp。
      

  4.   

    直接与控件DBImage控件连接,看能否查看。