delphi+odac+oracle9i，怎样插入图片到blob字段中，或者更新blob字段

[aiq]

procedure TForm1.Button1Click(Sender: TObject);
var
pic:TMemoryStream;
begin
with OraQuery2 do
begin
close;
sql.Clear;
sql.Add('insert into aaa (id,pic1) values (:id,:pic1) ');
params.ParamByName('id').Value:=trim(edit_id.Text);
pic:= TMemoryStream.Create; // 创建内存流
Image1.Picture.Graphic.SaveToStream(pic); // 将图片保存到内存流中
Params.ParamByName('pic1').LoadFromStream(pic,ftblob);
execsql;
pic.Free;
end;
OraQuery1.Refresh;
end;
以上语法能插入图片，但图片大小好像超过5、6K的话，就出错了，请问那里有问题？

怎样更新？
procedure TForm1.Button3Click(Sender: TObject);
var
pic:TMemoryStream;
begin
with OraQuery2 do
begin
close;
sql.Clear;
sql.Add('update aaa set pic1=:pic1 where id=:id ');
pic:= TMemoryStream.Create; // 创建内存流
Image1.Picture.Graphic.SaveToStream(pic); // 将图片保存到内存流中
Params.ParamByName('pic1').LoadFromStream(pic,ftblob);
params.ParamByName('id').Value:=trim(edit_id.Text);
execsql;
pic.Free;
end;
OraQuery1.Refresh;
end;

上面这个更新有问题，没发更新，怎么处理下

[bdmh]

测试正常

[aiq]

楼上测试正常？

[bdmh]

正常,而且存入了2百多k的图片

[aiq]

语法一样的吗？

[aiq]

难道需要那个地方参数要设置下？

[bdmh]

我完全用的你的代码,只是新建了一个简单的表,只有id和pic字段

[aiq]

能告诉我odac你用的什么版本，我用long raw就可以，但一个表只能有一个long raw，我表中更需要几个blob
我的update小图片也不行

[aiq]

没人帮忙啊，真不知道啥原因，日