1,593
社区成员
发帖
与我相关
我的任务
分享
for j:=1 To zzz do
begin
IdHTTP1.Request.CustomHeaders.Text:=ADOQUery1.FieldValues['cookies'];
try
IdHTTP1.Get(seturl);
DeleteIECache;
i:=i+1;
Delay(500);
ADOQuery1.Next;
Label4.Caption:=IntToStr(i);
Memo1.Lines.add(ADOQUery1.FieldValues['cookies']);
except
if MessageDlg('出现错误',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Close;
end;
end;