关于nmhttp.replynumber的问题(100分)

K

kawais

Unregistered / Unconfirmed
GUEST, unregistred user!
我有很多个网址,要在程序中依次检查.
我想用replynumber来判断网址是否存在,如返回200,404等.
当我检查第一个网址时没问题,但以后,replynumber一直都是第一个网址的返回值.
用什么方法,可以让它在检查第二个时,还原到初始状态?
呵呵,我是个初学者,不知道它该加多少分.那就100吧^_^
thanks
 
记录一下状态。
 
记录什么状态?
不好意思我是菜鸟能说细点吗?
不胜感激!!
 
没有你所说的问题呀,下面是我试的源代码;
新建项目,两上MEMO控件(Memo1、Memo2),一个BUTTON(Button1),NMHTTP(NMHTTP1);

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
for i := 1 to Memo2.Lines.Count do
begin
NMHTTP1.Head(Memo2.Lines.Strings[i - 1]);
Memo1.Lines.Add(IntToStr(NMHTTP1.ReplyNumber));
end;
NMHTTP1.Abort;
end;
编释后,在MEMO2里输入URL,一行一个。
按BUTTON1,之后在MEMO1的就是replynumber,replynumber和MEMO2的行号是一一对应的。
 
试试先谢过
 
多人接受答案了。
 
大哥,你给分时不要这么马虎好不好,“记录一下状态。”一句话就有50分……[:(]
 
呵呵,不好意思,我是新来的,不太懂,以后一定注意.
thanks
 
顶部