Subject | More on resources not being freed |
---|---|
Author | birdpointy |
Post date | 2003-04-01T19:14:13Z |
Hi Helen
I guess I wasnt explaining myself properly. I have done the following
to test the situation:
I am using Delphi6, with IBO 4.2Ha.
Created a new application.
On the form, I dropped a TIB_Connection component.
Set the properties of the TIB_Connection
Dropped a button on the form, and attached this code:
procedure TForm1.Button1Click(Sender: TObject);
var
WCursor: TIB_Cursor;
begin
Conn.Connect;
WCursor := TIB_Cursor.Create(Self);
try
WCursor := TIB_Cursor.Create(Self);
WCursor.SQL.Text := 'SELECT * FROM CUSTOMER';
WCursor.APIFirst;
WCursor.Unprepare;
finally
WCursor.Free;
end;
Conn.Disconnect;
end;
Very simple, and it should have no problems I would think. But, it
does.
After the button is pressed, and the code has executed, there are
some live pointers.
Each time the button is clicked, the live pointer count increases.
Any new ideas would be greatly appreciated.
For confirmation, MemCheck can be obtained for free at
http://www.automatedqa.com/downloads/
I hope this is a little more clear, and thanks very much for your
help.
Best wishes
Gary
I guess I wasnt explaining myself properly. I have done the following
to test the situation:
I am using Delphi6, with IBO 4.2Ha.
Created a new application.
On the form, I dropped a TIB_Connection component.
Set the properties of the TIB_Connection
Dropped a button on the form, and attached this code:
procedure TForm1.Button1Click(Sender: TObject);
var
WCursor: TIB_Cursor;
begin
Conn.Connect;
WCursor := TIB_Cursor.Create(Self);
try
WCursor := TIB_Cursor.Create(Self);
WCursor.SQL.Text := 'SELECT * FROM CUSTOMER';
WCursor.APIFirst;
WCursor.Unprepare;
finally
WCursor.Free;
end;
Conn.Disconnect;
end;
Very simple, and it should have no problems I would think. But, it
does.
After the button is pressed, and the code has executed, there are
some live pointers.
Each time the button is clicked, the live pointer count increases.
Any new ideas would be greatly appreciated.
For confirmation, MemCheck can be obtained for free at
http://www.automatedqa.com/downloads/
I hope this is a little more clear, and thanks very much for your
help.
Best wishes
Gary