求从数据库读取图片的例子！

Question

要求用 adoquery image  程序中不要有图片类型的代码。

Answer 1

var
   B:Tjpegimage;//定义一个JPG对象
   color,blackbz:string;
begin
   B :=Tjpegimage.Create;
   try
     B.Assign(frmdatamodule.AD_SSJK_QY.FieldbyName('cpt'));//从字段中获得图像数据
     imgqct.Picture.bitmap.Assign(B); //显示图片
   finally
     B.Free;
   end;
end;

Answer 2

我想读取  .ico  格式的图片，该怎么办？

Answer 3

varIcon : TIcon;beginIcon := TIcon.Create;
Icon.LoadFromFile('c:.ico'); //Load an ICO from File
...
end;

Answer 4

先保存成文件，然后，读入它。
TBlobField(FieldByName('icon')).SaveToFile('c:\aa.ico');
Icon.LoadFromFile('c:\aa.ico'); //Load an ICO from File