请问各位高手, 怎么样从数据库sql2000读取图片(IMAGE)字段???

Question

怎么样从数据库sql2000读取图片(IMAGE)字段,是使用adoquery来读取,并显示到IMAGE控件中去
谢谢!!!

Answer 1

从数据库中读取图象到image2中:
Var
  Ms:TStringStream;
  jpg:Tjpegimage;
begin
  Ms:=TstringStream.Create('');
  TBlobField(ADOquery1.FieldByName('img')).SaveToStream(Ms);
  Ms.Position :=0;
  Jpg.LoadFromStream(Ms);
  Image2.Picture.Assign(Jpg);
  Ms.Free;
  jpg.free;
end;

Answer 2

上面的可以有误，我随意搜索的代码， 建议问之前搜索一下，相同的贴子太多了procedure getjpg(Sender: TObject);
begin
  adoquery1.close;
  adoquery1.sql.text := 'select id, img from table1';
  adoquery1.open;
  TBlobfield(adoquery1.fieldbyname('img')).savetofile('c:\test.jpg');
  image1.loadfromfile('c:\test.jpg');
end;