发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: 将主机名解析成IP地址
发信站: 哈工大紫丁香 (2002年01月19日15:49:31 星期六), 站内信件

摘　要：描述一个将主机名解释成IP地址的函数
关键字：IP Numbers 主机
类　别：网络
中文开发在线原创作品，未经允许，严禁任何形式的转载
在use子句声明Winsock
............
function HostToIP(Name: string; var Ip: string): Boolean;
var
  wsdata : TWSAData;
  hostName : array [0..255] of char;
  hostEnt : PHostEnt;
  addr : PChar;
begin
  WSAStartup ($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;
  end
end;
................................
你可以这样试用这个功能：在form上放置EditBox、一个按钮和一个标签，在把代码加到
按钮的OnClick事件上
procedure TForm1.Button1Click(Sender: TObject);
var
IP: string;
begin
if HostToIp(Edit1.Text, IP) then Label1.Caption := IP;
end;

--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]