怎样把图片存到SQL数据库的image类型的字段里？

Question

用什么控件可以实现这个功能呢？我想是应该先找到图片的路径，然后再存到SQL库里吧，然后再用某一控件把这个图片显示出来，请问各位谁做过，谢谢！

Answer 1

var
 MS: TMemoryStream;
begin
 MS:=TMemoryStream.create;
 Image1.Picture.Bitmap.SaveToStream(MS);
 MS.Position:=0;
 Table1.Append;  //在数据库中添加一条记录
 TBlobField(Table1.FieldbyName('image')).LoadFromStream(MS);
 Table1.Post;   //将所作的更新写入数据库
end;
//读出
 with Table1 do
  begin
  MS:=CreateBlobStream(FieldbyName('image'),bmRead);
  Image1.Picture.Bitmap.LoadFromStream(MS);
  MS.Free;
end

Answer 2

我要问的是，怎样把本机的图片存到SQL数据库里？
请高手帮忙！

Answer 3

请各位高手帮忙啊，怎样通过图片的路径把图片存到SQL里？

Answer 4

DBImage与图片字段关联。
DBImage1.Picture.LoadFromFile(path);
post;
就行了。

Answer 5

to:eboywy(飞影) 
不行，图片存不进去！
可是又好象存进去了，因为把以前有图片的记录都给覆盖了，图片没了！

Answer 6

var
 FAsm : TMemoryStream
begin
 FAsm := TMemoryStream.Create;
 FAsm.LoadFromFile(openpicturedialog1.FileName);
 ClientDataSet.Append;
 (ClientDataSet.FieldByName('Content') as TBlobField).LoadFromStream(FAsm);
 ClientDataSet.ApplyUpdates(0);
end;

Answer 7

uese jepg
procedure TForm1.DBImage1Click(Sender: TObject);
var
  jp : TJPEGImage;
begin
// OpenPictureDialog1.Filter := 'Text files (*.jpg)|*.jpg';
 if OpenPictureDialog1.Execute then
 begin
  // ADOQuery1Images.LoadFromFile(OpenDialog1.FileName);
    jp := TJPEGImage.Create ;
    try
      jp.LoadFromFile(OpenPictureDialog1.FileName);
      DBImage1.Picture.Bitmap.Assign(jp);//) .LoadFromStream(jp);// .LoadFromFile(OpenPictureDialog1.FileName );
    finally
      jp.Free;
    end;
 end;
end;

Answer 8

想继续请教你这个问题，你给我的这个代码只能存JPG格式的图片，存BMP格式的图片
程序就出错误了，说格式不合法，请问有什么办法解决吗？可以通过代码转换图片格式吗，或者做个提示的对话框告诉用户只能存JPG格式的，我想后者应该简单一些吧，请指教，谢谢！