5,388
社区成员
发帖
与我相关
我的任务
分享I have a problem about function.
谁能告诉我在delphi中调用什么函数能返回计算机名和计算机IP地址,thank you!
hope !!!
hope !!!
...全文
请发表友善的回复…
发表回复
rh 2001-03-29
- 打赏
- 举报
二楼的GG is right
coldljy 2001-03-29
- 打赏
- 举报
//uses winsock
coldljy 2001-03-29
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
wVersionRequested : WORD;
wsaData : TWSAData;
begin
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
GetHostName(@s, 128);
p := GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
WSACleanup;
end;
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
wVersionRequested : WORD;
wsaData : TWSAData;
begin
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
GetHostName(@s, 128);
p := GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
WSACleanup;
end;
猛禽 2001-03-29
- 打赏
- 举报
不是一个函数，是好几个WINSOCK函数，我以前用过，可惜忘记了，你查一下WINSOCK的帮助吧。DELPHI或MSDN里都有。
