Z
zhoumiao
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]idhttp1控件如何才能得到大富翁页面htm代码
例如我要取http://www.delphibbs.com/delphibbs/dispq.asp?lid=3879854内容,但什么都取不到,其他网址一般都行,源码如下:
function GetWebPageHTML(URL: string): string;
var
IDHTTP: TIDHttp;
begin
Result:= '';
IDHTTP:= TIDHTTP.Create(nil);
try
try
idhttp.HandleRedirects:= true; //必须支持重定向否则可能出错
idhttp.ReadTimeout:= 20000; //超过这个时间则不再访问
Result:= IDHTTP.Get(URL);//取得网页内容
except
end;
finally
IDHTTP.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.text:=getwebpagehtml('http://www.delphibbs.com/delphibbs/dispq.asp?lid=3879854');
end;
请高手指点!!!
]idhttp1控件如何才能得到大富翁页面htm代码例如我要取http://www.delphibbs.com/delphibbs/dispq.asp?lid=3879854内容,但什么都取不到,其他网址一般都行,源码如下:
function GetWebPageHTML(URL: string): string;
var
IDHTTP: TIDHttp;
begin
Result:= '';
IDHTTP:= TIDHTTP.Create(nil);
try
try
idhttp.HandleRedirects:= true; //必须支持重定向否则可能出错
idhttp.ReadTimeout:= 20000; //超过这个时间则不再访问
Result:= IDHTTP.Get(URL);//取得网页内容
except
end;
finally
IDHTTP.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.text:=getwebpagehtml('http://www.delphibbs.com/delphibbs/dispq.asp?lid=3879854');
end;
请高手指点!!!
