请问如何把一个图像文件存入数据库？

Question

能举一个简单的例子吗？我刚学delphi 不久。谢谢！！！

Answer 1

1、设置dbimage的dataset
2、设置dbimage的field
3、程序中用dbimage.loadfromfile('文件名');（datase必须在编辑状态（如：添加、修改））

Answer 2

如果是文件的话
存入数据库中：  
  Image1.Picture.SaveToFile(FileName);
  Query1.close;
  Query1.Sql.Clear;
  Query1.Sql.Add('Insert into TableName Values(:name,:image)'); 
  Query1.ParamByName('name').AsString:=Edit1.Text;
  Query1.ParamByName('image').LoadFromFile(FileName,ftBlob);
  DeleteFile(FileName);
  Query1.ExecSQL;        
图片显示：uses jpegprocedure TForm1.ShowJpegClick(Sender:TObject);
var
  Jp:TJpegImage;
begin
  TBlobField(Table1.FieldByName('jpeg')).SaveToFile(FileName);
  Jp:=TJpegImage.Create;
  Jp.LoadFromFile(FileName);
  Image1.Picture.Graphic:=Jp;
end; 如果是bmp更简单，直接用DBImage记得加分

Answer 3

漏了几个字：如果是JPG文件的话