| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1417 人关注过本帖
标题:获得本机IP地址
只看楼主 加入收藏
yitong0834
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2004-5-14
收藏
 问题点数:0 回复次数:4 
获得本机IP地址

uses winsock;

function GetLocalIP(var LocalIp: string): Boolean; var HostEnt: PHostEnt; Ip: string; addr: pchar; Buffer: array [0..63] of char; GInitData: TWSADATA; begin Result := False; try WSAStartup(2, GInitData); GetHostName(Buffer, SizeOf(Buffer)); HostEnt := GetHostByName(buffer); if HostEnt = nil then Exit; addr := HostEnt^.h_addr_list^; ip := Format('%d.%d.%d.%d', [byte(addr [0]), byte (addr [1]), byte (addr [2]), byte (addr [3])]); LocalIp := Ip; Result := True; finally WSACleanup; end; end;

var strIP:string; begin if GetLocalIP(strIP) then Caption:=strip; end;

搜索更多相关主题的帖子: Buffer addr HostEnt 地址 var 
2004-05-18 09:00
好学
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
帖 子:622
专家分:318
注 册:2004-5-4
收藏
得分:0 

论坛首页就显示本机IP和浏览器,操作系统情况

2004-05-18 10:46
gxc
Rank: 1
等 级:新手上路
帖 子:116
专家分:0
注 册:2004-5-13
收藏
得分:0 
up

做就做到最好!
2004-05-18 10:49
yitong0834
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2004-5-14
收藏
得分:0 

yes

2004-05-28 17:59
我爱随风
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-2-28
收藏
得分:0 
这些都是什么,怎么用?

www.
2006-03-01 15:22
快速回复:获得本机IP地址
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016177 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved