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 - remove warnings, refactoring

Browse source
This commit is contained in:
Alexander Koblov 2025-09-21 18:33:31 +03:00
commit 69b61db9ac
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
plugins/wfx/ftp/src/ftpadv.pas
View file

@ -477,6 +477,8 @@ begin
if Result then
begin
pdir := False;
pcdir := False;
option := EmptyStr;
FDataStream.Position := 0;
FFTPList.Lines.LoadFromStream(FDataStream);
for x:= 0 to FFTPList.Lines.Count - 1 do

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

@ -592,13 +592,13 @@ var
begin
Result := False;
if (ExtractFileDir(sPath) = PathDelim) then Exit;
sConnName := ExtractConnectionName(UTF16ToUTF8(sPath));
if Assigned(ThreadCon) then
begin
Result:= True;
FtpSend:= ThreadCon;
end
else begin
sConnName:= ExtractConnectionName(UTF16ToUTF8(sPath));
Result:= FtpConnect(sConnName, FtpSend);
end;
if Result then begin