LoadFromStream时出错,急**

wenforever

代码如下:
var
  lStream:TMemoryStream;
begin
  lStream := TMemoryStream.Create;
    with DataSetsdsOtherLog do
    begin
      if not Active then Open;
      if not IsEmpty then
      begin
        if lStream <> nil then
        begin
          lStream.Clear;
          lStream.Position := 0;
          TBlobField(FieldByName('AccountMemo')).SaveToStream(lStream);

          lStream.Position := 0;
          DataSetdsAccount.LoadFromStream(lStream);
        end;
      end;
    end;
在执行到DataSetdsAccount.LoadFromStream(lStream);时出错:
Insufficient memory for this operation.
怀疑和二进制字段内容太大小关系.因为在加载数据比较少的情况都是可以的.
我在TBlobField(FieldByName('AccountMemo')).SaveToStream(lStream);
后加了二句
     lStream.Position := 0;
          TBlobField(FieldByName('AccountMemo')).SaveToFile('e:\a.bin');
发现存的文件160K,而且用文本打开没有看到应有结束字符串,还没出现/></ROWDATA></DATAPACKET>就结束了.

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=23099

zfang

楼主，问题怎么样了？

wenforever

在上面的写法和2楼引用的贴子中是一样的啊?
贴中的内容:
No.4  
1楼代码这么写看下吧。
  lStream :=TMemoryStream.Create;
  try
    TBlobField(DataSetBrokerBZSJJ1.DataSet.FieldByName('QZ')).SaveToStream(lStream);
    lStream.Position := 0;
    RichEdit1.Lines.LoadFromStream(lStream);
  finally
    lStream.Free;
  end;

zfang

那还有什么问题么？

wenforever

在加载数据比较少的情况下,这么写是OK的.
可在一个数据量大的时候,就出错了.



在执行到DataSetdsAccount.LoadFromStream(lStream);时出错:
Insufficient memory for this operation.
怀疑和二进制字段内容太大小关系.因为在加载数据比较少的情况都是可以的.
我在TBlobField(FieldByName('AccountMemo')).SaveToStream(lStream);
后加了二句
     lStream.Position := 0;
          TBlobField(FieldByName('AccountMemo')).SaveToFile('e:\a.bin');
发现存的文件160K,而且用文本打开没有看到应有结束字符串,还没出现/></ROWDATA></DATAPACKET>就结束了.

zfang

多大的文件啊？

wenforever

不是文件.是把一个数据集存在里面了.保存的代码:
    with DataSetdsAccount do
    begin
    ...
        if lStream <> nil then
        begin
          lStream.Clear;
          lStream.Position := 0;
          SaveToStream(lStream,TDataPacketFormat.dfXMLUTF8);
          lStream.Position := 0;
          if  not DataSetdsAccount.IsEmpty then
            TBlobField(DataSetsdsOtherLog.FieldByName('AccountMemo')).LoadFromStream(lStream)
          end;
    end

wenforever

大小应该在160K以上.参见6楼中的说明.

jiahaiming

Insufficient memory for this operation.
内存不足。

楼主可以看一下内存的使用情况。