5,392
社区成员
发帖
与我相关
我的任务
分享判断问题？（脑充血等待中）
使用ADSI对IIS进行编程
var
WebSite,WebServer,VDir: Variant;
WebNumber:integer;
begin
WebNumber:=1;
while WebNumber<100 do
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebSite := WebSite.GetObject('IIsWebServer',WebNumber);
//这里加语句
WebNumber:=WebNumber+1;
end;
end;
如果为WebNumber的站点不存在，就会返回一个错误信息EOleException with message '系统找不到指定路径。'。
请问我如何能得到返回的错误值，并根据错误值做相应的处理。
var
WebSite,WebServer,VDir: Variant;
WebNumber:integer;
begin
WebNumber:=1;
while WebNumber<100 do
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebSite := WebSite.GetObject('IIsWebServer',WebNumber);
//这里加语句
WebNumber:=WebNumber+1;
end;
end;
如果为WebNumber的站点不存在，就会返回一个错误信息EOleException with message '系统找不到指定路径。'。
请问我如何能得到返回的错误值，并根据错误值做相应的处理。
...全文
请发表友善的回复…
发表回复
FSU 2003-11-10
- 打赏
- 举报
Try..except...
vcshcn 2003-11-10
- 打赏
- 举报
try catch
47522341 2003-11-10
- 打赏
- 举报
try
//.....
except
on EZeroDivide do begin end;
on .. do begin end;
...
end;
//.....
except
on EZeroDivide do begin end;
on .. do begin end;
...
end;
KEIGOliye 2003-11-10
- 打赏
- 举报
我发了个类似的帖子的http://expert.csdn.net/Expert/topic/2417/2417790.xml?temp=.5376245
KEIGOliye 2003-11-10
- 打赏
- 举报
我用
try
except
on e:EOleException do
end;
试过~不过on-do下好象只能接一条语句
try
except
on e:EOleException do
end;
试过~不过on-do下好象只能接一条语句
