今天我自己找到了一种方法:你可以在程序中通过代码加入.
procedure TForm1.DBImage1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
ADOTable1.Edit;
ADOTable1DSDesigner8.LoadFromFile(OpenPictureDialog1.FileName);
ADOTable1.Post;
end;
end;
注意这里:ADOTable1DSDesigner8是你在设计数据库时图片字段的名字!你可以双击
ADOTable通过它的字段编辑器查到这个名字。
to coolren
这个方法只能用于 *.bmp 格式图像。
我有一个不太好的办法,只是存图片后文件大小激增。
if OpenPictureDialog1.Execute then
begin
DBImage1.Picture.loadfromfile(OpenPictureDialog1.Filename);
DBImage1.CopyToClipboard;
DBImage1.PasteFromClipboard;
end;