DELPHI5升级到DELPHI6问题(100分)

代码：
Stream := TMemoryStream.Create;
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(OpenDialog1.FileName);
Jpg.SaveToStream(Stream);
dmDataProd.tblMIGraphic.Insert;
dmDataProd.tblMIGraphic.FieldByName('rkey').AsInteger := GetNextUniqueNumber('seq0040');
dmDataProd.tblMIGraphic.FieldByName('dept_ptr').AsInteger := 0;
dmDataProd.tblMIGraphic.FieldByName('File_Name').AsString := OpenDialog1.Filename;
dmDataProd.tblMIGraphic.FieldByName('Source_pointer').AsInteger := dmDataPublic.qryMgrPNA.FieldByName('rkey').AsInteger;
tmpg := TBlobStream.Create(TBlobField(dmDataProd.tblMIGraphic.FieldbyName('layup_mi')), bmWrite);
Stream.Seek(0, soFromBeginning);
tmpg.CopyFrom(Stream, Stream.Size);
dmDataProd.tblMIGraphic.Post;
出现错误码如下：
“LOB Locators cannot span transactions"
请告诉如何解决！！！！后台是ORACLE

怀疑不是Delphi的问题，而是Oracle的问题。

你看看Oracle的事务处理有没有问题。

所有客户端原来好好的，只要装上D6就不行，其它一切没变，
怀疑与BDE有关，可就是找不出原因。应该不关oracle的问题！！

我想你的猜测应该是对的，因为那段代码在Delphi6下也出入不了多少。

用单步调试看一看。

我调试过了，是POST的时候出的错