在Delphi中使用IP控件

最新推荐文章于 2024-11-21 13:58:21 发布

原创

最新推荐文章于 2024-11-21 13:58:21 发布 · 744 阅读

标签

#delphi #windows #microsoft #pascal #api

本文介绍了在Delphi中如何初始化Windows自定义控制库，特别是如何使用InitCommonControlsEx函数来支持IP控件。内容包括创建IP控件、与其通讯的方法，如发送IPM_GETADDRESS消息获取IP值，以及处理IP控件IPN_FIELDCHANGED通知消息的示例代码。

在网络程序中，我们常常碰到需要用户输入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推出Inte.Net Explorer 3之后，自定义控制库中新增了一些控件，其中就包括Windows的IP控件（IP Address edit control）。

　　初始化Windows自定义控制库

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

　　 ... ...

　　创建IP控件

　　 ... ...

　　使用IP控件。在程序中，我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个，