mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: FTP - Access violation if you try to "Quick connect" when you are already connected (fixes #1664)

Browse source
This commit is contained in:
Alexander Koblov 2024-05-21 23:06:43 +03:00
commit 84f1a960b1
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
plugins/wfx/ftp/src/ftpfunc.pas
View file

@ -425,9 +425,11 @@ var
Index: Integer;
Connection: TConnection;
begin
Result:= ActiveConnectionList.IndexOf(cQuickConnection) >= 0;
if not Result then
begin
Index:= ActiveConnectionList.IndexOf(cQuickConnection);
Result:= (Index >= 0);
if Result then
FtpSend:= TFTPSendEx(ActiveConnectionList.Objects[Index])
else begin
Connection := TConnection.Create;
Connection.ConnectionName:= cQuickConnection;
if ShowFtpConfDlg(Connection) then