在Delphi里面，如何才能知道和一个IP地址之间是通畅的
[问题点数：50分，结帖人jkjj20]
在Delphi里面，如何才能知道和一个IP地址之间是通畅的
[问题点数：50分，结帖人jkjj20]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2007年10月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。天极传媒：天极网全国分站
您现在的位置： &&
Delphi 7中快速获取本机IP地址
电脑报 12:20
　　朋友们在用Delphi编程序的时候，常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中，可以通过编写一段代码或函数实现这一功能。但有了Delphi 7，这个工作可以更简化了。利用控件只需一句代码，就可以非常方便地实现这一功能。
　　新建一Project1，在form1中添加控件statusbar1(Win32页)和控件IdIPWatch1(Indy Misc页)。接着设置好控件属性：在statusbar1的panels中添加0-TStatusPanel和1-TStatusPanel两项；IdIPWatch1的HistoryEnabled的属性设为False。
　　编写代码：在TForm1.FormCreate(Sender: TObject)中加入以下代码：
statusbar1.Panels[1].Text:=IdIPWatch1.LocalIP;
　　OK！按下F9功能键，运行程序，看一下窗口下边状态栏中是不是已经显示了本机的IP地址了？
　　提示：若IdIPWatch1的HistoryEnabled的属性设为True，则会在程序退出时，自动生成一个文件(文件名为HistoryFileName属性设定的值)，记录当前的IP地址。
（作者：青孩子责任编辑：方舟）
欢迎在新浪微博上关注我们
笔记本手机数码家电天极传媒：天极网全国分站
您现在的位置： &&
用Delphi程序获取拨号连接的动态IP地址
青竹软件 00:00
p>　　在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL，我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态IP地址了。在Delphi帮助文件中，有相关RAS函数的详细说明。
一、先解释一些要用到的数据常量和数据结构。 const
RAS_MaxDeviceType = 16;//设备类型名称长度
RAS_MaxEntryName = 256;//连接名称最大长度
RAS_MaxDeviceName = 128;//设备名称最大长度
RAS_MaxIpAddress = 15;//IP地址的最大长度
RASP_PppIp = $8021;//拨号连接的协议类型，该数值表示连接type
HRASCONN = DWORD;//拨号连接句柄的类型
RASCONN = record//活动的拨号连接的句柄和设置信息
dwSize : DWORD;//该结构所占的大小(Bytes),
一般设置为SizeOf(RASCONN)
hrasconn : HRASCONN;//活动连接的句柄
szEntryName : array[0..RAS_MaxEntryName]
//活动连接的名称
szDeviceType : array[0..RAS_MaxDeviceType]
//活动连接的所用的设备类型
szDeviceName : array[0..RAS_MaxDeviceName]
//活动连接的所用的设备名称
TRASPPPIP = record//活动的拨号连接的动态IP地址信息
dwSize : DWORD;//该结构所占内存的大小(Bytes),
一般设置为SizeOf(TRASPPPIP)
dwError : DWORD;//错误类型标识符
szIpAddress : array[ 0..RAS_MaxIpAddress ]
//活动的拨号连接的IP地址
二、接着要解释要用到的两个RAS函数。 //获取所有活动的拨号连接的信息（连接句柄和设置信息）
function RasEnumConnections( var lprasconn : RASCONN ;
//接收活动连接的缓冲区的指针
var lpcb: DWORD;//缓冲区大小
var lpcConnections : DWORD//实际的活动连接数
) : DWORD;
function RasEnumCexternal Rasapi32.dll
name RasEnumConnectionsA;
//获取指定活动的拨号连接的动态IP信息
function RasGetProjectionInfo(
hrasconn : HRasC//指定活动连接的句柄
rasprojection : DWORD;//RAS连接类型
var lpprojection : TRASPPPIP;//接收动态IP信息的缓冲区
var lpcb : DWord//接收缓冲区的大小
) : DWORD;
ction RasGetProjectionIexternal
Rasapi32.dll name RasGetProjectionInfoA;
　　这两个函数的返回值为０时表示执行成功，非０表示错误代码。
三、下面要讨论如何用上面的两个RAS函数获取拨号连接的动态IP地址
　　首先，要用函数RasEnumConnections列出已建立的活动拨号连接的信息，其中包括连接名称、连接句柄、连接设备类型和设备名称；然后根据连接句柄用函数RasGetProjectionInfo获取连接对应的一个TRASPPPIP结构，其中包括一个成员属性szIpAddress即为动态IP地址。具体请参见以下程序片段和注释信息。
procedure TForm1.Button1Click(Sender: TObject);
const
MaxConnections = 10;//假设最多有10个活动的拨号连接
var
connections : array[0..MaxConnections-1] of RASCONN;
//拨号连接数组
longSize :
intAvailabelConnections :
//活动的拨号连接的实际数目
intIndex :
strTemp :
dwResult : DWORD;
dwSize : DWORD;
RASpppIP : TRASPPPIP;
//活动的拨号连接的动态IP地址信息
begin
connections[ 0 ].dwSize := sizeof(RASCONN);
longSize := MaxConnections * connections[ 0 ].dwS
//接收活动连接的缓冲区大小
intAvailabelConnections := 0;
//获取所有活动的拨号连接的信息（连接句柄和设置信息）
dwResult := RasEnumConnections( connections[ 0 ],
longSize,intAvailabelConnections );
if 0 $#@60; $#@62; dwResult then
memo1.lines.add( 错误: + inttostr( dwResult ) )
else
begin
memo1.lines.add( 现有的活动连接有 +
IntToStr( intAvailabelConnections ) + 个);
//显示所有活动的拨号连接的信息（设置信息和动态IP地址）
for intIndex := 0 to intAvailabelConnections - 1 do
begin
//显示一个活动的拨号连接的设置信息
strTemp := 连接名称：
+ StrPAS( connections[ intIndex ].szEntryName )
+ ，设备类型：
+ StrPAS( connections[ intIndex ].szDeviceType )
+ ，设备名称：
+ StrPAS( connections[ intIndex ].szDeviceName );
memo1.lines.add( strTemp );
//显示一个活动的拨号连接的动态IP地址
dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := dwS
dwResult := RASGetProjectionInfo
( connections[ intIndex ].hRasConn,
RASP_PppIp,RasPPPIP,dwSize);//获取动态IP地址
if 0 $#@60; $#@62; dwResult then
memo1.lines.add(
错误: + inttostr( dwResult ))
else
memo1.lines.add(
动态地址: + StrPas(RASpppIP.szIPAddress));
以上程序在PWIN98+Delphi3.0下调试通过。
（作者：王发军责任编辑：）
欢迎在新浪微博上关注我们
* 网友发言均非本站立场，本站不在评论栏推荐任何网店、经销商，谨防上当受骗！
笔记本手机数码家电二次元同好交流新大陆
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
菩提本无树,明镜亦非台。本来无一物,何处惹尘埃。
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(3414)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_084069',
blogTitle:'delphi 获取MAC地址 ',
blogAbstract:'1、通过IP取MAC地址\r\nusesWinS\r\nFunction sendarp(ipaddr:temp:ulmacaddr:ulmacaddrleng:pointer) : DW StdC External \'Iphlpapi.dll\' Name \'SendARP\';\r\nprocedure TForm1.Button1Click(Sender: TObject);varmyip:mymac:array[0..5]mymaclength:r:beginmyip:=inet_addr(PChar(\'192.168.6.180\'));',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:8,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'菩提本无树,明镜亦非台。本来无一物,何处惹尘埃。',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}uses IdIPW
function GetNativeIP: S
IdIPWatch: TIdIPW
IdIPWatch := TIdIPWatch.Create(nil);
Result := IdIPWatch.LocalIP;
IdIPWatch.F
DelphiXE7下编写。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：46396次
排名：千里之外
原创：24篇
评论：15条
(1)(2)(2)(3)(1)(1)(1)(1)(1)(6)(1)(1)(1)(2)