这段代码是把一个网页的内容保存下来,但是当网页不存在或打不开时会抱错,请问怎样才能捕获这个异常,提示友好的错误信息?
procedure TfrWeather.Down_weather(CityName: String);
var
HTML,img,SJ:String;
Start,JS:integer ;
URL,Img_name,Weather:String;
IdHTTP1:TIdHTTP;
begin
IDHTTP1:=TIdHTTP.Create(Application);
try
URL:='http://www.nmc.gov.cn/weatherdetail/';
except
on EIdSocketError do showmessage('网页打开失败');
end;
end;
procedure TfrWeather.Down_weather(CityName: String);
var
HTML,img,SJ:String;
Start,JS:integer ;
URL,Img_name,Weather:String;
IdHTTP1:TIdHTTP;
begin
IDHTTP1:=TIdHTTP.Create(Application);
try
URL:='http://www.nmc.gov.cn/weatherdetail/';
except
on EIdSocketError do showmessage('网页打开失败');
end;
end;
解决方案 »
- 在cxgrid选中一个单元格时,如何左右两边两个单元格同时高亮
- 登录窗体无法释放,请各位帮忙看看我的代码???急急
- 如果回答Delphi串口操作的实现
- 刚学delhpi,问个简单问题。大家看看这段代码。
- 如何列举局域网内的所有SQL server服务器??(在线)
- Delphi路在何方?
- 源代码的修改,高手进来指点一下!!!
- 怎么让窗体居中?是不是DELPHI没这个属性?那么我用这条语句让窗体居中怎么出错啊?SplashForm.Left:=(Screen.Width-SplashForm.Width)/2
- 菜鸟提问,高手帮忙。怎样得到开机关机的时间和登录用户名?
- 在D5或D6中怎样安装和卸载第三方构件!
- formatfloat
- FROM启动后在屏幕上的位置(送分啊)
idhttp1.get();