|
|
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。1 b" d- }( R) R+ Q& P B# e u
欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=5927 [8 S) G3 V: }% j6 Q4 c
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:
, @+ X5 a4 Y, d8 U0 B6 s标题:在Delphi中使用IP控件
# H) @% U( n3 @2 c! t作者:西安交通大学9649# 刘明华
- d+ o+ F3 e) Y7 |4 r在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。1 C w( k5 G* C0 n- r% I
如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com
/ |, T' D0 `" x2 F7 z/ {ccrun(老妖)(www.ccrun.com) 2003.10.29
1 u% I" G8 w6 ?! q3 G/ D. E& }/ v1 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控件。; |% J7 e( c7 |% k
; f3 J, p, @3 S( ^6 n3 w% n; lWindows中有两个非常重要的动态联结库:commctrl.dll和comctl32.dll,它们是Windows的自定义控制库(Windows Common Controls)。自定义控制库中包含了许多常用的Windows控件,如Statusbar,Coolbar,HotKey等;在C++ Builder中,这些控件大多数都已被包装成可视化控件了。在Microsoft推出Internet Explorer 3之后,自定义控制库中新增了一些控件,其中就包括Windows的IP控件(IP Address edit control)。
' f* L$ a% y; ^! H9 a" a4 Q3 l- Z8 W( q/ }1 b7 X
●初始化Windows自定义控制库●: K6 x, G" \7 ^& G- @" q
Windows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:
" r# w; L* B' d. j2 t- p9 j$ w# h$ u2 V# r6 M1 T6 B6 Q! m: A
typedef struct tagINITCOMMONCONTROLSEX {
& i1 f) {+ W( B+ q DWORD dwSize; // size of this structure
) y* @# k! Y: f DWORD dwICC; // flags indicating which classes to be initialized, k) o' f) V3 j3 _; Z- e
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;
& ^) Q/ R7 ~7 K9 V' P6 E; \, o/ s/ T* R/ G) a
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
3 J/ m- ^, q4 u- @% p
8 M- _" e0 D; PIP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:- ^5 ?; Y9 t6 O) \
" y7 W: C q; ~. x7 v# k2 O/ g
TInitCommonControlsEx ICC; K$ C) @( E, A! k4 M( ^7 W. e
ICC.dwSize = sizeof(TInitCommonControlsEx);
9 }0 k! F, y* S6 ~: ~" _ICC.dwICC = ICC_INTERNET_CLASSES;- B% G' o' q& H$ m$ A
if(!InitCommonControlsEx(&ICC))6 j0 d" G1 m7 F8 J* X- D2 v
return; //初始化组件失败9 F' `% r/ b7 C7 `; F1 C
* W- w1 f8 @6 Q/ ?' b●创建IP控件●( O* s2 V1 Q' k( e" @* S$ q
Windows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。; q2 ~) h/ W) G
0 I3 I/ F: H; b- kHWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);5 |0 V! f* i6 `! |
y4 X% ]' ^& ]; _( o/ ^
●使用IP控件●
9 `6 G4 e. E/ n! b在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:
7 a/ P9 W+ y* n6 T! M8 W0 d% w5 V2 f0 L' R' ^- ]+ d: D3 M
消息常量 消息值 作用 参数及返回值' u5 ^. h2 S* H/ E; _" [ }
IPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无
& b2 w( D. Z- tIPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值
8 h: k3 t) }( p# o LIPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。 ' k% Z. f8 l+ _7 n4 X8 d# ~
IPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
" q1 }$ t4 N1 f) K. q$ E2 |8 `. TIPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点1 C% M8 g# E1 z- }8 U6 ]
IPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值:若为空,返回非0;不为空,返回0
; a6 U7 X& U; S( h; ^- Q* M2 M' U u
★㈠清空IP串(IPM_CLEARADDRESS)★
h$ e6 ~' P1 D4 q; QSendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);& d" c4 W# w8 Z6 Y; }
. K- G$ m3 C. Q) N0 x9 m
★㈡设置IP串(IPM_SETADDRESS)★
6 C7 m8 l. D4 N4 fint nIP;, T0 _4 U* i2 A+ |, {
nIP=MAKEIPADDRESS(192,168,0,1); ) `3 U- j1 w$ `; ~! ]& Z, J3 f0 Y
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);0 w) p5 r! B, G7 l
4 q0 n! Q8 m5 `
此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:
$ p- }! a: k$ F/ P8 A6 [#define MAKEIPADDRESS(b1,b2,b3,b4)4 o, e( {( w& G/ w
((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))3 y' u! d, A5 m, }6 f# b' x
- }1 m: i' |( |9 `4 i8 g" |★㈢获取IP值(IPM_GETADDRESS)★! y* f5 _) D3 ^
int nIP;
4 s; f/ M3 L+ ~* Q7 }6 G: LSendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));
; l6 e- Y& @; {3 ^$ p//nIP++;
2 t' l6 m& u+ ]: d0 X8 U! y, \//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。
! D4 s+ S* _: r7 a/ F
' P' s M5 }8 ]9 _- l. t若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
( ^0 Y( K" h% @8 _3 G. L) J! m+ p' M1 K) F
★㈣设置取值范围(IPM_SETRANGE)★0 I0 A& U9 h% U2 a$ m. c& K4 R
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);" ?' w7 k1 G( F9 K
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。/ p: [, l2 _# f8 V$ z
# ]9 d! [# X; w★㈤设置输入焦点(IPM_SETFOCUS)★/ @# A8 F# Q* } i4 k
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);
1 [, L& d/ B4 p' W//将输入焦点设在IP控件的第四部分。
* Q, q! _) z" O
8 F% K$ A: u+ ?5 g0 ^㈥判断IP串是否为空(IPM_ISBLANK)
5 R6 g% b' z& Dif(!SendMessage(hIpEdit,IPM_ISBLANK,0,0)) 5 X( x0 [; k+ T; `
{
% a: u! I4 j+ f //IP控件中的IP串为空
( S7 ^. r5 {" ]}) o5 d R* W2 t' n+ m
else7 s/ q0 K. W5 z
{
, m% U2 E& m9 c1 q$ T6 d. Z //IP控件中的IP串至少有一部分不是空的
' H5 N# c, C$ w9 ^, t}. t2 A2 F8 c3 B. T) D; V% S6 {7 ?
$ H0 c' y8 s+ U3 u
●IP控件的通知消息●. q9 A$ d) p5 E$ z4 L. L+ }
当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:
8 F4 H5 @9 v3 d& x8 D
; {9 k3 p' J |% B; Avoid __fastcall TForm1::WndProc(TMessage &Msg)- K/ ]+ [/ i. U* w" P
{
0 Q5 R0 j$ A6 |+ ]( e; f LPNMHDR p=(LPNMHDR)Msg.LParam;4 a2 N8 ]3 g7 v( p7 ?5 E4 r
if(Msg.Msg==WM_NOTIFY)% U# L$ F( D7 _
{
[( `% A0 ^" N) \. c if(p->code==IPN_FIELDCHANGED)
+ y0 X) u0 k0 \" z1 z% \& y {; B: }6 g/ Z# |9 [
//处理IP控件的IPN_FIELDCHANGED通知消息
1 I+ H; p1 y- J }
" ~! a6 @9 H4 k$ J/ i }% b4 _8 \3 }6 ?( N! Q
TForm::WndProc(Msg);
" E# u) n; ]. `2 a+ N/ h} |
|