一个函数的问题，请朋友们指教！

[取昵称麻烦]

procedure TProduct.SelPhoto(Sender: TObject);
var
stream:TMemoryStream;
jpg: TJPEGImage;
bmp: TBitmap;
begin
stream := TMemoryStream.Create;
jpg := TJPEGImage.Create;
bmp := TBitmap.Create;
if dlgOpenPic.Execute then
try
jpg.LoadFromFile(dlgOpenPic.FileName);
bmp.Assign(jpg);
bmp.SaveToStream(stream);
stream.Position :=0;
if Sender is TDBImage then
TBlobField((Sender as TDBImage).Field.DataSet.FieldByName((Sender as TDBImage).DataField)).LoadFromStream(stream);//运行到这里就提示非法内存访问，但是找不到原因！
finally
stream.Free;
bmp.Free;
jpg.Free;
end;
end;

这个函数实现的功能是像SQL数据库服务器中保存图片。
请各位朋友帮帮忙，我实在找不到错在那里 TDBImage已经创建 DataSet也已经打开，可是提示非法内存访问让人纳闷！

[byteh]

TBlobField(adoQryDocLibrary.FieldByName('FileContent')).LoadFromFile(FDocPathAndFileName);

看懂我的例子了吗?
Sender as TDBImage,你传来的Sender 是什么类型的?

[取昵称麻烦]

sender 是TDBIMage类型的

[fangsp]

其实如果是大的系统的话
我个人建议
在数据库中存储图片存放的路径
通过路径来访问图片
这样数效率会更高些,也容易实现 不容易出错

[取昵称麻烦]

谢谢您