Too Many Blobfields Open

After we have printed several reports using rppro 2.0g we get the too many Blobfields open error and have to terminate the app in order to restore the system resources. The error occurs after about seven or so printouts on a 24 MB system.
We have narrowed this error down to what we believe is a database problem. One of our tables has a blobfield in the record. I believe this occurs on the following section of code.
Ch1BlobStream := TBlobStream.Create(MyoexorciserMain.TreatmentsCh1SessData, bmRead);
   Ch2BlobStream := TBlobStream.Create(MyoexorciserMain.TreatmentsCh2SessData, bmRead);
   Ch1BlobStream.Read(Ch1Array^, TotalPoints);
   Ch2BlobStream.Read(Ch2Array^, TotalPoints);
   MyoexorciserMain.Treatments.Cancel;
   Ch1BlobStream.Free;
   Ch2BlobStream.Free;

The arrays which are being assigned to the blobstreams are defined as follows:
{allocate storage for the raw channel data}
   Ch1Array, Ch2Array: PChanArray;
.....
PChanArray = ^TChanArray;
   TChanArray = Array[0..Max] of Byte; { MAX = 65,000}
   PAdaptArray = ^TAdaptArray;  

Is there a problem in the way we are assigning the arrays to the blobstreams? Does Delphi really free up these blobstreams and if so why do we get this error?

BTW we were unable to get the SET method to work for assigning the dynamic array directly to the bloblstream and the use of the filestream was very slow, although at this juncture I am open to any work around.
billmeeAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
sperlingConnect With a Mentor Commented:
Try not cancelling until you've freed the blobstreams. Might help, but I'm not sure.

Regards,

Erik.

0
 
billmeeAuthor Commented:
Edited text of question
0
 
billmeeAuthor Commented:
Edited text of question
0
 
billmeeAuthor Commented:
Incidentally, if we access the same record more than three times we get an exception violation.  The Too Many Bloblfiels open error is good for about 7 - 10 accesses of different records, if this is any help
0
All Courses

From novice to tech pro — start learning today.