Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/NewBoardURL.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 115 |
newURL := IdHTTP.Response.Location; |
newURL := IdHTTP.Response.Location; |
| 116 |
end; |
end; |
| 117 |
if (newURL <> '') then begin |
if (newURL <> '') then begin |
| 118 |
|
// リダイレクトすれば必ず移転とは限らない |
| 119 |
|
// テレビ番組板などの対策最後の'/'までをURLとする |
| 120 |
|
if (Length(newURL) <> LastDelimiter('/', newURL)) then begin |
| 121 |
|
newURL := Copy(newURL, 1, LastDelimiter('/', newURL)); |
| 122 |
|
end; |
| 123 |
oldURL := URLs[i]; |
oldURL := URLs[i]; |
| 124 |
ResultMemo.Lines.Add('URL:' + oldURL + ' -> ' + newURL); |
if (oldURL <> newURL) then begin |
| 125 |
if (newURL <> '') then begin |
ResultMemo.Lines.Add('URL:' + oldURL + ' -> ' + newURL); |
| 126 |
oldURLs.Add( oldURL ); |
oldURLs.Add( oldURL ); |
| 127 |
newURLs.Add( newURL ); |
newURLs.Add( newURL ); |
| 128 |
end; |
end; |
|
|
Legend:
| Removed from v.1.3 |
|
| changed lines |
| |
Added in v.1.4 |
|
|
|