Too many open blobs 是怎么引起的?
i_Fan 2002-04-04 06:57:27 在读Blob字段是出现的错误 Too many open blobs
程序为:
....
Result:=TList.Create;
MyStream:=MyField.DataSet.CreateBlobStream(MyField,BmRead);
//TBlobField(MyField)..SaveToStream(MyStream);
//TBlobStream.Create(TBlobField(MyField),bmread);
Count:=1;
if MyStream.Size mod SizeOf(TPolyGonTop)<>0 then
begin
Result.Free;
Result:=nil;
Exit;
end;
while Count<=(MyStream.Size) div Sizeof(TPolyGonTop) do
begin
New(PolyTop);
MyStream.ReadBuffer(PolyTop^,SizeOf(TPolyGonTop));
Result.Add(PolyTop);
Inc(Count);
end;
....