知道局域网某机器名，如何得到它的ip，有这样的api吗

如题 问题点数：20、回复次数：4Top

1 楼bxh2dai（希望明天会有些改变）回复于 2004-09-02 14:45:43 得分 5

你看看这段代码可以不~！我可以得到  
  这是我通过Ip返回机器名的代码，你改一下，应该就可以了~！  
  function   GetNameByIPAddr(IPAddr   :   String;var   MacName:String):   Boolean;  
  var  
      SockAddrIn:   TSockAddrIn;  
      HostEnt:   PHostEnt;  
      WSAData:   TWSAData;  
  begin  
      Result   :=   False;  
      if   IpAddr   =   ''   then   exit;  
      try  
          WSAStartup(2,   WSAData);  
          SockAddrIn.sin_addr.s_addr   :=   inet_addr(PChar(IPAddr));  
          HostEnt   :=   gethostbyaddr(@SockAddrIn.sin_addr.S_addr,   4,   AF_INET);  
          if   HostEnt   <>   nil   then  
              MacName   :=   StrPas(Hostent^.h_name);  
          Result   :=   True;  
      finally  
          WSACleanup;  
      end;  
  end;Top

2 楼insert2003（高级打字员）回复于 2004-09-02 15:20:41 得分 10

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   winsock,   StdCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          procedure   Button1Click(Sender:   TObject);  
      private  
          {   Private   declarations   }  
          function   GetHostIP(HostName:   String):   String;  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  function   Tform1.GetHostIP(HostName:   String):   String;  
  var  
        buf:pChar;  
        iWsaRet:Integer;  
        Data:WSAData;  
        hostent:PHostEnt;  
  begin  
        Result   :=   '';  
        iWsaRet   :=   WSAStartup($101,Data);  
        if   iWsaRet<>0   then  
        begin  
              ShowMessage('Socket   initialize   error!');  
              Exit;  
        end;  
        buf   :=   Allocmem(60);  
        strcopy(buf,PChar(HostName));  
        if   Trim(buf)=''   then  
              gethostname(buf,60);  
        hostent   :=   gethostbyname(buf);  
        Freemem(buf,60);  
        if   hostent=nil   then  
              Exit;  
        Result     :=   inet_ntoa(pinAddr(hostent^.h_addr^)^);  
        WSACleanup();  
  end;  
   
   
  end.  
   
  如果hostname为空，则取本机的IP  
  要获取远程机器的IP  
  就输入远程机器的名字Top

3 楼ltolll（其实我不是打字员）回复于 2004-09-02 17:04:46 得分 5

function   TForm1.GetIPByName(AName:   String):   string;  
  type  
      TaPInAddr   =   array   [0..10]   of   PInAddr;  
      PaPInAddr   =   ^TaPInAddr;  
  var  
      phe:   PHostEnt;  
      pptr:   PaPInAddr;  
      Buffer:   array   [0..63]   of   char;  
      I:   Integer;  
      GInitData:   TWSADATA;  
  begin  
      WSAStartup($101,   GInitData);  
      Result   :=   '';  
      StrPCopy(Buffer,   AName);  
      phe   :=   GetHostByName(buffer);  
      if   phe   =   nil   then   Exit;  
      pptr   :=   PaPInAddr(Phe^.h_addr_list);  
      I   :=   0;  
      while   pptr^[I]   <>   nil   do  
      begin  
          Result:=StrPas(inet_ntoa(pptr^[I]^));  
          Inc(I);  
      end;  
      WSACleanup;  
  end;Top

4 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2004-09-02 17:26:25 得分 0

事实上就是DNS／WINS查询：）Top

相关问题

• ip
• hostent
• iwsaret
• 机器
• phe
• papinaddr
• pptr
• sockaddrin
• phostent
• tform

• 帖主：hswl
• bxh2dai
• insert2003
• ltolll

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载