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.3 by h677, Tue Sep 23 08:31:31 2008 UTC revision 1.4 by h677, Mon Oct 13 11:11:19 2008 UTC
# Line 115  begin Line 115  begin
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

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