代码如下:
var
  Buf:TMemoryStream;
begin
  Table1.Append;
  Buf:=TMemoryStream.Create;
  Image1.Picture.Bitmap.SaveToStream(buf);
  showmessage(inttostr(buf.Size));
  Buf.Position:=0;
  TBlobField(Table1.FieldByName('FldIcon')).LoadFromStream(Buf);
  Table1.Post;
end;当执行Post时就会产生错误,错误如下:
Project Project1.exe raised exception class EDBEngineError with message 'General SQL error.
ORA-22990:LOB定位器无法扩展事务处理'.Process stopped. Use Step or Run to continue.FldIcon为blob字段;如果不对该字段操作,只操作其他字段没有问题