首页 > 代码库 > win平台下, 检测网络是否连接最好的办法
win平台下, 检测网络是否连接最好的办法
[Delphi]检查URL是否有效的函数
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | function CheckUrl(url: string ): boolean ; var hSession, hfile, hRequest: hInternet; dwindex, dwcodelen: dword; dwcode: array [ 1..20 ] of char ; res: pchar ; begin if pos( ‘http://‘ , lowercase(url)) = 0 then url := ‘http://‘ + url; Result := false ; hSession := InternetOpen( ‘InetURL:/1.0‘ , INTERNET_OPEN_TYPE_PRECONFIG, nil , nil , 0 ); if assigned(hsession) then begin hfile := InternetOpenUrl(hsession, pchar (url), nil , 0 , INTERNET_FLAG_RELOAD, 0 ); dwIndex := 0 ; dwCodeLen := 10 ; HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex); res := pchar (@dwcode); result := (res = ‘200‘ ) or (res = ‘302‘ ); if assigned(hfile) then InternetCloseHandle(hfile); InternetCloseHandle(hsession); end ; end ; |
http://www.cnblogs.com/chonghai/p/5581402.html
http://bbs.2ccc.com/topic.asp?topicid=514550
win平台下, 检测网络是否连接最好的办法
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。