请问如何将一幅JPG图片保存到BLOB字段中?(50分)

我想一幅JPG图片保存到BLOB字段中,但不知道我的代码错在哪里?JPG图片根本就没有保存进BLOB字段里!

procedure tform1.button1click(sender: tobject);
var
tmp: tblobstream; tmpjpg: tjpegimage;
begin
tmpjpg:=tjpegimage.Create;
tmpjpg.loadfromfile(openpicturedialog1.filename);
tmp:=TBlobStream.Create(TBlobField(Table1.FieldbyName('photo')), bmReadWrite);
tmpjpg.SaveToStream(tmp);
table1.Edit;
tblobfield(table1.FieldByName('photo')).LoadFromStream(tmp);
tmp.Free;
tmpjpg.free;

★★★Delphi数据库应用程序开发中图像数据的存取技术
Delphi提供了数据访问（DataAccess）和数据控制（DataControls）的可视化控件，能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据（含Graphic字段）的数据库应用程序，如人事管理信息系统等，图像数据的存取技术是一个关键。然而，有关Delphi下图象的存取，特别是图像的保存方面的技术各种资料上很少提及。下面，笔者结合一个简单的例子来说明。

一、图像数据的保存

1．创建一个含有Graphic字段的数据库列表。
在WindowsISQ（或Databasedesktop）下createdatabasemydb．gdbcreatetablemyfrieds（namevarchar（15）notnull，telephonevarchar（
12），addressvarchar（30），zipvarchar（8），picturevarchar（15），imageblob）；
其中，picture字段用于保存图像的名称（包括路径），image（Graphic字符）则用于存储图像，其数据类型为“blob”。

2．建立窗体（如图1所示），设置窗体中各控件的属性。
该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用TImage而不能用TDBIm?age，编辑框宜用Tedit而不宜用TDBEdit，这一点与图像的读取恰好相反。
其中，各主要控件的属性设置如下：
Datasource1．Dataset：=table1；
Table1．Databasename：=mydb．gdb；
Table1．Tablename：=myfriends；
Table1．active：=true；
其他诸如Caption之类的属性设置不再叙述。

3．数据处理程序的建立。
（1）图像（ ．bmp文件）打开的处理。
procedureTForm1．pictopenbtnClick（Sender：TObject）；
beginopendialog1．execute；
image1．picture．loadfromfile（opendialog1．filename）；
end；

（2）图像保存的处理。
图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中，其关键是要定义一个Graphic类型的变量且该变量要用assing（）函数传递到相应数据库中保存。具体程序如下：

procedureTform1．Savebtnclick（sender：TObject）；
vargraphic1：TGraphic；
begin
graphic1：=TGraphic．Create；
graphic1．loadfromfile（opendialog1．filename）；
table1．insert；
table1．fieldbyname（′name′）．asstring：=edit1．text；
table1．fieldbyname（′telephon′）．asstring：=edit2．text；
table1．fieldbyname（′address′）．asfloat：=（edit3．text）；
table1．fieldbyname（′zip′）．asfloat：=（edit4．text）；
table1．fields［4］．assign（graphic1）；
table1．post；
graphic1．free；
end；

二、图像数据的读取
在数据库数据（包括Graphic字段的数据）的读取和浏览方面，Delphi这一具有强大代码自动生成功能的面向对象的开发工具的优越性得到淋漓尽致的体现。毫不夸张地说，不需要一条语句即可完成这一功能！

建立窗体（如下图所示），设置各控件的属性。

图中Table1和Datasource1的属性的设置与数据的保存部分（图1）相同，所不同的是数据库数据的读取时用TDBEdit和TD?BImage控件而不用TEdit和TImage。控件TDBEdit和TDBImage只要将datafield属性设置为其相对应的域；TDBNavigator的datasouce属性设置为datasource1即可。

也可以看看这里：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1784052

试试下面的代码
var imagestream: TMemoryStream;
jpg: TJPEGImage;
begin
jpg := TJPEGImage.Create;
imagestream := TMemoryStream.Create;
jpg.Assign(GSDMAKEFRM.Image_PICTURE.Picture);
jpg.SaveToStream(imagestream);
imagestream.Seek(0,0);//<----必须将流的指针重置到开始位置
//在QUERY中写更新语句,
.....
ParamByname('IMAGE').LoadFromStream(imagestream,ftBlob);
......
end;
imagestream.Free;
jpg.Free;
end;

除了seek(0,0)外
你好像忘了post数据集了

To: cwmdelpher
用你的方法还是不能保存图片,运行到下面这句
tblobfield(table1.FieldByName('photo')).LoadFromStream(tmp);
时提示 "Jpeg error #50",保存的图片仍然是一片空白.

procedure TForm1.Button2Click(Sender: TObject);
var
tmp: tmemorystream;
tmpjpg: tjpegimage;
begin
tmp:=TmemoryStream.Create;
tmpjpg:=tjpegimage.create;
tmpjpg.LoadFromfile(openpicturedialog1.filename);
tmpjpg.savetostream(tmp);
tmp.seek(0,0);
table1.Edit;
tblobfield(table1.FieldByName('photo')).LoadFromStream(tmp);
tmpjpg.free;
tmp.Free;
end;