插入  
with OraQuery2 do
  begin
    close;
    sql.Clear;
    sql.Add('insert into hn_guest (g_num,pic) values (:g_num,:pic) ');
    params.ParamByName('g_num').Value:=trim(edit_id.Text);
    Params.ParamByName('pic').LoadFromStream(pic,ftblob);//LoadFromFile(OpenDialog1.filename,ftblob);;
    execsql;
  end;
更新
  {with OraQuery2 do
  begin
    close;
    sql.Clear;
    sql.Add('update hn_guest set pic=:pic where g_num=:g_num');
    params.ParamByName('g_num').Value:=trim(edit_id.Text);
    Params.ParamByName('pic').LoadFromFile(OpenDialog1.filename,ftblob);;
    execsql;
  end;  }