|
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。
# T' c2 A" g1 E# x欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=592# U0 t* \8 S$ F& d
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:1 M3 ~/ X. E4 U2 w# Y; P
标题:在Delphi中使用IP控件
. N. `$ u0 `& _$ c9 a作者:西安交通大学9649# 刘明华9 E* V& I h* l
在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。: d0 Q" J9 |+ k5 @( C
如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com
2 N1 j- c& K- J7 v% G# w5 `+ d6 \7 Zccrun(老妖)(www.ccrun.com) 2003.10.29
3 [2 R" e# t6 s0 G- t: u3 X" ~, ^+ g7 T
在网络程序中,我们常常碰到需要用户输入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控件。 e; {2 l( H" U: c
6 ^2 n2 ]) N& d& z/ x& [" y
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)。
& H- J1 K; l1 {* `5 `1 X! ~- c. l5 b3 m7 Z6 u! j: G) l% C
●初始化Windows自定义控制库●8 F4 D$ v9 q( F. }
Windows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:
1 P B+ z+ h9 n5 J9 n+ w7 M7 g' L x+ z* _5 g
typedef struct tagINITCOMMONCONTROLSEX {1 x7 D- p! h2 J
DWORD dwSize; // size of this structure. Y, d; W( n; S& J2 y+ n
DWORD dwICC; // flags indicating which classes to be initialized8 F% a0 \" Q9 y. M* ^/ i; F2 H
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;
( x" h( }' l, j* |9 u8 _$ I: [$ i$ q
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);* c" B j0 a" g( }" x
2 z/ @5 b6 {5 Z2 l; L4 lIP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:
9 J* T3 P& A0 D# J2 s& O9 {" ?! t! T5 x7 V
TInitCommonControlsEx ICC;
/ C4 R t+ r' ~1 }6 f9 @ICC.dwSize = sizeof(TInitCommonControlsEx);
3 }1 |8 v4 G3 E: Q. IICC.dwICC = ICC_INTERNET_CLASSES;
4 R u2 f0 E1 l* p; y: pif(!InitCommonControlsEx(&ICC)), }/ l& n7 |6 x
return; //初始化组件失败; y! n! L& k: d: ^( y
, ~: [4 o" \. ^# }
●创建IP控件●
& Y8 S+ D' ?7 _5 P1 O) F# ^% J. `# SWindows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。
# `$ A' [# J1 w6 Y: h; s* @& J; T0 c" l. \5 y! F
HWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
' n3 w+ {$ B7 E
! ?) o8 w/ M! A2 E5 k●使用IP控件●
0 B2 o0 h' O* b' f在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:
, T1 b( \) e! U; M
1 {% }- v. h F1 G' F4 P2 Y2 x9 v3 T* M消息常量 消息值 作用 参数及返回值
, T- }% }; o, W$ A1 x2 t g2 fIPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无
8 A" R2 K1 i0 ?- x1 M; X: TIPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值9 @- Q% t& M5 @: M: [. q* [' D
IPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。
) N4 O7 D6 T6 e9 L# m7 |& gIPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
; C+ q. L" z6 ]IPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点
! w4 J( v1 e4 g2 a' S) dIPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值:若为空,返回非0;不为空,返回0 J3 m( `1 R; d$ h: J, V! x3 }
7 z/ Q& a! \3 \* K5 E) |★㈠清空IP串(IPM_CLEARADDRESS)★& n0 l5 n ?1 V$ L3 T) C
SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);$ }! X/ o6 y, ~1 `
8 D0 P+ K- [- W5 F
★㈡设置IP串(IPM_SETADDRESS)★
2 t9 ]0 q5 F$ W* b. s) u: V% `int nIP;
' N( R) T" k- V# m- InIP=MAKEIPADDRESS(192,168,0,1);
% t" H/ q; j0 I1 |' VSendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);
! |& P, ?( \6 r3 E: q% q1 E4 L6 ^; K* R) [% p
此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:
' `" Z/ [/ @: w+ {1 F2 K#define MAKEIPADDRESS(b1,b2,b3,b4)
' X6 V: I4 g( W8 c% ?; t+ {((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))& C1 ^! ]+ i& z( ~
) v" p: L; O4 m& M1 h2 d% Z★㈢获取IP值(IPM_GETADDRESS)★
4 n P4 m" z4 R- [/ dint nIP;
0 ? M% j7 H/ t; FSendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));! S5 Q. {5 O: ~8 [. Q2 \
//nIP++;! V0 D$ i( r" J3 F
//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。
# `6 q& W: o& E+ N0 `: W
! x: u- K5 \- ?8 K1 `$ l" u4 m# o6 m若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
7 D! n4 `% G0 Q6 C' \/ x
4 T" m7 `# v6 ^- f3 f★㈣设置取值范围(IPM_SETRANGE)★
6 Z+ `3 j$ a9 ]5 c3 uSendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);
, o: u0 M+ |% @* t+ {' [: o此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。: F% A' y$ i" m4 E# x' }5 ~3 b
+ G; q+ r7 K9 k0 T) W# j) u- B
★㈤设置输入焦点(IPM_SETFOCUS)★) d. @6 N, a2 S4 T: n
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);7 m; d# X: P3 |9 u" O3 n( h
//将输入焦点设在IP控件的第四部分。
) g' J4 V4 r4 ]+ E& q0 T+ J# G; r3 N2 w
㈥判断IP串是否为空(IPM_ISBLANK)% D3 S3 z$ }# U d' v
if(!SendMessage(hIpEdit,IPM_ISBLANK,0,0)) $ p3 n! \( R* T2 {* C
{5 E+ h4 E4 j+ A! Q) a$ i* A a. ^
//IP控件中的IP串为空
- t5 {1 o8 J* K( i0 q}
; P7 ?/ T7 o% o) r- `% yelse
* r4 E2 D' Z( E# G! a4 h7 V{
% H/ z% h" u5 ~( g //IP控件中的IP串至少有一部分不是空的' W S/ E5 f5 K$ y9 w& l
}
# `) M+ d- I- F4 u4 z) n# p3 y! p6 u6 ^$ j- Z3 t$ t& ]% @) B3 a1 ~
●IP控件的通知消息●
8 R7 D% t) ~; j$ W6 b: G+ i# [' j" Q当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:
7 g$ P, h) |$ p# p! M
3 O: r" s% d! W$ Kvoid __fastcall TForm1::WndProc(TMessage &Msg)
1 n7 X: o! [. e* G{7 a3 Z* o u$ h2 r1 d
LPNMHDR p=(LPNMHDR)Msg.LParam;& q5 u2 K/ Y: H/ L$ Z9 m
if(Msg.Msg==WM_NOTIFY)
( x% _! c( d6 r$ @' c8 ~ {
s4 s0 |# O. D6 U7 f if(p->code==IPN_FIELDCHANGED)
5 o8 P' C8 g b; Q {
9 ~% p; `0 C( a. O/ y: h4 `2 [ //处理IP控件的IPN_FIELDCHANGED通知消息
/ g: l5 [* q! |. p7 S. t. H! t* M }
1 R6 R* }9 X; n }, v$ n+ n7 v5 A+ E p
TForm::WndProc(Msg);
1 M" Z) g) K4 n+ L" k6 V& \, ~} |
|