编一个小的试验程序,想把预先已经存在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是存放图片的字段名称,数据库连接应该已经是成功的了,不知道是什么问题,求解答哈~
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是存放图片的字段名称,数据库连接应该已经是成功的了,不知道是什么问题,求解答哈~
我要做一个题库系统,图片是每道题的配图,如果不放在表里面,感觉有点乱啊