通过IP远程获取其他工作站主机名
//我通过以下代码实现通过IP远程获取其他工作站主机名功能
Function TF_Main.IPAd(IPAddr:string):String;
Var
SockAddrin:TSockAddrin;
HostEnt:PHostEnt;
WSADate:TWSAData;
Begin
WSAStartup($0101,WSAData);
SockAddrin.sin_addr.s_addr:=iNet_addr(PChar(IPAddr));
HostEnt:=gethostbyaddr(@SockAddrin.sin_addr.S_addr,4,AF_INEt);
if HostEnt<>nil then
result:=StrPas(Hostent^.h_name)
Else
Result:='';
end;

procedure TF_Main.SpeedButton5Click(Sender: TObject);
begin
Label8.Caption:='该IP地址的主机名为：'+IPAd(Edit2.Text);
end;
//但编译时系统提示错误：'('expect but ')'found

[解决办法]
局域网的应该没有问题，但是英特网的就有点问题了
不过你可以通过三层获取远程电脑名称后再返回给
服务器即可

[解决办法]
这个编译错误意思是：括号错了，应该是 '('但用了 ')'
但错误不在你这些代码里面

双击此错误提示，会定位到错误的位置，自己仔细看看