DELPHI 获取本地IP地址源码

本文整理自网络，侵删。

 
uses WinSock;
 
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
    try
        WSAStartup($101,   GInitData);
        Result := '';
        GetHostName(Buffer,SizeOf(Buffer));
        phe := GetHostByName(buffer);
        if phe <> nil Then
        begin
            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;
        end;
    finally
        WSACleanup;
    end;
end;

――――――――――――――――

原文链接：https://blog.csdn.net/xxkku521/article/details/11609499
 

相关阅读 >>

Delphi 获取闪盘列表

Delphi判断程序是否无响应

Delphi 两个非常有用的进程函数

Delphi 抓图后打印这张图片,弹出打印属性框

Delphi idhttp下载带清理网络缓存

Delphi 如何比较两个二维数组是否相等

Delphi tidhttpserver开发http服务端外网无法访问

Delphi 生成xml 方法 与 Delphi txt文件操作

Delphi判断当前用户是否为管理员

Delphi unigui日志的控制

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DELPHI 获取本地IP地址源码