＋设为首页 ＋添加到收藏夹
我的目的是测试网络的连通情况。定义了5个要测试的机器的连接串放在一个INI文件中，隔一定的时间用下面的代码：
For i:=0 to 4 do
begin
title:=linkstr+inttostr(i);
linkstring:=readini(title);//readini()是一个函数，读出连接串。
ADOConnection1.connectionstring:=LInkstring;
try
ADOConnection1.open;
except
Logcontent:=datetimetostr(now())+: 第+inttostr(i+1)+服务器无法连;
writeLog(Logcontent); //writeLog()是另外的一个函数
continue;
end;
end;
问题是：当我把LInkstring设置为空的时间，上面的程序并没有象我设计的那样去写日志文件，而是直接去进行下一个循环了。
这是怎么回事？？？
建议在ADOConnection1.connectionstring:=LInkstring;前面加上
ADOConnection1.Close;
—————————————————————————————————
MaximStr := 宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。;
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := 假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉;
I.Desire := 加不加分随你;
—————————————————————————————————
...
ADOConnection1.connectionstring:=LInkstring;
showmessage(ADOConnection1.connectionstring);
try
ADOConnection1.open;
if AdoConnection1.connected then
showmessage(connected:+IntToStr(i));
except
.....
建议你这样测一下.
