得到本机机器名、IP地址及其类别

thaoqi

于 2005-09-26 21:00:00 发布

阅读量813

点赞数

分类专栏： Delphi 技术文档文章标签： buffer integer string

Delphi 技术文档专栏收录该内容

1 篇文章

订阅专栏

这段代码主要实现了获取主机名和IP地址的功能。首先对WS2_32.DLL进行初始化，若失败则终止程序。接着尝试获取主机名，若失败也终止。然后根据主机名获取IP地址，若IP为空则终止，否则将主机名和IP地址显示在相应编辑框中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
Ip:string;
Ipstr:string;
buffer:array[1..32] of char;
i:integer;
WSData:TWSAData;
Host:PHostEnt;
begin
if WSAstartup(2,WSData)<>0 then //为程序使用WS2_32.DLL初始化
    begin
      showmessage('WS2_32.DLL初始化失败!');
      halt;
    end;

try
    if gethostname(@buffer[1],32)<>0 then
      begin
        showmessage('没有得到主机名！');
        halt;
      end;
except
    showmessage('没有成功返回主机名');
    halt;
end;

Host:=gethostbyname(@buffer[1]);

if Host=nil then
   begin
    showmessage('IP地址为空！');
    halt;
   end
    else
      begin
        edit2.text:=host.h_name;
        edit3.text:=chr(host.h_addrtype+64);
        for i:=1 to 4 do
          begin
           Ip:=inttostr(Ord(Host.h_addr^[i-1]));
           showmessage('分段Ip地址为:'+Ip);
           Ipstr:=Ipstr+Ip;
           if i<4 then
             Ipstr:=Ipstr+'.'
             else
               edit1.text:=Ipstr;
          end;
      end;
end;