几个函数不懂 ( 积分: 50 )

var<br> &nbsp;HostName: array[0..10] of char;<br> &nbsp;PHE: PHostEnt;<br>　I: Integer;<br>begin<br> &nbsp;I := GetHostName(HostName, Sizeof(HostName));<br> &nbsp;PHE := GetHostByName(HostName);<br>end;<br><br>为什么I的值为-1 &nbsp; &nbsp;为什么HostName的值为? &nbsp; &nbsp;<br><br>PHE的值是什么，我应该怎样得到他的值？

var<br> &nbsp;HostName: array[0..10] of char;<br> &nbsp;PHE: PHostEnt;<br>　I: Integer;<br>begin<br> &nbsp;I := GetHostName(HostName, Sizeof(HostName));<br> &nbsp;PHE := GetHostByName(HostName);<br>end;<br><br>为什么I的值为-1 &nbsp; &nbsp;为什么HostName的值为? &nbsp; &nbsp;<br><br>PHE的值是什么，我应该怎样得到他的值？

PHE: PHostEnt;是个指针.应该先分配内存.<br>

uses {...,}Winsock;<br><br>procedure ShowHostName;<br>var<br> &nbsp;wVersionRequested : WORD;<br> &nbsp;wsaData : TWSAData;<br> &nbsp;p : PHostEnt;<br> &nbsp;s : array[0..128] of char;<br> &nbsp;p2 : pchar;<br>begin<br>{启动 WinSock}<br> &nbsp;wVersionRequested := MAKEWORD(1, 1);<br> &nbsp;WSAStartup(wVersionRequested, wsaData);<br><br>{计算机名}<br> &nbsp;GetHostName(@s, 128);<br> &nbsp;p := GetHostByName(@s);<br> &nbsp;ShowMessage(Format('Computer name is ''%s''.', [p^.h_Name]));<br><br>{IP地址}<br> &nbsp;p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);<br> &nbsp;ShowMessage(Format('IP address is %s.',[p2]));<br><br>WSACleanup;<br>end;<br>