delphi如何获取返回码为200的重定向过的源代码？

Question

有一种网站，直接访问域名的话，返回的是index.html，内容是一段重定向脚本，大概是
<script>window.location='./index.php'</script>
但是debug一下发现他的返回码是200，不是301或302之类的，这样就算把indy控件的HandleRedirect设置为true也没用，因为这个貌似也是根据返回码来判断的，现在求助一下大家看看有没有办法获取这种情况下的重定向后的网页源码那个./index.php只是举例，实际上可能跳转到的目录和文件都是不同的，所以想求一个比较完美的办法

Answer 1

你发送一个get, 他的跳转地址在 content-location后边 

Answer 2

Site found: www.cbcde.cn=117.41.168.66
Connecting to 117.41.168.66
Connected to 117.41.168.66
GET http://www.cbcde.cn/
> Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
> User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)
> Host: www.cbcde.cn
Request sent. 213 bytes
Data available. 46/46 bytes
< HTTP/1.1 200 OK
< Date: Sat, 17 Apr 2010 07:02:01 GMT
< Content-Length: 46
< Content-Type: text/html
< Content-Location: http://www.cbcde.cn/index.html
< Last-Modified: Sat, 17 Apr 2010 06:08:47 GMT
< Accept-Ranges: bytes
< ETag: "96972671f4ddca1:ab0a"
< Server: Microsoft-IIS/6.0
< X-Powered-By: ASP.NET
< 
200 Request complete
我获取到的头部是这样的，没有真实地址啊

Answer 3

 简单测试了下，是在删除Cookie的情况下
自己的head
GET / HTTP/1.1
Host:www.cbcde.cn
Accept: */*
User-Agent:Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)
Connection:Keep-Alive收到的
HTTP/1.1 200 OK
Date: Sat, 17 Apr 2010 08:57:26 GMT
Content-Length: 46
Content-Type: text/html
Content-Location: http://www.cbcde.cn/index.html
Last-Modified: Sat, 17 Apr 2010 08:51:43 GMT
Accept-Ranges: bytes
ETag: "a4f62034bdeca1:ab0a"
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET<script>window.location='./index.php'</script>
这里就是地址

Answer 4

我是自己写socket测试的，一般来都是判断最后是否是俩个#13 + #10 + #13 + #10连续的，就当回应包收完了，我刚刚把那里去了，发现他的在最后边

Answer 5

这个<script>window.location='./index.php'</script>就是index.html网页源代码了，只能自己解析这条脚本吗？这样解析的话太麻烦了啊，网页跳转的方法不止这一种的，有没有通用的办法？除了用那个webbrowse控件

Answer 6

为什么不用webbrowse控件？太大了？

Answer 7

因为用webbrowse直接访问比较不安全，加入访问的网站被挂马，我就要哭了

Answer 8

除了解释脚本
没招
如果服务器有从其他方法提供转向地址 就不会这么累赘的再搞个脚本了
这样的脚本是很常见的,确实有很多复杂的
如的错误转向 就是在一个带有提示信息的 Body 里