找回密码
 注册
查看: 4148|回复: 0

[收藏]使用Windows系统提供的IP控件

[复制链接]
发表于 2004-2-15 13:42:14 | 显示全部楼层 |阅读模式
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。4 W- M5 ]/ b0 d; `  X
欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=5926 ~0 G3 U* z% T, f$ a0 r
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:
+ R/ q8 W$ g* _* s标题:在Delphi中使用IP控件
+ k4 r3 @4 O7 W5 _" }7 k0 Y& F% Z作者:西安交通大学9649# 刘明华
; z. ]! y, R9 p9 B; J6 p! ~+ ~7 ~' L在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。. p5 w$ D; Y4 j- Z, _$ t
如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com
" ?* F+ }5 m& g' i) Hccrun(老妖)(www.ccrun.com)  2003.10.29
3 F5 h) J+ [0 S' e/ k% [7 U  y$ h! p* c8 A8 ?* \5 X, S
在网络程序中,我们常常碰到需要用户输入IP地址的情况。然而C++ Builder并没有为我们提供可以用于输入IP串的控件,于是我们只好用TEdit控件(单行文本框)来接受用户输入的IP串。但是,使用TEdit来输入IP串并不是一个好的主意,因为处理起来非常不方便。事实上,在我们的身旁有一个专门用来输入IP串的Windows控件,就象网络链接属性中, Internet 协议 (TCP/IP) 属性中输入IP的控件。IP控件会拒绝非法的IP串(在每个部分只能输入0~255之间的数字);它让你可以轻松地获取控件中的IP串所对应的IP值(32位整数),这省去了IP串和IP值之间相互转换的麻烦;此外,你还能限制IP控件中所能输入的IP的范围。在本文中,我将向大家介绍如何在我们的C++ Builder程序中使用Windows的IP控件。  S, T" {* r+ @4 i# w

- u- A3 P; S! j9 }5 ZWindows中有两个非常重要的动态联结库:commctrl.dll和comctl32.dll,它们是Windows的自定义控制库(Windows Common Controls)。自定义控制库中包含了许多常用的Windows控件,如Statusbar,Coolbar,HotKey等;在C++ Builder中,这些控件大多数都已被包装成可视化控件了。在Microsoft推出Internet Explorer 3之后,自定义控制库中新增了一些控件,其中就包括Windows的IP控件(IP Address edit control)。
, N/ f! @+ c% H- z) {9 `( M, }
: {# F! T( I$ w; y/ I●初始化Windows自定义控制库●
% g3 q8 X- ?2 ]7 S& o5 J" |Windows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:8 P3 d$ E" d2 e

+ @* [% r* v; N! m! Stypedef struct tagINITCOMMONCONTROLSEX {
/ F% B; J" N  X8 K. u$ x. u0 D    DWORD dwSize;             // size of this structure
) s5 B2 j' g% N7 P! q    DWORD dwICC;              // flags indicating which classes to be initialized! j6 _- Y3 Z2 m2 x1 l; @0 F$ s
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;) u9 W- H3 k2 a# G1 D3 b
6 ^+ e1 C% V: \) D; e6 C
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
7 e# a2 J' a% g6 D3 D2 G  X+ r1 {+ x$ @. Y2 Q5 Y: c6 \$ ~
IP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:) n$ \2 w. ~2 E6 k0 s* P3 G2 H3 m
4 Z! v% g' [0 `0 G' J( {2 j
TInitCommonControlsEx ICC;( }$ @+ A0 w0 C. k0 x" b4 Q9 c
ICC.dwSize = sizeof(TInitCommonControlsEx);! I) S* }) G" I6 T
ICC.dwICC  = ICC_INTERNET_CLASSES;
& V3 O  Q" k# b- E5 w( Q0 j0 v& X$ _& sif(!InitCommonControlsEx(&ICC))
- Q! d" H+ G2 l1 G1 S0 Q1 W    return;  //初始化组件失败" Z1 k" `* }: l4 P

