opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 03:01:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Implement query timer in connection layer.

Browse Source
This commit is contained in:
Ansgar Becker
2009-11-02 20:26:01 +00:00
parent 8d62f13e1b
commit fbe813f88e
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/mysql_connection.pas
View File

@ -80,6 +80,7 @@ type
FRowsFound: Int64;
FRowsAffected: Int64;
FServerVersionUntouched: String;
FLastQueryStart, FLastQueryEnd: Cardinal;
function GetActive: Boolean;
procedure SetActive(Value: Boolean);
procedure SetDatabase(Value: WideString);
@ -89,6 +90,7 @@ type
function GetLastError: WideString;
function GetServerVersionStr: String;
function GetServerVersionInt: Integer;
function GetLastQueryDuration: Cardinal;
procedure Log(Category: TMySQLLogCategory; Msg: WideString);
procedure DetectCapabilities;
public
@ -113,6 +115,7 @@ type
property Capabilities: TMySQLServerCapabilities read FCapabilities;
property RowsFound: Int64 read FRowsFound;
property RowsAffected: Int64 read FRowsAffected;
property LastQueryDuration: Cardinal read GetLastQueryDuration;
published
property Active: Boolean read GetActive write SetActive default False;
property Hostname: String read FHostname write FHostname;
@ -178,6 +181,8 @@ begin
FRowsFound := 0;
FRowsAffected := 0;
FConnectionStarted := 0;
FLastQueryStart := 0;
FLastQueryEnd := 0;
end;
@ -294,7 +299,9 @@ begin
Active := True;
Log(lcSQL, SQL);
NativeSQL := UTF8Encode(SQL);
FLastQueryStart := GetTickCount;
querystatus := mysql_real_query(FHandle, PChar(NativeSQL), Length(NativeSQL));
FLastQueryEnd := GetTickCount;
if querystatus <> 0 then begin
Log(lcError, GetLastError);
raise Exception.Create(GetLastError);
@ -552,6 +559,12 @@ begin
end;
function TMySQLConnection.GetLastQueryDuration: Cardinal;
begin
Result := FLastQueryEnd - FLastQueryStart;
end;
function TMySQLConnection.GetCol(SQL: WideString; Column: Integer=0): TWideStringList;
var
Results: TMySQLQuery;