用Tidhttp post去网页以后，如何得到跳转的地址和内容？

Question

一般用post出去数据以后，例如自动发贴以后，服务端接受到post的数据，会产生一个跳转并显示结果
怎么得到这个跳转的内容呢？

Answer 1

将 idhttp handleredirc设置为True下面是获得转向地址： 
procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String; 
  var NumRedirect: Integer; var Handled: Boolean; 
  var VMethod: TIdHTTPMethod); 
var 
url : string; 
begin 
    url := dest; 
    Handled:=True;    
    showmessage(url);//转向地址 
end;

Answer 2

使用ClientSocket   实现ClientSocket1Read方法。
var
 s:string;
begin
 s:=socket.ReceiveText;
 if pos('关键字',s)<>0 then
begin 
  开始提取操作
end

Answer 3

post中有一个stream   读出来