利用IDHTTP多次获取网页代码

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { if(OpenDialog1->Execute()) { Memo2->Lines->LoadFromFile(OpenDialog1->FileName); Edit2->Text=OpenDialog1->FileName; } zong=Memo2->Lines->Count; Edit3->Text=zong; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Button2->Caption="继续查询"; int q,string_n,string_i,kai_n; char *s; char *ci; kai_n=0; AnsiString shu,string_hao,memo,city,citys; shu=Edit4->Text; q=StrToInt(shu); for(q;q<zong;q++) { kai_n=0; Edit1->Text=Memo2->Lines->Strings[q]; Edit1->SelStart=0; Edit1->SelLength=10; memo=Edit1->SelText; Memo1->Text=IdHTTP1->Get("http://checknew.wangzhi.com.cn/chaxun.php?serialno="+memo+"&step="); Edit1->Text=Memo1->Lines->Strings[8]; if(Edit1->Text!="") { for(string_i=33;string_i<48;string_i++) { Edit1->SelStart=string_i; Edit1->SelLength=2; string_hao=Edit1->SelText; if(string_hao==">-") { kai_n=string_i; } } } if(kai_n==0) { ofstream fout; s=Memo2->Lines->Strings[q].c_str(); fout.open("D://search//错误的.txt",ios::app); fout.write(s,17); fout.write("\n",1); } else { Edit1->SelStart=0; Edit1->SelLength=kai_n-15; city=Edit1->SelText; ofstream fout1; citys="D://search//"+city+".txt"; ci=citys.c_str(); s=Memo2->Lines->Strings[q].c_str(); fout1.open(ci,ios::app); fout1.write(s,17); fout1.write("\n",1); } Edit4->Text=q+1; } } //---------------------------------------------------------------------------