Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/NewBoardURL.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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); |
| 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 |
|
|
|