opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 18:12:05 +08:00
Code Issues Packages Projects Releases Wiki Activity

Silence dumb exceptions from mysql_ping() call. See https://www.heidisql.com/forum.php?t=23483

Browse Source
This commit is contained in:
Ansgar Becker
2017-03-07 20:19:36 +00:00
parent 654dace688
commit 209f398dec
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/dbconnection.pas
View File

@ -2253,9 +2253,20 @@ end;
function TMySQLConnection.Ping(Reconnect: Boolean): Boolean; function TMySQLConnection.Ping(Reconnect: Boolean): Boolean;
var
IsDead: Boolean;
begin begin
Log(lcDebug, 'Ping server ...'); Log(lcDebug, 'Ping server ...');
if (FHandle=nil) or (mysql_ping(FHandle) <> 0) then begin IsDead := True;
try
IsDead := (FHandle=nil) or (mysql_ping(FHandle) <> 0);
except
// silence dumb exceptions from mysql_ping
on E:Exception do
Log(lcError, E.Message);
end;
if IsDead then begin
// Be sure to release some stuff before reconnecting // Be sure to release some stuff before reconnecting
Active := False; Active := False;
if Reconnect then if Reconnect then