找回密码
 注册
搜索
查看: 3889|回复: 0

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

[复制链接]
发表于 2004-2-15 13:42:14 | 显示全部楼层 |阅读模式
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。7 w5 a: l: n; @3 t  q( m
欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=592/ M. S8 D6 x' `; |) y6 C
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:, ?% E& }/ a' J$ O' |& Q8 L$ b) {5 b% L
标题:在Delphi中使用IP控件
* ]  W, r3 c* g5 |& ^; u作者:西安交通大学9649# 刘明华' W" @' G" z# t
在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。
# q# c( V+ e0 N0 E# ]如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com9 v) S9 p8 w8 ~( e& }& P' q
ccrun(老妖)(www.ccrun.com)  2003.10.29
( F# _- W: G1 ~. L
. R& P6 h( }+ @  ?- u. x在网络程序中,我们常常碰到需要用户输入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控件。4 v. I2 \1 l. M1 H1 Z
  q; h  F, B, A, i
Windows中有两个非常重要的动态联结库:commctrl.dll和comctl32.dll,它们是Windows的自定义控制库(Windows Common Controls)。自定义控制库中包含了许多常用的Windows控件,如Statusbar,Coolbar,HotKey等;在C++ Builder中,这些控件大多数都已被包装成可视化控件了。在Microsoft推出Internet Explorer 3之后,自定义控制库中新增了一些控件,其中就包括Windows的IP控件(IP Address edit control)。
$ U0 [5 K& r1 o$ ?7 |/ T
/ o5 Y5 R, |* y# E7 {3 ]●初始化Windows自定义控制库●9 k' J( g: [) t  L0 v, k
Windows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:
7 e8 ~9 J1 @+ i, r/ ]8 x/ e% n/ v& K9 N
typedef struct tagINITCOMMONCONTROLSEX {
- F0 @  B: G5 ~* m2 X& R3 {% g; R    DWORD dwSize;             // size of this structure
% `& x  W! k" F3 f$ g9 C    DWORD dwICC;              // flags indicating which classes to be initialized
; g# _6 E+ ^! w$ Q& X% o} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;- d9 t9 g- R# y2 \- }0 b* j

. R, m  q" i8 h- dWINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
0 b1 `$ _+ E# E) [
- K* _5 @# x/ WIP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:4 v4 {- ~; m; h9 }# M

* }; u/ n# p2 Q; l7 }TInitCommonControlsEx ICC;
) q0 r9 b9 Q* r" g# C$ J/ w4 SICC.dwSize = sizeof(TInitCommonControlsEx);3 _2 l' L6 q! c- w# m6 z' g) f/ C
ICC.dwICC  = ICC_INTERNET_CLASSES;) l3 H4 n) D8 G; F
if(!InitCommonControlsEx(&ICC))
3 B; K4 ~5 L$ j2 V+ B- Y    return;  //初始化组件失败( ~7 d1 T5 `4 k! ]4 k/ Z

