IdAntiFreezeの呼び出しをループの外に追い出した。

diff --git a/NewBoardURL.pas b/NewBoardURL.pas
index 8413289..417e27a 100644 (file)
--- a/NewBoardURL.pas
+++ b/NewBoardURL.pas
@@ -103,8 +103,8 @@ begin
                 IdHTTP.Request.CacheControl := 'no-cache';
                 IdHTTP.Request.CustomHeaders.Add('Pragma: no-cache');
                 IdHTTP.HandleRedirects := false;
+                IdAntiFreeze.Active := true;
                 for i := 0 to URLs.Count - 1 do begin
-                    IdAntiFreeze.Active := true;
                     try
                         ResStream.Clear;
                         IdHTTP.Get(URLs[i], ResStream);
@@ -134,9 +134,8 @@ begin
                             {$ENDIF}
                         end;
                     end;
-                    IdAntiFreeze.Active := false;
                 end;
-
+                IdAntiFreeze.Active := false;
                 if (newURLs.Count > 0) and (oldURLs.Count > 0) then begin
                     ReplaceURLs(oldURLs, newURLs);
                     GikoForm.FavoritesURLReplace(oldURLs, newURLs);