Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/NewBoardURL.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by h677, Mon Oct 13 11:11:19 2008 UTC revision 1.5 by h677, Sat Apr 18 04:28:21 2009 UTC
# Line 103  begin Line 103  begin
103                  IdHTTP.Request.CacheControl := 'no-cache';                  IdHTTP.Request.CacheControl := 'no-cache';
104                  IdHTTP.Request.CustomHeaders.Add('Pragma: no-cache');                  IdHTTP.Request.CustomHeaders.Add('Pragma: no-cache');
105                  IdHTTP.HandleRedirects := false;                  IdHTTP.HandleRedirects := false;
106                    IdAntiFreeze.Active := true;
107                  for i := 0 to URLs.Count - 1 do begin                  for i := 0 to URLs.Count - 1 do begin
                     IdAntiFreeze.Active := true;  
108                      try                      try
109                          ResStream.Clear;                          ResStream.Clear;
110                          IdHTTP.Get(URLs[i], ResStream);                          IdHTTP.Get(URLs[i], ResStream);
# Line 134  begin Line 134  begin
134                              {$ENDIF}                              {$ENDIF}
135                          end;                          end;
136                      end;                      end;
                     IdAntiFreeze.Active := false;  
137                  end;                  end;
138                    IdAntiFreeze.Active := false;
139                  if (newURLs.Count > 0) and (oldURLs.Count > 0) then begin                  if (newURLs.Count > 0) and (oldURLs.Count > 0) then begin
140                      ReplaceURLs(oldURLs, newURLs);                      ReplaceURLs(oldURLs, newURLs);
141                      GikoForm.FavoritesURLReplace(oldURLs, newURLs);                      GikoForm.FavoritesURLReplace(oldURLs, newURLs);

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26