靠，image存储图片不行，帮忙看看(50分)

mstream := TMemoryStream.Create ;
image1.Picture.Bitmap.SaveToStream(mstream);
mstream.Seek(0,0);
with FormDmEquip.adoquery1 do
begin
close;
sql.clear;
sql.text :='insert into jyybzqjcbg(id,wjname,srdate,memo) valuesbh,:wj,:srdate,:memo)';
bfield := TBlobfield( parameters.ParamByName('wj'));
bfield.LoadFromStream (mstream);

1.LoadFromStream(mstream,ftBlob);
2.ExecSql;
3 "wjname"字段类型必须是Image。

是啊，这些没错啊
那你给个做法

TO:土土,
换另一方法可以吗?
mstream := TMemoryStream.Create ;
image1.Picture.Bitmap.SaveToStream(mstream);
mstream.Seek(0,0);
with FormDmEquip.adoquery1 do
begin
close;
sql.clear;
sql.text :='select id,wjname,srdate,memo from jyybzqjcbg where id<-1'; //故意不要数据反回,
open;
insert;
bfield := TBlobfield( FieldByname('wjname'));
bfield.LoadFromStream (mstream);
....
post;