如何存取数据库图片呢？

Question

用DBImage1连接上相应的表，查询就可以读出来了procedure TForm1.Button1Click(Sender: TObject);
begin//保存
  if not image1.Picture.Bitmap.Empty then
  begin
     if Query1.Active then
     begin
          Query1.Insert ;
        try
          TBlobField(Query1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
          Query1.Post ;
          showmessage('Inserted!') ;
          except
          on E:exception do
           begin
             showmessage('err:'+e.Message) ;
             Query1.Close ;
             if application.MessageBox('要打开表吗？','打开',36)=6 then
             query1.Open ;
           end ;          end;     end;  end ;
end;