登陆
浏览模式: 标准 | 列表 Tag: 翻页

Delphi 针对Net程序翻页

好东西呀 丢上来了以后我会再次用到就不用瞎翻了用Post提交数据

大鸟哥说ContentType很重要哩

Delphi代码
  1. Var   
  2.   Url :String;   
  3.   TAction :TStringStream;   
  4. begin  
  5.   Url :='XXXXXXXXXXXXX?Dis_Province=11';   
  6.   TAction :=TStringStream.Create('');   
  7.   IdAntiFreeze1.OnlyWhenIdle :=False;   
  8.   TAction.WriteString('__EVENTTARGET=DropDownList_Page&DropDownList_Page=3');   
  9.   IdHTTP1.Request.SetHeaders;   
  10.   IdHTTP1.Request.Referer :=Url;   
  11.   IdHTTP1.Request.ContentType :='application/x-www-form-urlencoded';   
  12.   ShowMessage(IdHTTP1.Post(Url,TAction));   
  13. end;  

Tags: net, 翻页, 采集