DELPHI 获取本地IP地址源码（Tool）

最新推荐文章于 2023-10-27 13:46:02 发布

菜鸟营的战斗机

最新推荐文章于 2023-10-27 13:46:02 发布

阅读量1.6k

点赞数

分类专栏： DELPHI

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

版权

DELPHI 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

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;

从写的程序截取获取IP地址的方法、方便以后有需要用到。