代码如下:
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字段;如果不对该字段操作,只操作其他字段没有问题
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字段;如果不对该字段操作,只操作其他字段没有问题
另外,注意你的oracle是否版本太老
我直接用bde连的啊