DEPHI 获取本地IP

本文主要是介绍DEPHI 获取本地IP，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

下面的过程可以列举你机器的所有IP地址，当然也包括Lan和Internet，使用方法：    
  用语句Memo1.Lines.Add('本机IP地址:'+LocalIP);就可以    
  //返回本机IP地址，多个地址之间用回车换行分隔    
  function   LocalIP   :   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   :=   '';    
          GetHostName(Buffer,   SizeOf(Buffer));    
          phe   :=GetHostByName(buffer);    
          if   phe   =   nil   then   Exit;    
          pptr   :=   PaPInAddr(Phe^.h_addr_list);    
          I   :=   0;    
          while   pptr^[I]   <>   nil   do   begin    
              if   i=0    
              then   result:=StrPas(inet_ntoa(pptr^[I]^))    
              else   result:=result+','+StrPas(inet_ntoa(pptr^[I]^));    
              Inc(I);    
          end;    
          WSACleanup;    
  end;    

这篇关于DEPHI 获取本地IP的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---