idhttp怎么捕捉网页跳转后的真实地址

Question

idhttp怎么捕捉网页跳转后的真实地址比如
chinaz的下载地址
http://down.chinaz.com/GO.asp?e6a6392fa1433948f13e30b2d637e3283a46f4@026是这个然后重新定位到http://js.down.chinaz.com/Z2006/%BD%BB%D3%D1%BB%E1%D4%B1/papasite.rar这个过程我用idhttp就要抱错请问大家一般怎么能捉到这个地址

Answer 1

http://community.csdn.net/Expert/topic/4725/4725162.xml?temp=.5494196
这里还有80分谁去领了没人回答我我日我自己也不能删

Answer 2

我只知道当有跳转后IDHttp报错的解决方法，HandleRedirects设置为True

Answer 3

IDHttp1.HandleRedirects:=True;procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
  //dest就是要跳转的URL
end;-------------------------------------------------------
本回复由大傻的破玩意儿【CSDN's forum Explorer】完成！
软件功能强大，速度超快！！支持中...
软件下载地址：http://CoolSlob.ys168.com

Answer 4

IDHttp1.HandleRedirects:=True;procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
  //dest就是要跳转的URL
end;
我试验过好像不行啊

Answer 5

procedure TForm1.Button6Click(Sender: TObject);
begin
        IdHttp1.HandleRedirects := True;
        IdHttp1.Get('http://down.chinaz.com/GO.asp?e6a6392fa1433948f13e30b2d637e3283a46f4@026');
end;procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
        showmessage(dest);
end;procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
var
        mFileStream: TFileStream;
begin
        showmessage(idhttp1.Response.ContentType);
        mFileStream := TFileStream.Create('d:\test.rar',fmCreate);
        mFileStream.CopyFrom(IdHttp1.Response.ContentStream,0);
        mFileStream.Destroy;
end;

Answer 6

大哥阿怎么我这里他没有执行    showmessage(dest);这句呢

Answer 7

showmessage(idhttp1.Version);
我的是d7,idhttp的版本是9.00.10

Answer 8

可是他就是没执行showmessage(dest);这句

Answer 9

你那是不是用了代理服务器？如果用了，需要在idhttp1的属性里设置一下

Answer 10

我也重新放了一个idhttp默认没有修改的版本号也和你的一样可是就是没有出来那个跳转的提示能不能收到idhttp发送请求后的服务器返回状态代码比如200后成功404不再
500服务器错误等