"检测远程URL是否存在的三种方法"另解 ( 积分: 100 )

在网络上看到有“本文用3种方法检测远程URL是否存在。”的方法，请问用delphi如何实现，请教各位高手。。。。
private void Page_Load(object sender, System.EventArgs e)
{

string url1 = "http://dotnet.aspx.cc/";
string url2 = "http://dotnet.aspx.cc/Images/logo.gif";
Response.Write("<li>方法1："
Response.Write(url1 + " 存在：" + UrlExistsUsingHttpWebRequest(url1).ToString());
Response.Write("<li>方法2："
Response.Write(url1 + " 存在：" + UrlExistsUsingSockets(url1).ToString());
Response.Write("<li>方法3："
Response.Write(url1 + " 存在：" + UrlExistsUsingXmlHttp(url1).ToString());

Response.Write("<li>方法1："
Response.Write(url2 + " 存在：" + UrlExistsUsingHttpWebRequest(url2).ToString());
Response.Write("<li>方法3："
Response.Write(url2 + " 存在：" + UrlExistsUsingXmlHttp(url2).ToString());
}
private bool UrlExistsUsingHttpWebRequest(string url)
{
try
{
System.Net.HttpWebRequest myRequest =(System.Net.HttpWebRequest)System.Net.WebRequest.Create(url);
myRequest.Method = "HEAD";
myRequest.Timeout = 100;
System.Net.HttpWebResponse res = (System.Net.HttpWebResponse)myRequest.GetResponse();
return (res.StatusCode == System.Net.HttpStatusCode.OK);
}
catch(System.Net.WebException we)
{
System.Diagnostics.Trace.Write(we.Message);
return false;
}
}
private bool UrlExistsUsingXmlHttp(string url)
{
//注意：此方法需要引用Msxml2.dll
MSXML2.XMLHTTP _xmlhttp = new MSXML2.XMLHTTPClass();
_xmlhttp.open("HEAD",url,false,null,null);
_xmlhttp.send(""
return (_xmlhttp.status == 200 );
}

private bool UrlExistsUsingSockets(string url)
{
if(url.StartsWith("http://&quot) url = url.Remove(0,"http://".Length);
try
{
System.Net.IPHostEntry ipHost = System.Net.Dns.Resolve(url);
return true;
}
catch (System.Net.Sockets.SocketException se)
{
System.Diagnostics.Trace.Write(se.Message);
return false;
}
}

在网络上看到有“本文用3种方法检测远程URL是否存在。”的方法，请问用delphi如何实现，请教各位高手。。。。
private void Page_Load(object sender, System.EventArgs e)
{

string url1 = "http://dotnet.aspx.cc/";
string url2 = "http://dotnet.aspx.cc/Images/logo.gif";
Response.Write("<li>方法1："
Response.Write(url1 + " 存在：" + UrlExistsUsingHttpWebRequest(url1).ToString());
Response.Write("<li>方法2："
Response.Write(url1 + " 存在：" + UrlExistsUsingSockets(url1).ToString());
Response.Write("<li>方法3："
Response.Write(url1 + " 存在：" + UrlExistsUsingXmlHttp(url1).ToString());

Response.Write("<li>方法1："
Response.Write(url2 + " 存在：" + UrlExistsUsingHttpWebRequest(url2).ToString());
Response.Write("<li>方法3："
Response.Write(url2 + " 存在：" + UrlExistsUsingXmlHttp(url2).ToString());
}
private bool UrlExistsUsingHttpWebRequest(string url)
{
try
{
System.Net.HttpWebRequest myRequest =(System.Net.HttpWebRequest)System.Net.WebRequest.Create(url);
myRequest.Method = "HEAD";
myRequest.Timeout = 100;
System.Net.HttpWebResponse res = (System.Net.HttpWebResponse)myRequest.GetResponse();
return (res.StatusCode == System.Net.HttpStatusCode.OK);
}
catch(System.Net.WebException we)
{
System.Diagnostics.Trace.Write(we.Message);
return false;
}
}
private bool UrlExistsUsingXmlHttp(string url)
{
//注意：此方法需要引用Msxml2.dll
MSXML2.XMLHTTP _xmlhttp = new MSXML2.XMLHTTPClass();
_xmlhttp.open("HEAD",url,false,null,null);
_xmlhttp.send(""
return (_xmlhttp.status == 200 );
}

private bool UrlExistsUsingSockets(string url)
{
if(url.StartsWith("http://&quot) url = url.Remove(0,"http://".Length);
try
{
System.Net.IPHostEntry ipHost = System.Net.Dns.Resolve(url);
return true;
}
catch (System.Net.Sockets.SocketException se)
{
System.Diagnostics.Trace.Write(se.Message);
return false;
}
}

自己顶一下了

替你顶一下，不要忘记给份

拜托仁兄用Winsock API可以吗VCL不喜欢的说

用idhttp区连这个url，可以连就存在，不可以连就不存在

什么方法都可以最好是用api了，你知道吗

检测远程URL是否存在有效

用idhttp扑捉错误就可以了
var
myParams:tStringList;
begin
myParams:=tStringList.Create;
myParams.Clear;
myParams.Add('aa=aa');
try
IdHTTP1.HTTPOptions:=[];
memo1.Text := IdHttp1.Post(Edit1.Text,myParams);//, ret);
ShowMessage('YEs');
except
ShowMessage('NO');
end;
end;
但是不知道还有没有更好的方法

如果用post测试这个地址是否可以连接和存在就提示 http://joke.lady.tom.com/1000/1013/200566-17822.html

错误提示：
http:/1.0 405 method not allowed
实际上是存在并且可以打开的

OK