newURL := IdHTTP.Response.Location;
end;
if (newURL <> '') then begin
+ // \83\8a\83_\83C\83\8c\83N\83g\82·\82ê\82Î\95K\82¸\88Ú\93]\82Æ\82Í\8cÀ\82ç\82È\82¢
+ // \83e\83\8c\83r\94Ô\91g\94Â\82È\82Ç\82Ì\91Î\8dô\8dÅ\8cã\82Ì'/'\82Ü\82Å\82ðURL\82Æ\82·\82é
+ if (Length(newURL) <> LastDelimiter('/', newURL)) then begin
+ newURL := Copy(newURL, 1, LastDelimiter('/', newURL));
+ end;
oldURL := URLs[i];
- ResultMemo.Lines.Add('URL:' + oldURL + ' -> ' + newURL);
- if (newURL <> '') then begin
+ if (oldURL <> newURL) then begin
+ ResultMemo.Lines.Add('URL:' + oldURL + ' -> ' + newURL);
oldURLs.Add( oldURL );
newURLs.Add( newURL );
end;