delphi 编程技巧

源代码在线查看: 得到自己的ip地址 (2001年4月24日).txt

软件大小: 774 K
上传用户: zyhunicom
关键词: delphi 编程技巧
下载地址: 免注册下载 普通下载 VIP

相关代码

				得到自己的IP地址 (2001年4月24日) 
				
				网友更新  分类:Internet   作者: zhuhongqing(推荐)  推荐:zhuhongqing   阅读次数:403  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				function GetIPAddress: string;
				var
				phoste:PHostEnt;
				Buffer:array[0..100] of char;
				WSAData:TWSADATA;
				begin
				result:='';
				if WSASTartup($0101, WSAData)  0 then exit;
				GetHostName(Buffer,Sizeof(Buffer));
				phoste:=GetHostByName(buffer);
				if phoste = nil then
				begin
				result:='127.0.0.1';
				end
				else
				result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
				WSACleanup;
				end;
				
				procedure TForm1.Button1Click(Sender: TObject);
				begin
				Label1.Caption:=GETIPAddress;
				end;
				 
				 
				
							

相关资源