本文整理自网络,侵删。
检查输入的IP地址串是否合法
uses WinSock;
function IsLegalIP(IP: String): Boolean;
begin
if(Longword(inet_addr(pchar(IP)))=INADDR_NONE) then Result := false
else Result := true;
end;
相关阅读 >>
Delphi中url的编码与解码,即urlencode的使用
Delphi f1026 file not found: ''quickrpt.dcu''解决方法
Delphi: ttreeview 中禁止双击事件展开或关闭节点
更多相关阅读请进入《Delphi》频道 >>