|
|
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。
! |8 Z6 I9 U& R) ?" T! B2 \欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=592" V% v' U2 M8 Y. A1 D" _
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:
) Z" Q* u* a" n1 n标题:在Delphi中使用IP控件. Q$ E+ H2 W: u+ U$ x
作者:西安交通大学9649# 刘明华
- ?, W6 l* @: n, L$ ^在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。
- _9 q* Y) z+ e$ j+ g& y如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com Z) L2 x) l& G% [# [
ccrun(老妖)(www.ccrun.com) 2003.10.294 I4 F1 @4 v6 h. J
3 n5 [; ^$ s2 {) A, F) A: I" o
在网络程序中,我们常常碰到需要用户输入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控件。( \& b4 N9 P0 G t* s. T- \+ I
& ~0 {5 ^4 D' I6 ^
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)。, |4 Z1 M( B5 |: t6 ~
; \7 c5 E/ ?/ C1 Y& d! E# m' ~●初始化Windows自定义控制库●
" y9 o1 B; `0 w, N( y9 ~* KWindows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:
* X. U: N2 @4 U8 j( Z& e; t! J3 H; N7 K
typedef struct tagINITCOMMONCONTROLSEX {
4 a: N; ?# l& D$ p# C DWORD dwSize; // size of this structure$ L* @3 |' [/ W0 m w( d
DWORD dwICC; // flags indicating which classes to be initialized8 ]6 ~' i, e: G" z7 k" c# U
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;/ ~6 y; ]. m7 X: A" g& S) G. e
1 t* v4 b7 Z+ O5 |4 d8 i
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);& \! N8 P# ~6 U
$ B4 _" K u1 l/ \ W% ]. lIP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:2 s9 W6 P- a8 M3 {' f9 D1 \4 e5 D: U
s% V8 A! I+ p' XTInitCommonControlsEx ICC;
6 R, Y% \$ Q) ^1 rICC.dwSize = sizeof(TInitCommonControlsEx);. r6 p8 ~3 P) O( z9 l5 Z2 ^! C
ICC.dwICC = ICC_INTERNET_CLASSES;
+ G# `; s6 S7 a' X, Q rif(!InitCommonControlsEx(&ICC))1 _5 s2 @7 K- N- ~7 U9 C+ B, U' T
return; //初始化组件失败2 Z) s% @) T1 O: s: V: ]
2 q+ T% I. P: w
●创建IP控件●
! y$ r0 \6 n: V, NWindows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。" h0 U, @7 ?) L4 C8 O3 O7 \5 V
; w0 i- C4 }. E7 X1 bHWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
1 Q5 Y; N; V3 Z0 x0 Y
& {6 ]) f0 m3 C; ]) C- V●使用IP控件●/ Z9 a$ a/ n: q
在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:+ \: d7 s; J( O- c
Y) y" N1 E0 O1 {
消息常量 消息值 作用 参数及返回值: H3 C4 ~) f0 }
IPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无9 c+ f' y6 Z* J1 x
IPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值+ g; A$ W( \6 z
IPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。
0 ^" y# ?! E& b- ^/ [4 @IPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
& g3 Y. a$ W8 |IPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点5 x, s4 c: h: U1 T
IPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值:若为空,返回非0;不为空,返回0, I; z" U- p4 L1 c' s& p3 E/ m
) j6 Y; T% f m' _3 ~9 ] m★㈠清空IP串(IPM_CLEARADDRESS)★
r" z. [- G6 C5 V- X& E+ jSendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);
! W e+ M* X. t
( R; }0 Z% A1 \0 }" Q: t★㈡设置IP串(IPM_SETADDRESS)★. T" E5 V+ `% A u
int nIP;
6 x9 ~ p# |7 L. m1 m" v# |nIP=MAKEIPADDRESS(192,168,0,1); + y7 A* }3 Z/ l. T1 O
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);
6 T5 r7 i8 @8 y. g. X' b0 p# o+ J9 n* O
此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:/ b. V7 y7 p; \( ?
#define MAKEIPADDRESS(b1,b2,b3,b4)- U. Q$ h9 p; f5 ]
((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
9 Z( c; D0 B$ D8 @
, x! M; t+ `' B; L★㈢获取IP值(IPM_GETADDRESS)★* A: Z( b. I6 J% y' c9 k$ ^
int nIP;/ ]6 p* N, W- H+ a
SendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));
# K) w( J' H# p0 T! g' f//nIP++;
) q4 b/ S$ Z- h' j//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。' c% r# F% \1 z' _
% u3 @. c* S4 _: \( [若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。) ]% A' o9 T; c4 b- A2 B0 s# g
7 _# Z, \. l# o O
★㈣设置取值范围(IPM_SETRANGE)★. Q: K& k0 k3 ]
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);
" S [$ X1 I- g$ {6 o此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
( b# Y1 j' f9 u( I/ y; U# T+ u L. W+ @
★㈤设置输入焦点(IPM_SETFOCUS)★
3 O! z' s- H; B5 l+ J# a1 mSendMessage(hIpEdit,IPM_SETFOCUS,3,0);
: c# D4 A! Z9 s7 m. s. U+ F4 c//将输入焦点设在IP控件的第四部分。
9 Y5 [4 m/ \4 `* [5 L: \1 G2 @1 A f( |9 S6 F( j
㈥判断IP串是否为空(IPM_ISBLANK)
# G5 r% [5 |: pif(!SendMessage(hIpEdit,IPM_ISBLANK,0,0)) : n% Z+ Y* P/ d
{: i" Q1 @& U* c8 r: N$ q
//IP控件中的IP串为空; O% K) r! d9 D& Q( U) v6 n+ l
}
, W0 e: G3 ~( w2 s0 ^else
9 l# u/ v$ j: s. n3 j8 N{
" O, A$ T( A' v! v6 A //IP控件中的IP串至少有一部分不是空的
: a) A; J3 W/ P# e7 G6 u6 c; Z}$ O& F8 N3 J" K3 B
: L& M; l% \, ~+ O: b( h●IP控件的通知消息●/ R( D: p" l J8 T( U
当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:
! `5 z z0 O+ J: D0 j
. t' C! e5 {/ [- e! X& s/ zvoid __fastcall TForm1::WndProc(TMessage &Msg)5 o3 r& B8 x) ~9 f
{# ^& L q- ^) g: |; R
LPNMHDR p=(LPNMHDR)Msg.LParam;
: W v% S3 |% _2 N k( `+ }' z if(Msg.Msg==WM_NOTIFY) X- t$ n# i; ~5 g2 f) p
{$ r( h; f& g. V. {( S( K A
if(p->code==IPN_FIELDCHANGED)+ D2 {2 X* m% h0 }: f. Z
{
: t5 t# Y7 x I- x //处理IP控件的IPN_FIELDCHANGED通知消息( s/ y, V+ ]3 A3 `' q; h1 J
}2 @8 ?* h$ @7 Z9 B7 Y% e% m8 L
}
0 m/ |" V( {& `' z TForm::WndProc(Msg);
. ^4 \; m$ l: l2 M9 L! e6 _} |
|