求助:IDHTTP读取网页重定向问题 用IDHTTP1读取POST网页A,它会重新定向网页B,POST响应返回的数据时提示正在重新fresh定向网站B等信息但是我需要的是想读取A这个网页的返回内容,请问要怎么才能实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 IdHTTP1.HandleRedirects:=False;//这行是让IdHTTP1不自动跳转 try sHtml:=IdHTTP1.Post('http://................); except end; 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); ss.Destroy;end;end. 问个字符串处理的问题 怎样结束线程? 关于登陆已经查询光标等等的问题,希望大家多多出力 学生 问题? 谁有pudn.com的会员阿,帮助下载一下文件 如何在线程中弹出对话框而不阻塞线程? 用TDBGRID控件只允许修改表,不允许添加表,如何实现? 各位是如何使用ADO控件的,放在Form上吗?为什么我的菜鸟问题没人能解答? delphi listview如何获取可见部分的列号 DELPHI5中数据保存问题? 请教delphi Access数据库中如何找出重复的记录?然后删除重复数据记录 delphi的问题
IdHTTP1.HandleRedirects:=False;//这行是让IdHTTP1不自动跳转
try
sHtml:=IdHTTP1.Post('http://................);
except
end;
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);
ss.Destroy;
end;end.