在Delphi中使用IP控件

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

在Delphi中使用IP控件

西安交通大学
刘明华

----- 在网络程序中，我们常常碰到需要用户输入IP地址的情况。然而Delphi并没有为我们提供可以用于输入IP串的控件，于是我们只好用Tedit控件（单行文本框）来接受用户输入的IP串。但是，使用Tedit来输入IP串并不是一个好的主意，因为处理起来非常不方便。事实上，在我们的身旁有一个专门用来输入IP串的Windows控件，该控件如图所示。IP控件会拒绝非法的IP串（在每个部分只能输入0..255之间的数字）；它让你可以轻松地获取控件中的IP串所对应的IP值（32位整数），这省去了IP串和IP值之间相互转换的麻烦；此外，你还能限制IP控件中所能输入的IP的范围。在本文中，我将向大家介绍如何在我们的Delphi程序中使用Windows的IP控件。

---- Windows中有两个非常重要的动态联结库：commctrl.dll和comctl32.dll，它们是Windows的自定义控制库（Windows Common Controls）。自定义控制库中包含了许多常用的Windows控件，如Statusbar，Coolbar，HotKey等；在Delphi中，这些控件大多数都已被包装成可视化控件了。在Microsoft推出Internet Explorer 3之后，自定义控制库中新增了一些控件，其中就包括Windows的IP控件（IP Address edit control）。

---- 初始化Windows自定义控制库

---- Windows提供了两个API函数，InitCommonControls和InitCommonControlsEx，用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系：后者是前者的增强。如果你希望在程序中使用IP控件，你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下（Pascal语法）：

---- ... ...

---- 创建IP控件

---- ... ...

---- 使用IP控件。 在程序中，我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个，这些消息及它们的含义，见下表：

---- ... ...

---- 若想要获取IP控件中IP串所对应的IP值，你应该向IP控件发送IPM_GETADDRESS消息，并且需要把一个32位整数的地址作为SendMessage的最后一个参数。

---- ... ...

---- IP控件的通知消息

---- 当IP串被改动后或者输入焦点发生了转移，IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下，我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例：

procedure Tform1.WndProc(var Msg: TMessage);var p:PNMHDR;begininherited; if Msg.Msg=WM_NOTIFYthen begin     p:=Pointer(Msg.lParam);     if p^.code=IPN_FIELDCHANGED     then begin<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
	
				
	
					   
在Delphi中使用IP控件
	  	   
在Delphi中使用IP控件
	  	   
在Delphi中使用Indy控件实现邮件群发
	  	   
在Delphi中使用Indy控件实现邮件群发
	  	   
在Delphi中使用Indy控件实现邮件群发
	  	   
如何在C++Builder中使用Delphi控件
	  	   
Delphi  在DLL中使用DevExpress控件时出错解决办法
	  	   
在delphi中动态创建控件
	  	   
在delphi中ocx控件的安装
	  	   
Delphi在Listview中加入Edit控件
	  	   
Delphi在Listview中加入Eeit控件
	  	   
Delphi在Listview中加入Eeit控件
	  	   
在Delphi中使用DLL
	  	   
在Delphi中使用DirectX
	  	   
在Delphi中使用JSon
	  	   
在Delphi中使用事务
	  	   
Delphi 中使用 VB 开发的控件
	  	   
Delphi中dxTreelist控件的使用
	     		  
	  	   
web标准实现高效开发系列之二
	  	   
Delphi 5 Enterprise版10大特点
	  	   
Application的生命周期
	  	   
CSS中的行为——expression
	  	   
PL/SQL实现Oracle数据库任务调度
	  	   
在Delphi中使用IP控件
	  	   
如何让你的SQL运行得更快
	  	   
CSS中的行为——HTC
	  	   
静下心来好好工作
	  	   
Delphi实用编程经验二
	  	   
CSS学习：关于background-position
	  	   
得出SQL语句的执行时间的方法
	  	   
用Delphi在工业控制和自动化实现多线程进行数据采集
	  	   
学习CSS制作网页菜单举一反三