怎样获得本机的IP地址

Question

哎，我主页的那个包裹里面至少有3个关于取得IP的文章。
下载了就知道了。在网络编程里面。
http://kingron.myetang.com --〉Delphi。
而且这个问题讨论了N次了。你在CSDN搜索也可以。

Answer 1

function tform1.localip(name : string) : string;
type
  tapinaddr=array[0..10] of pinaddr;
  papinaddr=^tapinaddr;
var
  phe : phostent;
  pptr : papinaddr;
  i : integer;
begin
  phe:=gethostbyname(pchar(name));//name为网络上的计算机名
  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;
end;