Delphi中的DBImage的应用问题,sql数据库zp字段类型是image但不知道怎么把照片存进去?(100分)

还有同一字段各行值相加怎么实现(在Delphi+SQL 中)

TGraphicField(field).loadfromfile('c:/a.bmp');
或者把文件读入流stream，用TGraphicField(field).loadfromstream(stream);

DBImage控件的Field字段与数据库中的image类型字段配对，点击“按钮”时弹出图片选择窗口，如果是BMP图片直接保存给DBImage，如果是JPG的图片，先用Image控件转换一下（关键代码），再赋予DBImage。
这是我做的一个项目中的代码，可以使用。给分吧！！！
procedure Tmainfrm.SpeedButton6Click(Sender: TObject);
var
ext: string;
AFormat: Word;
AData: THandle;
APalette: HPALETTE;
begin
if opd.Execute then
begin
logofrm.ADOQuery1.Edit;
ext := uppercase(ExtractFileExt(opd.filename));
if (ext = '.BMP') then
DBimage1.picture.loadfromfile(opd.filename)
else
if (ext = '.JPG') then
begin
Image1.picture.LoadFromFile(opd.filename);
if Image1.picture <> nil then
begin
Image1.picture.SaveToClipboardFormat(AFormat, AData, APalette);
DBImage1.Picture.LoadFromClipboardFormat(AFormat, AData, APalette);
end;
end;
end;
end;

我用的是openpicturedialog空件与DbImage的结合..
procedure TForm_dasjlr.DBImage1DblClick(Sender: TObject);
var
graphic1:TGraphic;
begin
if openpicturedialog1.execute then
begin
image1.picture.loadfromfile(openpicturedialog1.filename);
dbimage1.Picture.LoadFromFile(openpicturedialog1.filename);
if RadioButton2.Checked then
begin
with gzda_dm.ADODataSet1do
begin
open;
edit;
FieldByName('zp').Assign(image1.Picture);
post;
end;
end;
end;
end;
预览时可以显示,但在窗口却不能显示出来!!!!

多人接受答案了。

我的问题还是自己解决的,你们说的也许有用吧,但对我没用!!