怎么判断一个字符串为合法网址(url)?????

Question

怎么判断一个字符串为合法网址(url)?????
下面是js的正则判断，delphi该怎么做？function isURL (url) {var urlPattern = /^(?:(?:ftp|https?):\/\/)?(?:[a-z0-9](?:[-a-z0-9]*[a-z0-9])?\.)+(?:com|edu|biz|org|gov|int|info|mil|net|name|museum|coop|aero|[a-z][a-z])\b(?:\d+)?(?:\/[^;"'<>()\[\]{}\s\x7f-\xff]*(?:[.,?]+[^;"'<>()\[\]{}\s\x7f-\xff]+)*)?/;
return urlPattern.test(url.toLowerCase());
}

Answer 1

也用正则表达式试试
http://www.delphifans.com/SoftView/SoftView_500.html

Answer 2

有那位能够把上面的js正则转换为delphi的？？？？谢谢

Answer 3

API
unit UrlMon;
function IsValidURL(pBC: IBindCtx; szURL: LPCWSTR; dwReserved: DWORD): HResult; stdcall;

Answer 4

API
unit UrlMon;
function IsValidURL(pBC: IBindCtx; szURL: LPCWSTR; dwReserved: DWORD): HResult; stdcall;
怎么使用?

Answer 5

我这样使用的,但是只要是http:开头他判断的都是正确url
IsValidURL(nil,PWideChar(WideString(edturl.Text)),0) <> S_OK