delphi 编程技巧

				通过机器名得到IP地址 (2001年5月9日) 
				
				网友更新  分类:Internet   作者: tommcat(推荐)  推荐:tommcat   阅读次数:254  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				通过机器名得到IP地址
				
				function procedure TForm1.nametoip(name:string):string;
				var
				WSAData: TWSAData;
				HostEnt: PHostEnt;
				begin
				result:='';
				WSAStartup(2, WSAData);
				HostEnt := gethostbyname(PChar(name));
				if HostEnt  nil then
				begin
				with HostEnt^ do
				result:= Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
				end;
				WSACleanup;
				end;