返回主机名和Ip地址(Delphi)

最新推荐文章于 2021-07-08 10:33:51 发布

原创最新推荐文章于 2021-07-08 10:33:51 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #buffer #function #integer #string #list

网络编程专栏收录该内容

15 篇文章

订阅专栏

本文介绍了两个实用的Delphi函数：一个用于获取计算机的主机名，另一个用于获取本机的IP地址。通过使用Windows Socket API，这两个函数能够有效地帮助开发者在应用程序中集成网络功能。

// 该函数返回主机名
function HostName : string;
var
    Buffer : array [0..63] of char;
    GInitData      : TWSADATA;
begin
    WSAStartup($101, GInitData);
    Result := '';
    GetHostName(Buffer, SizeOf(Buffer));
    Result := StrPas(Buffer);
    WSACleanup;
end;
// 该函数返回本机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
      result:=StrPas(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
    WSACleanup;
end;