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

Try to fix a rarely occurring access violation

Browse Source
This commit is contained in:
Ansgar Becker
2011-04-01 17:33:22 +00:00
parent 08e4e0666a
commit 3bfc4d0ffb
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/main.pas
View File

@@ -4883,18 +4883,20 @@ procedure TMainForm.TimerConnectedTimer(Sender: TObject);
var
ConnectedTime: Integer;
Vendor: String;
Conn: TDBConnection;
begin
if Assigned(ActiveConnection) and ActiveConnection.Active then begin
Conn := ActiveConnection;
if Assigned(Conn) and Conn.Active then begin
// Calculate and display connection-time. Also, on any connect or reconnect, update server version panel.
ConnectedTime := ActiveConnection.ConnectionUptime;
ConnectedTime := Conn.ConnectionUptime;
ShowStatusMsg('Connected: ' + FormatTimeNumber(ConnectedTime), 2);
case ActiveConnection.Parameters.NetType of
case Conn.Parameters.NetType of
ntTCPIP, ntNamedPipe, ntSSHTunnel:
Vendor := 'MySQL';
ntMSSQL:
Vendor := 'MS SQL';
end;
ShowStatusMsg(Vendor+' '+ActiveConnection.ServerVersionStr, 3);
ShowStatusMsg(Vendor+' '+Conn.ServerVersionStr, 3);
end else begin
ShowStatusMsg('Disconnected.', 2);
end;