|
|
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。1 C! S, X% t1 @) o8 } Q
欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=5921 S1 h H% P$ S4 c- Z
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:7 ? n' Z, ?/ R2 C0 C7 I- c
标题:在Delphi中使用IP控件: }# y$ W+ J, U* W" R# z
作者:西安交通大学9649# 刘明华! h* Z( J6 ~% s" E6 O" j- L- G
在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。
+ {) r' T( @8 X( ~/ j* t( b) m$ y如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com; B# G+ _- O, Q; Z* D( n
ccrun(老妖)(www.ccrun.com) 2003.10.297 e$ F, U: L6 ^; j
7 ^' f+ }& b3 w0 `# v9 j" ~ n
在网络程序中,我们常常碰到需要用户输入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控件。3 C9 k+ b3 ^+ a E& r; c
4 {& n. d2 T4 D! B
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)。( W; D0 O4 i4 A8 W4 \9 t/ F0 _
7 A ?$ W7 m) n. B1 O●初始化Windows自定义控制库●9 U+ g; a2 d c9 l2 k& |
Windows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:+ Y9 M, M8 \ H
3 u8 s% ?" g8 _+ ~* [: E6 G2 K7 @- Ttypedef struct tagINITCOMMONCONTROLSEX {. _$ q3 U1 |$ P _- D2 s
DWORD dwSize; // size of this structure
4 c/ y$ u5 @0 @ DWORD dwICC; // flags indicating which classes to be initialized
& _9 H- N0 ?% j9 i+ E4 G} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX; c/ Z' S) u% S& ]7 z8 I
) F1 o& k, K& W |6 XWINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);4 g: K# A5 I9 h2 [& q3 Y/ u
0 k6 U' E; o5 M: v( V! m2 h3 R
IP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:
. ?2 v+ B8 A/ k8 k5 T2 b5 h) |4 L+ L" p7 i" |
TInitCommonControlsEx ICC;
7 _7 ]6 M# W2 r3 W \% T% o qICC.dwSize = sizeof(TInitCommonControlsEx);
" {( J6 p+ {+ |( U% vICC.dwICC = ICC_INTERNET_CLASSES;
, X: m: q. d2 o2 R, Q5 i7 @if(!InitCommonControlsEx(&ICC))- {+ l/ U5 i5 u( K9 Z! i9 ^% o
return; //初始化组件失败
/ {- O0 E( N5 F7 w1 n1 p! \* q& u" M2 g4 T' a
●创建IP控件●: h/ `: H9 o, W7 p: [
Windows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。2 D, E! y; s1 y. X% ~2 t( C7 e
% ^; [* L4 q& k1 D! V8 I
HWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
" \* p$ e( ]+ L! u9 h0 o
* t7 z7 ~* m0 [●使用IP控件●
2 ^: h- M, c# [% I! u: M3 W* K) \$ Y; V在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:
+ d3 H) E8 u/ ] O: W
+ @- h. Z' M! [& ?1 J" {消息常量 消息值 作用 参数及返回值
" @2 \% ^+ B0 a" r* b* BIPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无
9 r; [6 N f# r/ h) h8 m, {8 _) V/ QIPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值
3 I: C" V0 L$ }$ ~5 tIPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。 . ?0 s2 q% t" ~; M: l, o1 g
IPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。& y# ?7 l) [- P C
IPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点$ t; q: Y: S4 C6 ~9 ]
IPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值:若为空,返回非0;不为空,返回01 Y: X3 Z% t: k# g V1 m
5 e! q! m! ~! E0 j R8 f3 s) e★㈠清空IP串(IPM_CLEARADDRESS)★. F0 R' Z: y8 ~% @2 Q9 X ]! F+ S
SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);$ e' S2 H5 v) k, T8 [: Y
. O2 W( p2 t: P/ h& M( c# {! j. H& i
★㈡设置IP串(IPM_SETADDRESS)★
- P! }: a d9 R/ ]4 h5 c6 [7 Bint nIP;
* P1 _$ `" v/ f% d0 {; K$ |* ]nIP=MAKEIPADDRESS(192,168,0,1);
; c' ^0 b- o; k. g( [SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);. S7 H, S% Y# |6 S: n+ @& _
& I; _! p3 k( H. v- ^" q此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:; n* M2 W8 V/ u1 M# p% l$ O
#define MAKEIPADDRESS(b1,b2,b3,b4)% ^# k. a% F, v& u' b
((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))5 t! A0 J \' r" k+ ^
* _3 ]# h! G- m# j( y★㈢获取IP值(IPM_GETADDRESS)★
, j0 @% Y' L6 R3 G) @" ^/ l. jint nIP;
% r6 _& {" P" t! W% g WSendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));7 j' E0 C% u% X1 ^8 Q# k5 t/ ]$ k- S" P
//nIP++;
1 K' [' h* y8 _2 X6 O( h//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。8 J/ D6 I- \! x( }! O
3 ~. h8 o8 w6 R: P3 Q- J" R
若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。2 p/ v$ s+ \1 h( d, u. m% _# r# X7 Y9 [
S: S7 K5 g. B4 A* b" n/ m) P★㈣设置取值范围(IPM_SETRANGE)★' N* c+ _+ R( ~* C% p) y
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);+ |8 Z' k3 }, ?; `
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。9 ^- ~9 q' Q) J2 F
' ? h9 } l7 T* p: U9 k3 |0 C+ ]★㈤设置输入焦点(IPM_SETFOCUS)★$ ^# O8 i) T8 u3 U1 d" ?$ T( Y- Z
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);
z; ]: K3 C7 Y, H$ p( K# R7 D//将输入焦点设在IP控件的第四部分。9 p2 U+ t7 s8 P+ a" l9 E
& c" x- a- r8 J6 x( u; Q
㈥判断IP串是否为空(IPM_ISBLANK)
' j) |( f/ Z, Q# P" K! U- W1 dif(!SendMessage(hIpEdit,IPM_ISBLANK,0,0)) 0 h B2 h2 q' Q' f+ [- `3 y) c
{& d! l) q* k; A: j/ F6 z8 c- _# n$ K. E3 B
//IP控件中的IP串为空& ?( y: e: c9 ]; i x5 {
}! ~ H) ?8 R$ |$ d: \
else9 B4 K% F3 [, h% W
{! T) d- P7 \% f) A- ?* k; }
//IP控件中的IP串至少有一部分不是空的+ ?. K, }. w$ @+ z! U
}- N0 J2 r! X$ ~9 s& L
2 |4 [' [: A& [4 {
●IP控件的通知消息●
* \- Q0 X$ J* L ?8 [8 G$ O' Q当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:
( p7 m3 H, O8 f! V: J. |2 p; F+ c0 |% Z0 c1 X* }% r' f' v& g$ V
void __fastcall TForm1::WndProc(TMessage &Msg)
; H8 k" e' ~2 V; ~% f% {/ E2 _{# L4 p7 X( j! M* [ s0 k7 o+ d
LPNMHDR p=(LPNMHDR)Msg.LParam;- Z* R% X3 Q+ R; r
if(Msg.Msg==WM_NOTIFY)
' c1 E' @" J" R3 `& x$ ^ {5 d1 D3 p6 S( X2 C7 \
if(p->code==IPN_FIELDCHANGED)+ n0 B. q, ?% v2 N$ U/ c
{
3 ]# l+ {$ q9 G7 s4 x4 v* K //处理IP控件的IPN_FIELDCHANGED通知消息
9 f8 @; L. z T" ] }+ y3 R: }9 h0 e
}
: \+ u, ^5 ]& W/ i+ z% `3 [9 j TForm::WndProc(Msg);+ u, n, R/ R* d x3 H
} |
|