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

Fix sporadic crash in Tconnform.TimerStatisticsTimer due to empty session path

Browse Source
This commit is contained in:
Ansgar Becker
2020-12-15 07:21:15 +01:00
parent 1733156502
commit 1f82efa02c
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/connections.pas
View File

@@ -633,8 +633,12 @@ function Tconnform.SelectedSessionPath: String;
var
Sess: PConnectionParameters;
begin
Sess := ListSessions.GetNodeData(ListSessions.FocusedNode);
Result := Sess.SessionPath;
if not Assigned(ListSessions.FocusedNode) then
Result := ''
else begin
Sess := ListSessions.GetNodeData(ListSessions.FocusedNode);
Result := Sess.SessionPath;
end;
end;
@@ -1010,6 +1014,9 @@ begin
Exit;
AppSettings.SessionPath := SelectedSessionPath;
if AppSettings.SessionPath.IsEmpty then
Exit;
DummyDate := StrToDateTime('2000-01-01');
LastConnect := StrToDateTimeDef(AppSettings.ReadString(asLastConnect), DummyDate);
if LastConnect <> DummyDate then begin