E eryu Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-23 #1 怎样判断用户输入的网址到底有没有效？ 也就是说有没有这个网址？ 如果有这个网址，就执行某操作，如果找不到该网页就弹出错误提示框？ 请问如何判断的？谢谢！！
Z zw84611 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-23 #4 uses wininet; function IsValidURL(strTargetURL:string):boolean; begin result:=InternetCheckConnection(PChar(strTargetURL), 1, 0); end;
uses wininet; function IsValidURL(strTargetURL:string):boolean; begin result:=InternetCheckConnection(PChar(strTargetURL), 1, 0); end;
E eryu Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-23 #5 我这样写的，运行后出错，是什么原因？ if IsValidURL(UrlStr)=false then showmessage('error')
E eryu Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-23 #7 是啊，这也能看出来啊，真是高手啊！！！！ 是WIN98不支持这个函数吗？那怎么办？ 如果支持WIN98了，又不支持WIN2000或NT或XP，又怎么办？
Z zw84611 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-23 #8 不是我是高手，你看一下这个帖子： http://www.delphibbs.com/delphibbs/dispq.asp?lid=1449148 如果用这个函数，你是要先判断一下操作系统。
A Adnil Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-23 #9 uses Psock, NMHttp; var NMHTTP: TNMHTTP; begin NMHTTP:= TNMHTTP.Create(Self); try NMHTTP1.Get('http://xxxx.xxx.com'); showmessage('true'); except showmessage('false'); end; NMHTTP.free; end;
uses Psock, NMHttp; var NMHTTP: TNMHTTP; begin NMHTTP:= TNMHTTP.Create(Self); try NMHTTP1.Get('http://xxxx.xxx.com'); showmessage('true'); except showmessage('false'); end; NMHTTP.free; end;
E eryu Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-23 #10 to Adnil: 我试了一下，如果网址有效，能弹出true， 如果无效，程序还是出错！ 怎样解决呢？ 这是否又是WIN98或WIN2000的问题？
