📄 100603_05.htm

📁 对于学习很有帮助
💻 HTM
字号:
<html>

<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
在Delphi中使用IP控件
</title>
<!--***********-->
</head>

<body bgcolor="#FFFFFF" >














<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
在Delphi中使用IP控件
</h2></font>
<h3>
西安交通大学
<br>刘明华
</h3>
</center>
<p><font color="#ffffff">----</font>

[本文为节略，全文可<a href="100603-05.zip">下载</a> Zip 28KB]
<p><font color="#ffffff">----</font>

在网络程序中，我们常常碰到需要用户输入IP地址的情况。然而Delphi并没有为我们提供可以用于输入IP串的控件，于是我们只好用Tedit控件（单行文本框）来接受用户输入的IP串。但是，使用Tedit来输入IP串并不是一个好的主意，因为处理起来非常不方便。事实上，在我们的身旁有一个专门用来输入IP串的Windows控件，该控件如图所示。IP控件会拒绝非法的IP串（在每个部分只能输入0..255之间的数字）；它让你可以轻松地获取控件中的IP串所对应的IP值（32位整数），这省去了IP串和IP值之间相互转换的麻烦；此外，你还能限制IP控件中所能输入的IP的范围。在本文中，我将向大家介绍如何在我们的Delphi程序中使用Windows的IP控件。
<p><font color="#ffffff">----</font>
Windows中有两个非常重要的动态联结库：commctrl.dll和comctl32.dll，它们是Windows的自定义控制库（Windows Common Controls）。自定义控制库中包含了许多常用的Windows控件，如Statusbar，Coolbar，HotKey等；在Delphi中，这些控件大多数都已被包装成可视化控件了。在Microsoft推出Internet Explorer 3之后，自定义控制库中新增了一些控件，其中就包括Windows的IP控件（IP Address edit control）。
<p><font color="#ffffff">----</font>
<b>初始化Windows自定义控制库</b>
<p><font color="#ffffff">----</font>
Windows提供了两个API函数，InitCommonControls和InitCommonControlsEx，用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系：后者是前者的增强。如果你希望在程序中使用IP控件，你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下（Pascal语法）：
<p><font color="#ffffff">----</font>
... ...
<p><font color="#ffffff">----</font>
<b>创建IP控件</b>
<p><font color="#ffffff">----</font>
... ...
<p><font color="#ffffff">----</font>
使用IP控件。  在程序中，我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个，这些消息及它们的含义，见下表：
<p><font color="#ffffff">----</font>
... ...
<p><font color="#ffffff">----</font>
 若想要获取IP控件中IP串所对应的IP值，你应该向IP控件发送IPM_GETADDRESS消息，并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
<p><font color="#ffffff">----</font>
... ...
<p><font color="#ffffff">----</font>
<b>IP控件的通知消息</b>
<p><font color="#ffffff">----</font>
当IP串被改动后或者输入焦点发生了转移，IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下，我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例：
<pre>
procedure Tform1.WndProc(var Msg: TMessage);
var p:PNMHDR;
begin
inherited; 

if Msg.Msg=WM_NOTIFY
then begin
     p:=Pointer(Msg.lParam);
     if p^.code=IPN_FIELDCHANGED
     then begin
	{…
	处理IP控件的IPN_FIELDCHANGED通知消息
	…}
     end;

end;
end;
</pre>

 



<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small> 
<br>
</p>
</body>
</html>
💿 文件大小 2022 K
👤 上传用户 siclj
📂 所属分类 Delphi/CppBuilder
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -