社区
Windows SDK/API
帖子详情
检查一个URL是否有效
ssyyss
2003-02-14 09:22:16
:)
...全文
76
2
打赏
收藏
检查一个URL是否有效
:)
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
xirumin
2003-02-14
打赏
举报
回复
学习
grail_
2003-02-14
打赏
举报
回复
检查一个URL是否有效
这个函数将会检查URL是否有效。唯一的先决条件就是你必须在线。
URL前可能有 http:// 前缀,却省情况也是 http:// 作前缀,函数 internetOpenUrl 对 FTP:// 和 gopher:// 前缀均提供支持。
例子中我检查返回代码是否为 '200' 和 '302'(重定位标记),你也可以按你的需要修改返回码. 仅修改 the result := 表达式 这句即可.
uses wininet;
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;
SignTool
该工具用于对ActiveX 进行签字
网络反黄组程序
源码:Delphi5.0
主要是可以让大家知道如何实现网址的过滤等
[函数]function Check
Url
(
url
: string): Boolean; //
检查
一个
URL
是否
有效
函数
//
检查
一个
URL
是否
有效
函数//可用来检测网络连接
是否
正确,InternetCheckConnection函数
检查
不准确,有些情况无法检测到,而以下Check
Url
函数则不会。//uses wininet;function Check
Url
(
url
: string): Boolean; var hSession, hfile, hRequest: hInternet; dwindex, dw
delphi中
检查
URL
是否
存在的函数
检查
一个
URL
是否
有效
函数
用JavaScript
检查
一个
URL
是否
有效
Super Detector www.qqview.com> function doTest(v
Url
) { if (v
Url
== "") { alert("指定WEB地址!"); } else { var x = new ActiveXObject("Microsoft.XMLHTTP"); x.Open("HEAD", v
Url
, false); x.send(); if (x.sta
Windows SDK/API
1,184
社区成员
22,326
社区内容
发帖
与我相关
我的任务
Windows SDK/API
Delphi Windows SDK/API
复制链接
扫一扫
分享
社区描述
Delphi Windows SDK/API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章