delphi 获取本地IP地址的几种方法

电脑无法运转时，我们需要别人的帮忙的话，那就需要知道自己电脑的IP地址是什么。但是很多人不知道该从电脑哪里找到IP地址。
电脑ip地址查询就看下面2种方法，让你轻松就能Get到技巧！
操作环境：
演示机型：华为MateBook
系统版本：Windows 10
IP地址查询方法一：在设置中查看
使用电脑这么久，你知道如何查电脑的ip地址查询？
我们可以通过电脑的设置来查看。具体操作步骤如下：
步骤1：
可以在电脑【开始菜单】中点击【设置】，从而进入Windows设置页面。这里还有一个更快捷的方法，就是按【Win+i】来直接打开。设置页面打开后，点击【网络和internet】；
步骤2：
此后，点击弹出窗口左侧的【WLAN】，选择【硬件属性】；
步骤3：
你就可以在页面中找到【iPv4地址】，这个就代表你电脑的IP地址。
IP地址查询方法二：在浏览器中查看
想要更直接的方式，本机当前IP地址还可以通过浏览器来搜索。具体操作步骤如下：
在任意浏览器页面，输入【IP】字样并搜索，就可以在里面看到电脑的IP地址。
IP地址查询方法三：在运行程序中查看
除了通过设置和浏览器来查询IP地址，win10电脑ip地址查询还可以怎么看？
我们可以通过运行程序来查看。具体操作步骤如下：
步骤1：
在电脑键盘上同时按下【Win+R】，在弹出的窗口输入【cmd】并点击【Enter】就可以打开管理员窗口。在图中，输入内容【ipconfig/all】，再按下【Enter】键；
步骤2：
你就可以在里面看到IP地址了。
以上就是IP地址查看的三种方法。
我们可以再简单回顾一下：一、通过设置来查询；二、使用任意浏览器来搜索；三、通过运行程序来打开。
电脑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;

1、通过注册表获取或修改Ip
想到Windows会把系统网卡相关信息存入注册表，肯定可通过注册表读取具体ip信息。大致思路是找HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards ，由NetworkCards得分支表示各个网卡的信息通过ServiceName到 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces 下找到对应的网卡配置详细信息，通过对注册表的read与write实现读取或修改ip地址等信息。
2、通过解析批处理命令结果获取
在cmd命令行输入ipconfig可以显示出当前电脑ip地址，可以考虑先执执行命令"Ipconfig /all >Ips.txt"，然后解析Ips.txt文件得到本机的Ip信息，此方法较繁杂。
3、通过delphi控件获取Ip
找到fastnet 下的 Tpowersock控件，利用 该控件localip属性返回 本机（主要指局域网） ip地址 。 放一个控件在窗体上可得到本机IP，方便简单。
4、通过WinSock函数获取Ip
此方法在程序中常用，一般函数如下：
//多网卡 将IP地址写入到列表，求本机IP的话返回IP列表中的第一个即可，该函数要引用 WinSock
function GetLocalIpList(var IpList:TStringList):Integer;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
HostName: array [0..MAX_PATH] of char;
NameLen: Integer;
WSData: TWSAData;
lpHostEnt: PHostEnt;
I: Integer;
pptr: PaPInAddr;
begin
Result := 0;
if WSAStartup(MakeWord(2,0), WSData) <> 0 then Exit;
try
NameLen := sizeof(HostName);
fillchar(HostName, NameLen, 0);
NameLen := GetHostName(HostName, NameLen);
if NameLen = SOCKET_ERROR then Exit;
lpHostEnt := GetHostByName(HostName);
if lpHostEnt = Nil then Exit;
I := 0;
pPtr := PaPInAddr(lpHostEnt^.h_addr_list);
IpList.Clear;
while pPtr^[I] <> nil do
begin
IpList.ADD( inet_ntoa(pptr^[I]^));
Inc(I);
end;
Result := IpList.Count;
finally
WSACleanup;
end;
end;