clientdataset上传二进制图片,哪位大大能帮忙看看
这个是 insert 语句

 with DataModule1.ds_ReleaseGoods do
    begin
      Close;
      CommandText := 'insert into t_SimpleGoods(g_b_ID,g_s_ID,g_Name,g_Fineness,g_Price,g_Detail,' +
        'g_u_ID,g_image1,g_image2,g_image3) values(:p_g_b_ID,:p_g_s_ID,:p_g_Name,:p_g_Fineness,' +
        ':p_g_Price,:p_g_Detail,:p_g_u_ID,:p_g_image1,:p_g_image2,:p_g_image3)';

这个是给参数载入流,可运行到载入流就内存错误

        MS := TMemoryStream.Create;
        for I := 1 to ImgCount do
        begin
          if Assigned(img1.Picture.Graphic) then
          begin
            img1.Picture.Bitmap.SaveToStream(MS);
            MS.Position := 0;
            TBlobField(Params.ParamByName('p_g_image' + IntToStr(I))).LoadFromStream(MS);//运行到这里内存错误
            MS.Clear;
          end

[解决办法]
Params.ParamByName('p_g_image' + IntToStr(I)).LoadFromStream(MS,ftBlob);