paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed resource-leak on exceptions during creating/dropping databases, patch from taka_jp, bug #13587

Browse Source 
git-svn-id: trunk@13190 -
This commit is contained in:
joost 2009-05-24 11:20:45 +00:00
parent 2435a4a48f
commit d39e82b256
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -310,18 +310,21 @@ begin
InitialiseMysql;
H:=HostName;
U:=UserName;
P:=Password;
AMySQL := nil;
ConnectMySQL(AMySQL,pchar(H),pchar(U),pchar(P));
if mysql_query(AMySQL,pchar(query))<>0 then
MySQLError(AMySQL,Format(SErrExecuting,[StrPas(mysql_error(AMySQL))]),Self);
mysql_close(AMySQL);
ReleaseMysql;
try
H:=HostName;
U:=UserName;
P:=Password;
AMySQL := nil;
ConnectMySQL(AMySQL,pchar(H),pchar(U),pchar(P));
try
if mysql_query(AMySQL,pchar(query))<>0 then
MySQLError(AMySQL,Format(SErrExecuting,[StrPas(mysql_error(AMySQL))]),Self);
finally
mysql_close(AMySQL);
end;
finally
ReleaseMysql;
end;
end;
function TConnectionName.EscapeString(const Str: string): string;