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

Browse source
This commit is contained in:
Alexander Koblov 2018-05-13 21:03:53 +00:00
commit 245f68932e
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -448,6 +448,7 @@ begin
flr := TFTPListRec.Create;
v:= FFTPList.Lines[x];
flr.OriginalLine:= v;
// DoStatus(True, v);
for y:= 1 to Length(v) do
begin
if v[y] = '=' then
@ -463,8 +464,8 @@ begin
// Skip 'cdir' entry
if (value = 'cdir') then
begin
flr.Free;
Continue;
FreeAndNil(flr);
Break;
end;
// Parent directory entry
pcdir := (value = 'pdir');
@ -473,8 +474,8 @@ begin
// Skip duplicate 'pdir' entry
if pdir then
begin
flr.Free;
Continue;
FreeAndNil(flr);
Break;
end;
pdir := True;
end;
@ -503,8 +504,7 @@ begin
s:= y + 1;
end;
end;
FFTPList.List.Add(flr);
// DoStatus(True, FFTPList.Lines[x]);
if Assigned(flr) then FFTPList.List.Add(flr);
end;
end;
FDataStream.Position := 0;