|
|
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。
7 L4 X/ y! S: q" V X4 R8 v7 i欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=592% W) J% f7 o, A( H
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:
" ^( ?( k8 S! G: S5 P标题:在Delphi中使用IP控件& J- A1 R! [" A
作者:西安交通大学9649# 刘明华+ ]; A$ i0 u* e' _' C# I( M
在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。
* Q5 V6 [0 } j0 O5 {& Q' `如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com/ `8 f2 E3 G+ l9 H& v
ccrun(老妖)(www.ccrun.com) 2003.10.29
( H5 J- Q6 q p3 B, @1 t
' D/ ]+ x2 v( ?7 T( c' [- T" ~% r在网络程序中,我们常常碰到需要用户输入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控件。' |9 P% I3 T! H) P# s/ G
5 T% R/ K3 e& D: M. m E
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)。
/ R/ e3 U4 {+ L m& Q# n+ f( k( ^' F/ x% ?! a
●初始化Windows自定义控制库●
' b) S+ \! N+ ]' r& v, ?& SWindows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:
0 {$ q# ?9 G) @! S& D, \5 ]0 }7 B* [; @" o! `1 _
typedef struct tagINITCOMMONCONTROLSEX {% ]9 ]. Y" k2 u8 R- W% l5 J
DWORD dwSize; // size of this structure
& U ~# v7 ^4 E6 a$ S2 L DWORD dwICC; // flags indicating which classes to be initialized
, ^, O# g" K2 z+ p! S} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;2 F, Q: C! }: D% d; o
. ^: J# x P) ^8 a+ w- g4 e
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);9 C- c0 e/ [% [
2 U/ c8 i; k8 y4 hIP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:
. k4 _: h! z- r" _' E4 e# j- w9 N6 s5 ^7 b' c: J4 r: ^3 C
TInitCommonControlsEx ICC;: V" C1 H1 I+ L$ h9 d( E$ T
ICC.dwSize = sizeof(TInitCommonControlsEx);7 H5 y" V' V" v& E2 a
ICC.dwICC = ICC_INTERNET_CLASSES;- T+ x" ?/ D5 I. [6 U0 C+ x
if(!InitCommonControlsEx(&ICC))
' h- p* ^2 t4 C' l0 a3 w return; //初始化组件失败( {8 _% M9 f$ A2 n" F; v9 w" g
7 x# ?$ ?* g* F/ A' ^: k●创建IP控件●
/ y# G, M" k. c. D0 C! ZWindows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。
+ y. Y- t) D! Z( R: W% I% c# K& O* ?! |
HWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
: `" f9 r: t' _5 Q0 A+ }3 l' |6 b7 _7 [4 ]* [+ L8 F. y
●使用IP控件●- b9 \$ p( b1 e q, b7 o- k' E
在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:8 O+ I2 t6 z! S, w. R
' W; c4 u; |+ t/ t3 S消息常量 消息值 作用 参数及返回值
/ O% A' ~! E- u% c- \2 P( [; nIPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无
) K# A+ @2 Z* x0 c# z4 o( a; VIPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值
2 l1 {5 X' z r- x0 Z: g( Q& w* b3 aIPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。
1 m- p* I' s) |) R1 _8 U' nIPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。3 D Z7 S1 {2 V2 l
IPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点' ]. w3 f/ z" ?4 Q
IPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值:若为空,返回非0;不为空,返回0
6 S& u, ` M/ H
9 W6 q! \, E& w3 X7 s3 t★㈠清空IP串(IPM_CLEARADDRESS)★
: B! N* N7 Y1 @7 c5 k/ }SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);. ?9 e% g( n8 T/ Y9 S, d
9 Z' Z. @* @9 p
★㈡设置IP串(IPM_SETADDRESS)★
$ h3 o5 ]4 \2 H) hint nIP;" z& n8 }6 ~. M! u4 M/ P
nIP=MAKEIPADDRESS(192,168,0,1); $ c H! F' j$ p5 x( P, {% ~, d) {
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);" C# A+ g5 t( I( u) ^8 ]$ }
) _0 |+ g' e1 e& A此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:$ U) o6 B9 q3 h" x/ ~
#define MAKEIPADDRESS(b1,b2,b3,b4)8 V& _) E \* {& x- V% V
((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))8 H% X7 N- S4 T$ T3 c8 i' v
6 \3 q( l+ {# N0 d- o★㈢获取IP值(IPM_GETADDRESS)★
6 T& Q' D7 o% s7 V+ q& Aint nIP;
9 a; L5 m) G* hSendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));
0 q+ N5 O0 K' g0 u) ]. Q' }$ L U ?//nIP++;5 ^4 W2 W: t# f3 A
//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。6 V, n& o, O9 H6 Z) N' D% ^
) i# W1 G+ U4 X* p8 A5 ~ T
若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
3 L( x6 B, M9 f2 t* j9 A: S
- A" q6 ?- u3 W# j1 E★㈣设置取值范围(IPM_SETRANGE)★- e8 E6 f* Y4 e
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);5 p, c/ q) p2 ] a5 {/ ?+ [
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
1 `! C9 y# @9 v1 z$ w$ ^* |; f) L- v3 E* i
★㈤设置输入焦点(IPM_SETFOCUS)★
) \+ K! X+ Q+ F& |" o( ZSendMessage(hIpEdit,IPM_SETFOCUS,3,0);$ A3 Z& U5 u# w& R) {1 Z
//将输入焦点设在IP控件的第四部分。9 }# b4 O. T$ [' T/ a6 A
9 \9 y- `' R5 Z. I2 \9 R㈥判断IP串是否为空(IPM_ISBLANK)+ u. p* l; ^7 B
if(!SendMessage(hIpEdit,IPM_ISBLANK,0,0))
! t V9 p% W q' M{
4 \: u& c* I# M //IP控件中的IP串为空
0 f) }% G3 p p3 [6 O* P7 D& [" p& [}
' S0 W! n( z4 ^. ~- C0 Zelse
+ k7 b1 {& G7 U7 W/ S{
% {3 Y- C" F; A; P7 v //IP控件中的IP串至少有一部分不是空的" b3 X' J0 B: c( }& Y
}
" b, {5 A& ~7 e3 h M' Z
0 t/ E# C: T/ P. x●IP控件的通知消息●
5 D. @7 }+ e5 e0 d2 `9 b当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:2 F4 M" v1 s* F- H1 D1 f
% \2 V: F( k3 P$ t* B
void __fastcall TForm1::WndProc(TMessage &Msg)
- L0 J2 {" O! M4 ?4 z9 L* @7 b{2 ~+ h m$ Z" V7 H, k% _ @7 Y
LPNMHDR p=(LPNMHDR)Msg.LParam;
2 T/ H9 G# n$ {$ l7 R3 A. @/ n if(Msg.Msg==WM_NOTIFY)5 B" `; P G3 x% H' \- ^
{
- x, T* H" M+ z; ]0 e if(p->code==IPN_FIELDCHANGED)
7 P" q& Y' T, I8 u {
' {2 \- h, w9 v5 \$ T/ s+ S //处理IP控件的IPN_FIELDCHANGED通知消息
: D! G1 {# L |8 d* Q7 N) ?2 g }
" h8 V! y, S+ t7 C5 J) o }3 A% f- @7 u6 y8 }
TForm::WndProc(Msg);
' }+ j4 t/ h9 A( h} |
|