introduced 1 minute timeout for archive's files list building

classesLib.pas

@@ -848,10 +848,12 @@ function TtarStream.read(var Buffer; Count: Longint): Longint;
 
 var
   i, posBak: int64;
+  n: integer;
 begin
 posBak:=pos;
 p:=@buffer;
-while (count > 0) and (cur < length(flist)) do
+n:=length(flist);
+while (count > 0) and (cur < n) do
   case where of
     TW_HEADER:
       begin

main.pas

@@ -1368,6 +1368,7 @@   TfileListing = class
     actualCount: integer;
   public
     dir: array of Tfile;
+    timeout: TDateTime;
     ignoreConnFilter: boolean;
     constructor create();
     destructor Destroy; override;
@@ -1661,6 +1662,8 @@ function TfileListing.fromFolder(folder:Tfile; cd:TconnData;
         repeat
         application.ProcessMessages();
         cd.lastActivityTime:=now();
+        if cd.lastActivityTime > timeout then
+          break;
         // we don't list these entries
         if (sr.name = '.') or (sr.name = '..')
         or isCommentFile(sr.name) or isFingerprintFile(sr.name) or sameText(sr.name, DIFF_TPL_FILE)
@@ -5026,6 +5029,7 @@ procedure Tmainfrm.httpEvent(event:ThttpEvent; conn:ThttpConn);
     listing:=TfileListing.create();
     try
       listing.ignoreConnFilter:=ignoreConnFilters;
+      listing.timeout:= now()+1/MINUTES;
       listing.fromFolder( f, data, shouldRecur(data));
       fIsTemp:=f.isTemp();
       ofs:=length(f.resource)-length(f.name)+1;