opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add more debug log lines, mostly to detect looped calls to Ping().

Browse Source
This commit is contained in:
Ansgar Becker
2011-01-16 16:36:42 +00:00
parent 56f3b8ff0b
commit adb3a3aa74
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/mysql_connection.pas
View File

@@ -1144,6 +1144,7 @@ var
PossibleEngines: TStringList;
begin
// After a disconnect Ping triggers the cached engines to be reset
Log(lcDebug, 'Fetching list of table engines ...');
Ping;
if not Assigned(FTableEngines) then begin
FTableEngines := TStringList.Create;
@@ -1192,6 +1193,7 @@ end;
function TMySQLConnection.GetCollationTable: TMySQLQuery;
begin
Log(lcDebug, 'Fetching list of collations ...');
Ping;
if (not Assigned(FCollationTable)) and (ServerVersionInt >= 40100) then
FCollationTable := GetResults('SHOW COLLATION');
@@ -1216,6 +1218,7 @@ end;
function TMySQLConnection.GetCharsetTable: TMySQLQuery;
begin
Log(lcDebug, 'Fetching charset list ...');
Ping;
if (not Assigned(FCharsetTable)) and (ServerVersionInt >= 40100) then
FCharsetTable := GetResults('SHOW CHARSET');
@@ -1241,6 +1244,7 @@ end;
function TMySQLConnection.GetInformationSchemaObjects: TStringList;
begin
Log(lcDebug, 'Fetching objects in information_schema db ...');
Ping;
if not Assigned(FInformationSchemaObjects) then try
FInformationSchemaObjects := GetCol('SHOW TABLES FROM '+QuoteIdent('information_schema'));
@@ -1272,6 +1276,7 @@ end;
function TMySQLConnection.GetCurrentUserHostCombination: String;
begin
// Return current user@host combination, used by various object editors for DEFINER clauses
Log(lcDebug, 'Fetching user@host ...');
Ping;
if FCurrentUserHostCombination = '' then
FCurrentUserHostCombination := GetVar('SELECT CURRENT_USER()');
@@ -1601,6 +1606,7 @@ var
if B then Result := 'Yes' else Result := 'No';
end;
begin
Log(lcDebug, 'Get connection details ...');
Result := TStringList.Create;
if Assigned(Parameters) then
Result.Values['Hostname'] := Parameters.Hostname;