如何用image组件显示dbgrid（连接query）中的图片！！

Question

我用BDE模式连接数据库，用query组件查询其中的graphi字段，并在dbgrid中显示，现在想在image中显示其中的图片，请教各位高手

Answer 1

var
mem:TStream;
bmp:Tjpegimage;
begin
……省略查询语句……
bmp:=Tjpegimage.Create;
mem:=CreateBlobStream(query1.FieldByName('图片'),bmRead);//把图片字段传给流
mem.Position:=0;//把流传给图片变量
bmp.LoadFromStream(mem);
Image1.Picture.Assign(bmp);//把图片变量传给image控件，image控件要自己定义，不用我说吧。
其实csdn的delphi颠峰真的是在02年到04年，我的好多问题都在那时的csdn上找到了答案，反观如今的csdn,真的不行了。