如何用代码实现！

[上海老李]

我的QUERY是动态的SQL查询，现在要用一个Image控件显示数据库中的一个图像字段，怎么用代码实现？请在下边加：
with Query1 do begin
with SQL do begin
CLEAR;
Add('select * from type');
end;
open;
end;
Image1应怎么把QUERY1中的PIC显示？

[上海老李]

ACCESS的OLE图象字段怎么读？

[上海老李]

有人会不？

[xxllj]

图片存入数据库
var
　MS: TMemoryStream;
begin
　MS:=TMemoryStream.create;
　Image1.Picture.Bitmap.SaveToStream(MS);
　MS.Position:=0;
　Table1.Append;　
//在数据库中添加一条记录
　TBlobField(Table1.FieldbyName
('image')).LoadFromStream(MS);
　Table1.Post; 　　　

从数据库中取图片
var
　MS: TStream;
begin
　with Table1 do
　MS:=CreateBlobStream
(FieldbyName('image'),bmRead);
　Image1.Picture.Bitmap.
LoadFromStream(MS);
　MS.Free;
end;

[上海老李]

DELPHI6不支持！

[li_zhifu]

加一个TDatasource控件，其DataSet为Query1，加一个TDBImage控件，其Datasource为Datasource1,fieldname为你库表中的PIC字段

[上海老李]

是啊，我也用那个可不显示，所以请把代码给出，看我的错在哪？

[del_c_sharp]

这不用代码,设置属性就好了

[上海老李]

我的意思是如何用代码，代码可以分析很多问题！

[xxllj]

DELPHI5可以，DELPHI6不会不支持吧。
你给我你的信箱。
如果我能解决的话我给你回一封。