如何调用有blob字段的oracle存储过程，急！

Question

with OraStoredProc1 do
   begin
         close;
         PARAMS.Clear;
         with Params.CreateParam(ftString, 'BJ', ptInput) do  
              Asstring := SmartQuery1.Fieldbyname('BJ').value;
         with Params.CreateParam(ftBlob, 'IMG', ptInput) do
              AsBlob:=SmartQuery1.FieldByName('IMG1').value ;
         ExecProc;
   end;
上面的这段代码，调试时出错，错误的地方应该是在BLOB字段。
with Params.CreateParam(ftBlob, 'IMG', ptInput) do
     AsBlob:=SmartQuery1.FieldByName('IMG1').value ;
应该怎样改正？
多谢！！！

Answer 1

没弄过oracle的，你参考一下吧AsBlob:=TBlobField(SmartQuery1.FieldByName('IMG1').value);
Parameters.ParamByName('IMG1').LoadFromFile(PicterFilename,ftBlob);