IDHTTP读取网页重定向问题
比如我用IDHTTP1读取www.123.com这个网页，他会重定向到www.abc.com这个页面
但是我需要的是读取www.123.com这个网页的内容，请问要怎么才能实现？

我加上idhttp1.HandleRedirects:=True;直接就读取到www.abc.com这个页面的内容了

[解决办法]
可以列出来了，具体怎么用，就看你的了，呵呵

Delphi(Pascal) code

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,  IdHTTP, StdCtrls, IdIntercept;type  TForm1 = class(TForm)    Button1: TButton;    Memo1: TMemo;    Edit1: TEdit;    procedure Button1Click(Sender: TObject);    procedure IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus;      const AStatusText: String);    procedure IdConnectionIntercept1Receive(      ASender: TIdConnectionIntercept; AStream: TStream);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var        mstr: string;        idHttp1: TIdHttp;        IdConnectionIntercept1: TIdConnectionIntercept;begin        Memo1.Lines.Clear;        idHttp1 := TIdHttp.Create(nil);        IdConnectionIntercept1 := TIdConnectionIntercept.Create(nil);        IdConnectionIntercept1.OnReceive := IdConnectionIntercept1Receive;        idHttp1.Intercept := IdConnectionIntercept1;        try                mstr := IdHttp1.Get(Edit1.Text);        except        end;        IdConnectionIntercept1.Destroy;        idHttp1.Destroy;end;procedure TForm1.IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus;  const AStatusText: String);begin        Memo1.Lines.Add(AStatusText)end;procedure TForm1.IdConnectionIntercept1Receive(  ASender: TIdConnectionIntercept; AStream: TStream);var ss: TStringList;begin        Memo1.Lines.Add('------');        ss := TStringList.Create;        ss.LoadFromStream(AStream);        Memo1.Lines.AddStrings(ss);end;end.