如何取另一个机器的计算机名？

Question

做一个三层架构的MIS系统。
如何在客户端取得服务器端机器的计算机名称？程序是通过socketconnection来连接的。
在执行客户端程序时，要通过程序启动应用服务器。
现在想把服务器端机器的计算机名称动态的赋值给客户端socketconnection的Host属性。我想通过配置文件来完成，可是不行哟。请教各位。帮帮忙/急着用

Answer 1

给你一个从IP得到计算机名的例子
如何取得局域网内的计算机名？    
  Function GetNameByIP(MIP:string; var Name:string):boolean; 
varPHt:PHostEnt;WSData: TWSAData;i:Word;j:integer;k:u_long;beginresult:=false;i:=MAKEWORD(1,1);if WSAStartup(i,WSData)<>0 then exit;k:=inet_addr(PChar(MIP));PHt:=gethostbyaddr(@k,4,PF_INET);if PHt=nil then beginj:=WSAGetLastError;Name:='Error:'+inttostr(j-WSABASEERR);end else beginName:=PHt.h_name;result:=true;end;WSACleanup;end;