|
|
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。% s7 b! p7 v5 j. j
欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=592
1 {2 b$ j! O. P- ~: Q& k& Q, p本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:" y8 y/ I! e4 K
标题:在Delphi中使用IP控件7 B; z4 j. W+ e
作者:西安交通大学9649# 刘明华" N1 k0 J: l" ?3 j" G Z5 O {8 C2 O
在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。
* O6 q0 B' f' X* F0 _如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com
: P9 v9 a* b6 Y4 yccrun(老妖)(www.ccrun.com) 2003.10.29( m& A) t$ Y0 M$ F6 W$ s* L8 ^
9 o+ P7 o+ @6 }5 _3 a在网络程序中,我们常常碰到需要用户输入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控件。
5 B% m0 ~0 j3 M& T5 U0 l* a4 @+ _+ F g/ |
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)。( m2 l d5 w r* ?6 J" q: q v6 E
B/ j( |! Z; s0 [0 M
●初始化Windows自定义控制库●+ C/ Z( L3 E4 J0 q6 m1 t0 c
Windows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:( h% m& o; B* l$ d; ]* g w5 g$ k
_! k2 W2 x8 ^% k
typedef struct tagINITCOMMONCONTROLSEX {, X8 w i1 g1 U1 p: r) _7 V: W
DWORD dwSize; // size of this structure
7 f# g8 u" {8 G. \, d3 Y' | DWORD dwICC; // flags indicating which classes to be initialized" A8 E0 M% N( j5 ~2 z3 n9 u
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;
1 _0 `7 e- o# R: j" F9 |9 q- D/ F& k5 }8 ]9 y, ]( N7 t
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
: Z; ^/ O% T- |2 o# n
( I2 B, c' s- ~4 e; Z, V* lIP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:, w8 B- b6 @0 ?5 R; i' Z. l/ L& V
2 N* |& \, \6 `: w! ~- H, S
TInitCommonControlsEx ICC;, q0 a/ i9 M* O1 v
ICC.dwSize = sizeof(TInitCommonControlsEx);$ U7 H2 c. C, W3 d1 p" Y1 _ t- y
ICC.dwICC = ICC_INTERNET_CLASSES;+ n: t. O: C' O3 G8 }- |
if(!InitCommonControlsEx(&ICC))
( N2 U. I, B2 ^& n' y return; //初始化组件失败* ^: d, G& d$ Y8 r4 h+ s
- `% e' \7 y ?- j; T: s●创建IP控件●7 O, F0 d# R+ Y; r0 w) \
Windows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。6 y, @5 E7 h. r. L( c- @/ L0 @ t. i3 A
6 L. b4 a" F. \1 G+ X5 _' XHWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);$ P' _6 v& w7 x7 f5 s" p
6 v, \2 j. x, n" S0 e
●使用IP控件●
5 T* m3 n4 r$ s' m; _, u- o在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:
$ L: c6 S7 V- q- M6 w9 C% a* S$ ~* M9 g1 `
消息常量 消息值 作用 参数及返回值
; O# j. t2 M( |, \. gIPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无3 Y7 o4 j8 j: Y3 f" j. |: G
IPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值8 L' l3 u7 Z7 u5 R3 M- p) M
IPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。
/ { i4 @0 ~0 C7 ?/ kIPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
* c2 \9 A! G. ?IPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点5 @* b5 N+ E8 G: s
IPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值:若为空,返回非0;不为空,返回02 F* X- |6 ]4 u+ B
8 b) P) ?" Q4 A5 I4 Z' h: Y
★㈠清空IP串(IPM_CLEARADDRESS)★
1 K9 n) \0 C, S/ e8 i) eSendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);; P0 ]" |5 _6 R2 n/ @4 i
' V& X# |2 s% C: V, j/ N1 O★㈡设置IP串(IPM_SETADDRESS)★. x. o2 y' Y! Q+ {2 Z
int nIP;+ ?1 s" ~+ M) N& s8 D* e
nIP=MAKEIPADDRESS(192,168,0,1); 2 }0 {! S) f+ O: e6 ^' H: x
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);' W; d' G2 E) L* `, M& k- ^) G. j
; v- s% y! J% I1 d% x此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:
9 v3 l/ U p& L1 c$ D5 [1 P#define MAKEIPADDRESS(b1,b2,b3,b4)$ U: C$ |0 F, t& I* e0 l
((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))* Y" s) U( }* H; w
- | Q6 M% m+ S4 n v% K3 D★㈢获取IP值(IPM_GETADDRESS)★* n, \' J: i3 w$ H- O4 D
int nIP;
/ J! L& h9 r6 n3 y1 q+ p$ nSendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));
& S P! C& F/ t) u* l2 O//nIP++;
6 r* o$ |* L0 t* }7 m8 G//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。
. X2 J' c4 M% e4 E% P6 {7 ^
2 A: r2 G4 L$ ^5 A4 m6 k# a1 |若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。! f$ `! [8 M2 c! Y j' x0 R4 m; k: D0 S
3 @, \9 f' ~9 `4 I/ ~! W★㈣设置取值范围(IPM_SETRANGE)★
% `; |0 G; d# u8 ]$ H) E. o5 sSendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);
5 P& o6 {. o" i/ s) I0 ~" J此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
; [9 ~3 h" U0 T/ O' s3 U4 E4 A
# k) Q- s8 v! H5 a* k( t★㈤设置输入焦点(IPM_SETFOCUS)★1 g5 ]3 p; m& j. L) B
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);4 h7 K0 }2 f4 N) y/ [ c
//将输入焦点设在IP控件的第四部分。6 V) j) h$ {8 q) T
/ F( J P4 L, @2 v. a g㈥判断IP串是否为空(IPM_ISBLANK)4 I- _% v9 N3 F
if(!SendMessage(hIpEdit,IPM_ISBLANK,0,0)) % ?6 ^' P8 r2 @2 }
{
" Q; L2 a9 K* l# T //IP控件中的IP串为空
% }6 [7 A8 D$ B1 n}. N; I2 F. j9 g0 j& R# c9 }/ h
else4 \, h- v5 L% K6 ?. ]0 A/ Y
{
: [! E, O2 e; e7 b" Y& c //IP控件中的IP串至少有一部分不是空的
) R$ t& @9 z2 J6 S}1 K* R: T; y) r' @/ | Y
5 |* Q+ q; v2 Z; D/ \# H●IP控件的通知消息●
9 a5 ]9 Z" X0 R- s1 r- u当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:+ a# P* p0 z; {6 b
% j4 _5 B& B9 W! z1 g x
void __fastcall TForm1::WndProc(TMessage &Msg)
* L' S( Q7 C" v4 u{
# ?7 y" ]6 Q& w$ V) _- G LPNMHDR p=(LPNMHDR)Msg.LParam;' q2 b: }+ D9 G# X% \8 T; ~- o. z: @
if(Msg.Msg==WM_NOTIFY)$ d7 q* ^6 t; o" m$ p$ F
{
0 o! H% ?4 ]& I if(p->code==IPN_FIELDCHANGED)' s# ] n6 r9 i, I6 G
{6 j- S( o# |0 q! v
//处理IP控件的IPN_FIELDCHANGED通知消息. ]' n2 Z K+ Q& c
}7 u' `2 S& |8 Q
}
' G) K; u- C- L6 c( o4 A$ U- l0 n/ W TForm::WndProc(Msg);
5 r. B# q$ z3 S% E4 ~} |
|