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

Question

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;上面这个更新有问题，没发更新，怎么处理下

Answer 1

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

Answer 2

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