请教:delphi中如何获得本机的ip地址和机算机名(50分)

  • 主题发起人 主题发起人 xuyingfeng
  • 开始时间 开始时间
X

xuyingfeng

Unregistered / Unconfirmed
GUEST, unregistred user!
请教:delphi中如何获得本机的ip地址和机算机名
 
procedure TForm1.Button1Click(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
OutPut:array[0..100] of char;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);

{Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(s);

{Get the IpAddress}
p2 := iNet_ntoa((PInAddr(p^.h_addr_list^))^);
StrPCopy(OutPut,'Hostname: '+Format('%s', [p^.h_Name])+#10#13+
'IPaddress: '+Format('%s',[p2])
);
WSACleanup;
MessageBox(0,OutPut,'NetInfo',mb_ok or mb_iconinformation);


end;
 
什么是TWSAData?
 
又是这个问题,老兄,我建议你用"如何获得本机的ip地址和机算机名"搜一下吧
 
FastNet中的空件大部分都有一个属性:LocalIP
比如 NMSMTP1.LocalIP
 
多人接受答案了。
 
后退
顶部