# K& K% H0 j$ g5 G6 R●创建IP控件●
0 P6 G' n' i$ v. _* kWindows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。; d) {- ~/ D( \& G

3 v* E. m; @+ }5 v9 Z6 D' Z( x( d! ?7 ZHWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);% l& J& V3 T2 Y0 U

7 L% T8 ~5 _. `% h# U2 c; D●使用IP控件●
5 r  r- Z3 V8 R0 [% a6 b在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:
0 U, @% `  k) x- q$ O) R. ~9 W# ]5 L+ O3 a
消息常量            消息值         作用                                      参数及返回值) z9 Z4 {% G! Z4 O: X$ v
IPM_CLEARADDRESS    WM_USER+100    清除IP控件中的IP串                        参数无$ r8 g+ }4 i6 b; b, R4 g2 _
IPM_SETADDRESS      WM_USER+101    设置IP控件的IP串                          Lparam为32位的IP值
; ^# F$ J: S; O8 u2 y" ZIPM_GETADDRESS      WM_USER+102    获取IP控件中的IP串所对应的IP值(32位整数)  Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。  - K6 I$ ]* v6 g! p9 x8 u, f+ V7 a' J. S
IPM_SETRANGE        WM_USER+103    设置IP控件4个部分的其中一个的IP取值范围   Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。1 r3 Y3 ?& F) @& |1 S
IPM_SETFOCUS        WM_USER+104    设输入焦点                                Wparam指明哪个部分获取焦点
& s8 D3 W% {7 ^7 w1 YIPM_ISBLANK         WM_USER+105    IP串是否为空                              参数无。返回值:若为空,返回非0;不为空,返回01 f, x6 w- I7 v( y8 ?& A

6 ~( N3 Z+ \, i4 c6 X★㈠清空IP串(IPM_CLEARADDRESS)★
) l3 G, S5 L8 Y8 @" x6 _SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);
0 g- z- z# N0 Y! ^6 S4 O7 o3 P- \
" b2 Y# c  o# F0 x9 y★㈡设置IP串(IPM_SETADDRESS)★3 ?! w2 M& h  p0 E, C, _/ p- v
int nIP;, g7 K/ g8 M- x7 W
nIP=MAKEIPADDRESS(192,168,0,1);
7 O3 x/ S' r9 R8 ?SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);2 v) n9 V/ a/ y
7 T  j7 Y! ~+ O6 X/ n: B& o8 O+ P! l
此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:, c( s- ^$ ^' G. I* X5 _
#define MAKEIPADDRESS(b1,b2,b3,b4)5 M$ i' p' o) A" H2 V- n( L
((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
, B; Q- G2 g1 D
8 x7 X! [! T7 ?★㈢获取IP值(IPM_GETADDRESS)★; k7 Q  K# z6 |( ^: ]
int nIP;
3 {' \" z/ W0 f" @SendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));+ V* u1 Q4 s  U) m. e, I7 k- G6 A7 X
//nIP++;. m* p. N, U- x0 _& m5 K. I
//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);   //将IP加1再赋给IP控件。' O/ ^. R* C/ a

# x, F; Y6 h, t% _( O6 i; T若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
9 c1 x% x" G2 _8 w% _
0 t+ _7 ]. N" D: X★㈣设置取值范围(IPM_SETRANGE)★5 L2 v$ ^! }5 {4 q
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);' w2 q/ ^* c0 D3 S# h/ O: t- X! u" G
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。0 m' L2 }9 y1 H" W

) Z; `$ R- ?, k7 {  T★㈤设置输入焦点(IPM_SETFOCUS)★
; g8 b' Z! N1 `" x6 F8 D6 XSendMessage(hIpEdit,IPM_SETFOCUS,3,0);! |6 g6 d4 K' p- P9 B% r
//将输入焦点设在IP控件的第四部分。$ d" b: D# z$ R. @' I
( o7 b$ [" l# ]
㈥判断IP串是否为空(IPM_ISBLANK)
+ C, @, o" M# Z5 i4 }1 ]5 \$ }+ f% lif(!SendMessage(hIpEdit,IPM_ISBLANK,0,0)) 0 m# D( O1 Q2 ~
{* M2 ~  b6 D: c
    //IP控件中的IP串为空" Q9 M: ?: Z# {) {
}% z, \( Z( L5 M
else- ~( L" r4 c7 W. Q: d3 g( c8 I
{( r- b$ a- {# m* H8 H' n6 J
    //IP控件中的IP串至少有一部分不是空的8 U8 P0 l* W! J) {  {# z+ y
}
& T0 V9 c8 i0 ^( ]
* j+ i. w/ W0 `! H5 a4 f6 M●IP控件的通知消息●
. y2 C2 }- b: S$ g: o& A) s7 U当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:% \5 _1 z! I! ]& f3 I4 V( o  v  P
% Q5 Z2 v& Y/ N8 n
void __fastcall TForm1::WndProc(TMessage &Msg)
7 _- E; K9 j* s( K0 B6 f{( \; f/ j; G6 {/ T/ ^( d, k
    LPNMHDR p=(LPNMHDR)Msg.LParam;
3 H3 T, P: u7 `8 E    if(Msg.Msg==WM_NOTIFY)' q1 x" A# f7 A. y2 \9 r+ i
    {
' K+ B" K- R4 N* @  v" J        if(p->code==IPN_FIELDCHANGED)( v! u6 A* S# a7 ?: P
        {
7 [* R0 e0 r& c' \& D; I" N& L            //处理IP控件的IPN_FIELDCHANGED通知消息, b# i# R" k% N4 x
        }3 x% R8 l5 n. g; I' p1 s8 G- z
    }
0 X# s% a7 p, @    TForm::WndProc(Msg);
3 P& `6 q( P% v1 b5 |( i}
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-13 10:10 , Processed in 0.017630 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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