paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix cursor mem leak

Browse Source 
git-svn-id: trunk@24732 -
This commit is contained in:
michael 2013-06-01 17:07:52 +00:00
parent f985149163
commit 678fb02f11
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -225,7 +225,6 @@ type
FTransaction: TSQLTransaction;
FDatasource : TDatasource;
FParseSQL: Boolean;
procedure DoUnPrepare;
procedure OnChangeSQL(Sender : TObject);
procedure SetDatabase(AValue: TSQLConnection);
procedure SetDataSource(AValue: TDatasource);
@ -238,6 +237,7 @@ type
Function IsSelectable : Boolean ; virtual;
Procedure DoExecute; virtual;
procedure DoPrepare; virtual;
procedure DoUnPrepare; virtual;
Function CreateParams : TParams; virtual;
Function LogEvent(EventType : TDBEventType) : Boolean;
Procedure Log(EventType : TDBEventType; Const Msg : String); virtual;
@ -644,7 +644,6 @@ procedure TCustomSQLStatement.SetDatabase(AValue: TSQLConnection);
begin
if FDatabase=AValue then Exit;
UnPrepare;
if assigned(FCursor) then TSQLConnection(DataBase).DeAllocateCursorHandle(FCursor);
If Assigned(FDatabase) then
FDatabase.RemoveFreeNotification(Self);
FDatabase:=AValue;
@ -825,8 +824,14 @@ end;
procedure TCustomSQLStatement.DoUnPrepare;
begin
If Assigned(Database) then
DataBase.UnPrepareStatement(FCursor);
If Assigned(FCursor) then
If Assigned(Database) then
begin
DataBase.UnPrepareStatement(FCursor);
DataBase.DeAllocateCursorHandle(FCursor);
end
else // this should never happen. It means a cursor handle leaks in the DB itself.
FreeAndNil(FCursor);
end;
procedure TCustomSQLStatement.Unprepare;