LookupHostAddr（delphi6）的Bug，无法获取ip地址

如果电脑名称是以数字开头的，那么在LookupHostAddr函数中会直接将该名称作为ip地址进行处理

if hn[1] in ['0'..'9'] then begin if inet_addr(pchar(hn)) <> INADDR_NONE then Result := hn; end

而传入的并不是ip,因此inet_addr转换的结果肯定是INADDR_NONE。返回为空。

解决方法：

自己判断传入是电脑名称还是ip分别使用inet_addr与gethostbyname获取ip