向数据库中存图片的问题

Question

数据库控件只能用database和Query，重要的是Query是动态创建的，用完即释放。数据库为sql2000，只需存位图即可。不知能否用sql语句来实现？我尝试用query1.FieldByName('pic').Assign(image1.Picture.Graphic);不过在这种情况下不知如何令Query连上database控件，或连上数据表。请高手指教。

Answer 1

http://search.csdn.net/expert/topic/53/5301/2002/8/5/924211.xml这是个非常好的例子，我这几天就是参照这个作出来的，非常好。

Answer 2

var 
   tmpPicture:Tbitmap;
begin
   if openpicturedialag.execute then
      tmpPicture.loadFromFile(openPictureDialag.filename);
   try
      table1.open;
      table1.insert;
      table1.fieldbyname('Picture_col').assign(tmpPicture);
      table1.post;
   finally
      tmpPicture.free;
   end;
end;

Answer 3

var jpeg_:tjpegimage;
      s:tmemorystream;
begin
....
....
   S := TMemoryStream.Create;   jpeg_.loadfromfile('c:\pic.jpg');
   Jpeg_.SaveToStream(S);
   S.Position := 0;
   
   adoquery1.sql.clear;
                 .add('insert into tblname pictureField=:p_image');
   adoquery1.ParamByName('p_image').LoadFromStream(s,ftgraphic);
   adoquery1.ExecSQL;
   .....
  ......