$ y- ^" y' E2 R. J●创建IP控件●( ^( G: U# ~8 d  m" ~" c
Windows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。/ _+ }5 v7 N( q# y, t5 D! Z( j7 a' o' t
! v  P. Z4 q" ~' ~0 B
HWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
8 ?6 c- b5 S( a2 W3 n9 n% p0 Q8 h1 X  g6 V8 x4 J9 i/ j
●使用IP控件●1 g% \. r. G: x8 ~+ j
在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:
0 y: ]$ w4 X$ F5 a  S# i$ T" u# V6 s2 @! ~, s0 f: n9 r) e
消息常量            消息值         作用                                      参数及返回值# A( P% T; ]/ z
IPM_CLEARADDRESS    WM_USER+100    清除IP控件中的IP串                        参数无
8 P4 z8 C1 H4 @. Q# K1 |IPM_SETADDRESS      WM_USER+101    设置IP控件的IP串                          Lparam为32位的IP值; ?$ u% v7 x& P" {: \
IPM_GETADDRESS      WM_USER+102    获取IP控件中的IP串所对应的IP值(32位整数)  Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。  
4 I+ H! Z% |. q; R" nIPM_SETRANGE        WM_USER+103    设置IP控件4个部分的其中一个的IP取值范围   Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。+ L+ G; M/ U  V( V5 u
IPM_SETFOCUS        WM_USER+104    设输入焦点                                Wparam指明哪个部分获取焦点
- e! D, ]- C: O! D* @IPM_ISBLANK         WM_USER+105    IP串是否为空                              参数无。返回值:若为空,返回非0;不为空,返回0
3 X) g2 ?# r% C4 u
0 A1 {4 e$ [% X5 B/ i( r" [' {& [★㈠清空IP串(IPM_CLEARADDRESS)★( J+ t1 s7 P# r: Q/ r
SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);1 [: P! q- R) P4 ]
3 \, j7 A) ~9 m+ O
★㈡设置IP串(IPM_SETADDRESS)★
! D  x! S# K+ `int nIP;. t; i4 M5 Y6 S
nIP=MAKEIPADDRESS(192,168,0,1); + i! {% k! N2 n( [/ R7 N* @& f
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);2 D9 u( _6 x8 a& m  k' c7 u
8 C$ V: X9 ?- R- |: a( M
此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:
* t; F+ Y' c1 Y/ e  ]+ j#define MAKEIPADDRESS(b1,b2,b3,b4)
8 j7 [/ `3 s2 Z3 m3 I" b" m4 t((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))+ S4 b9 h) G* Y

. W( A" L+ I8 ^% w' y$ R$ e8 s★㈢获取IP值(IPM_GETADDRESS)★
3 b7 |$ P$ @* E( Q+ kint nIP;
8 w4 A/ m+ u. C$ u: E: x2 ]SendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));
% ~9 U' N9 @- o$ E//nIP++;
) j8 c6 _: i: ~//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);   //将IP加1再赋给IP控件。
# |2 N$ D) i' J0 c& f/ G( t; }7 a! J& G; T! C: T
若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。' f7 v0 Q* F. {3 r$ P4 L
$ Y+ s6 u3 x+ F& U) r% S8 w
★㈣设置取值范围(IPM_SETRANGE)★
4 x  n% |$ u! b1 u+ _! lSendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);# n( H: Z$ H+ m: p- e: j
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
# c% S6 `9 k& U9 \  X9 v5 s: s. b" L1 T/ D* Z
★㈤设置输入焦点(IPM_SETFOCUS)★
0 Z. O9 U7 ^+ q% xSendMessage(hIpEdit,IPM_SETFOCUS,3,0);! E% m& `& x" |8 Y+ @2 E
//将输入焦点设在IP控件的第四部分。
1 k  R. S- W+ j1 j) x7 t" n
: k" `& e8 B3 ?0 U  d2 X0 S  C㈥判断IP串是否为空(IPM_ISBLANK)- _3 Q9 \# ?5 _& o
if(!SendMessage(hIpEdit,IPM_ISBLANK,0,0)) 4 g! n; u7 G8 l' d( i+ v
{4 g. |+ E3 u% X
    //IP控件中的IP串为空+ x& ~0 c# h( U6 p) T: i
}! ?2 H  S- d$ |9 A! |. e
else# a$ X& m0 J* Q) O) [! J. x
{- p8 A1 x5 g$ Z; X3 A
    //IP控件中的IP串至少有一部分不是空的
  z( B) ?$ v- |2 _; W8 f' N, i}
6 z8 e2 t: b9 e$ C
/ S9 q( @4 n( [  ?# J- h●IP控件的通知消息●1 O1 F5 ~. c1 V! o3 P
当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:
$ g1 @: P3 @) n" r
! m9 |6 K+ G! b7 ]0 P  e- d2 Svoid __fastcall TForm1::WndProc(TMessage &Msg)
& d4 L' Q4 N- n4 _; b. P  Z{
, \0 J. h& b9 w% D    LPNMHDR p=(LPNMHDR)Msg.LParam;
3 {/ H" j% H5 I/ k6 q( J0 M    if(Msg.Msg==WM_NOTIFY)3 X' a# s* q& Z# `4 Z4 S
    {
0 E: S0 o& r' ^7 p6 y        if(p->code==IPN_FIELDCHANGED)
7 w% i/ _3 K& y7 T4 U        {# |% X* `9 M, N- A
            //处理IP控件的IPN_FIELDCHANGED通知消息; W  W  S, z; l
        }
  X$ q0 o+ X$ w- |, Y    }$ w& F( m5 o' x6 ?
    TForm::WndProc(Msg);
1 |* e& ?+ j7 B) P}
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|宁德市腾云网络科技有限公司 ( 闽ICP备2022007940号-5|闽公网安备 35092202000206号 )

GMT+8, 2026-10-2 05:43 , Processed in 0.017829 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表