关于oracle数据库中blob数据类型的保存问题？？？？

Question

var
  fs : TBlobField ;
  tm : TBlobStream ;
  buffer : PChar ;
  memsize : integer;
begin
try
  fileToDataBase(cltBlob,'c:\d.doc','caseContext',tm)    ;
  cltBlob.Post ;
  with qryInsert do
    begin
      close ;
      ParamByName('serialNo').AsString := '2003060001' ;
      ParamByName('caseContext').LoadFromStream(tm,ftOraBlob);
      ExecSQL ;
      close ;
    end ;
 finally
   tm.Free ;
 end ;   
end;出现‘指定lob定位器无效’的错误？？？

Answer 1

ParamByName('caseContext').LoadFromStream(tm,ftOraBlob);
没有必要进行流处理 可以直接