DBIMAGE的使用(100分)

数据库中对于图像字段采用DBIMAGE 但只提供Ctrl+c,ctrl+v的操作我想在对话框中选择图片文件由程序直接加入到库中 如何做

加OpenPictureDialog1控件
if OpenPictureDialog1.execute then
begin
tablename.edit;
tablefieldname.LoadFromFile(OpenPictureDialog1.filename);
tablename.post;
end;
tablename table控件
tablefieldname 图象字段

onclick时加入:
begin
if opendialog1.execute then
begin
table1.edit;
Tblobfield(table1.fieldbyname(dbimage1.datafield)).loadfromfile(opendialog1.filename);
table1.post;
end;
dbimage1.loadpicture;
end;

var
filestream:TFilestream;
begin
if opendialog1.execute then
begin
table1.edit;
try
fileStream.create(opendialog1.filename,openread);
TBlobField(table1.fieldbyname(imageFieldName))
.loadFromStream(FileStream);
table1.post
finally
filestream.free;
end;

不一定能运行，理解其中意思就行了

多人接受答案了。