用TBlobField写Oracle8i的BLOB类型的字段时碰到“致命”的错误！！！

Question

procedure AProc;
var
  Sql: string;
  BField: TBlobField;
  Strm: TBlobStream;
  RC: TARecord; // 是一种记录类型，他的字段都是简单类型
begin
  //---先给RC的各字段赋值 如下：
   RC.F1 := ...;
   RC.F2 := ...;
   RC.F3 := ...;
   ...
  //---然后
  Sql := 'SELECT ABLOBFIELD FROM ATABLE';
  Query.SQL.Text := Sql;
  Query.RequestLive := True;
  Query.Open;
  Query.Append;
  BField := TBlobField(Query.FieldByName('ABLOBFIELD'));
  Strm := Query.CreateBlobStream(BField,bmReadWrite) as TBlobStream;
  Strm.Seek(0,soFromBeginning);
  Strm.Write(RC,Sizeof(RC));
  Query.Post; 
  // “致命”的错误在上面句被执行后报出：
  //  'General SQL error ORA-22990:LOB定位器无法扩展事务处理'
  //  不过RC的值似乎是写进去了
end;
  有哪位大虾可以来指点一下迷经吗？ Thnx in advance!!!

Answer 1

看了楼主的问题感觉没什么思路，感觉出错可能在Strm.Write(RC,Sizeof(RC));
功力不够关注！

Answer 2

事实上，如果Oracle中的这个ATABLE表的字段ABLOBFIELD被定义成LONG ROW类型,则同样的程序就不会出错。可问题是我一定要用BLOB类型。 怎么办~~~~~~~ 郁闷啊~~~~~~~~~