如何往表中插入图片啊~~

Question

我要做这样一个管理系统，就是往数据库里输入一条文字信息，然后加上与之相关的图片，我建了个专门放图片数据的表，但是不知道该怎么样实现，Delphi有这样的控件么？
拜托啊，教教小弟

Answer 1

我知道要建一个image字段，可是怎么放进去呢？TDBImage可以读出数据库里的图片数据，那什么控件可以把图片放进表里呢

Answer 2

FieldByName('img').Assign(image1.Picture);

Answer 3

一个简单的：
procedure TForm1.Button1Click(Sender: TObject);
  var
    Jep1:TJPEGImage;
begin
  OpenPictureDialog1.DefaultExt:=GraphicExtension(TBitmap);
  if OpenPictureDialog1.Execute then
    begin
      Jep1:=TJPEGImage.Create;
      try
        Jep1.LoadFromFile(OpenPictureDialog1.FileName);
        Image1.Picture.Bitmap.Assign(Jep1);
      finally
        Jep1.Free;
      end;
    end;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(' select * from tbImage ');
      Open;
      Insert;
      FieldByName('Picture').Assign(Image1.Picture);
      Post;
    end;
end;