怎样检测一个网址或EMail是否有效？注：不是检查字面上拼写哦(200)

1.如我有一个URL列表（假设拼写都是正确的），怎样检查一个URL是否存在？如是否有该网页文件，或是否存在该服务器，有没有较好的方法进行检查？2.同理，如果列表是EMail地址（假设拼写都是正确的），又该如何检查呢？

根据域名取一下IP,能取到应该就是有效吧,不过Email的话可能还要检查一下用户名是否有,要用到一些smtp命令才行,

//域名转IP函数，成功了说明是有效的网址function HostToIP(Name: string; var Ip: string): Boolean;varwsdata : TWSAData;hostName : array [0..255] of char;hostEnt : PHostEnt;addr : PChar;beginWSAStartup ($0101, wsdata);try gethostname (hostName, sizeof (hostName)); StrPCopy(hostName, Name); hostEnt := gethostbyname (hostName); if Assigned (hostEnt) then if Assigned (hostEnt^.h_addr_list) then begin addr := hostEnt^.h_addr_list^; if Assigned (addr) then begin IP := Format ('%d.%d.%d.%d', [byte (addr [0]), byte (addr [1]), byte (addr [2]), byte (addr [3])]); Result := True; end else Result := False; end else Result := False else begin Result := False; end;finally WSACleanup;endend;至于URL和EMail，等别人了，我帮你顶。

怎样检查一个URL是否存在？使用http去get一下就知道是否存在了,EMail地址就比较麻烦了,我想需要发邮箱看是否成功了,可能有其他方法,看楼下的