|
|
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。
8 d4 T7 ?5 E! N+ s$ M* g7 R欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=592
# L* ?0 {, G% v* H( b! ^5 X; |本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:4 y, k# x) s- x( w" h( |/ d
标题:在Delphi中使用IP控件
# ]5 u3 Z( |# [; t8 D# Z* q作者:西安交通大学9649# 刘明华+ J1 ^, w2 Y; x5 P6 @3 K9 |
在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。
$ b X& N* A4 y; X4 G# G( n) r( W如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com
" h& r6 j& m( Hccrun(老妖)(www.ccrun.com) 2003.10.292 J; c( u$ }# n( R6 h5 |
+ y& P1 O2 v) B- l S' o g在网络程序中,我们常常碰到需要用户输入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控件。
" b+ t+ r% V. I0 `! n+ f1 @3 p3 }" e M: n4 a. Q9 R' 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)。
+ }( S) i0 ~) ^3 Q @& ~* b! T5 P# n9 Q& ?3 S7 y C
●初始化Windows自定义控制库●
$ z" ^/ Q& J5 [/ H a) ?# yWindows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:; b' _, O: B. G2 `; O7 t4 h
* u: T2 X" P# P" P$ W0 `typedef struct tagINITCOMMONCONTROLSEX {+ I$ x# u; G6 k1 o3 h
DWORD dwSize; // size of this structure5 x) x6 {& T$ p: a3 O L
DWORD dwICC; // flags indicating which classes to be initialized
! ?( T# F) n! F1 K$ P} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;
# V7 |, R: X+ `( ^$ E& v( L% ]" z1 D3 X7 N+ v( F- b
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
6 O* o! d" `- I, B* G* F0 m ~5 S" X, n6 L
IP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:
% Y' w6 J/ J M' ], H# X' F
% T+ r- y1 y. J+ wTInitCommonControlsEx ICC;
% z0 e& z& i# A. A5 PICC.dwSize = sizeof(TInitCommonControlsEx);# c! _" v; b1 t8 y
ICC.dwICC = ICC_INTERNET_CLASSES;
8 ? b1 b* `# U9 B Vif(!InitCommonControlsEx(&ICC))) \- k* F L+ w! r7 J/ s( W
return; //初始化组件失败
& s7 q. s6 ]( ?2 d# m% F4 s2 W/ G, u7 K
●创建IP控件●
! K/ a" J6 Y yWindows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。8 X+ M; c, T ?9 r
S/ i: _, _, O' G! m& X7 Y( X, _
HWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL); h0 q1 a1 v1 s
: T i' n4 X$ j
●使用IP控件●2 v# R6 \4 E) g) l! i0 Q
在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:
: S) ?& I4 `0 K; \, D; x0 I2 }1 ]8 W. r- {
消息常量 消息值 作用 参数及返回值
. w& |9 q& W, B8 S1 rIPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无
8 e$ p6 A k3 m/ R0 w4 uIPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值+ p3 G$ t+ t6 M& y! ~/ A0 o% k
IPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。 ; f* m: {: {2 W5 @& Y3 j1 b2 R
IPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
7 M! F+ Z) }( P6 D$ @/ r; f: Y" rIPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点
7 h/ ]# `1 m! T' u. V4 ~ ^& RIPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值:若为空,返回非0;不为空,返回0
# Z8 {1 L% Y$ n$ I0 t6 X( O
3 I1 K1 a- i v; p0 Z* g# D$ ?* s★㈠清空IP串(IPM_CLEARADDRESS)★
. s, h6 r5 {* u; k( \* [7 ^! dSendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);3 Z Y& [& v/ o* T2 e3 e
8 y0 W5 v- L4 `& i+ Y
★㈡设置IP串(IPM_SETADDRESS)★
. t. d* {0 U) I3 t0 U! b! rint nIP;& s3 f- T j4 m& g* D- l
nIP=MAKEIPADDRESS(192,168,0,1); / t4 S) M/ X$ T' w p9 j, O& b
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);0 J& X5 K, F9 w! |
( a5 o$ q5 p% e( s6 ?8 s此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:, L9 _( B0 X6 q# c4 ? N
#define MAKEIPADDRESS(b1,b2,b3,b4)4 D" o, s3 W$ F9 K6 t) C6 i
((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
: Y2 Y9 J$ k+ f4 l% J. k
! Y; q9 i/ \# u0 N+ j★㈢获取IP值(IPM_GETADDRESS)★
; V- O# g$ T* h+ e6 r' R* pint nIP;0 E! _% D* R9 `; {5 k" i7 C
SendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));
) P L6 O* L! e+ b! ]//nIP++;8 B0 g+ u: [0 j$ C% }4 {! }+ t
//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。
% d8 j! P$ P( i% h9 z/ k$ c. v5 a- }' U9 T8 e0 r
若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。9 |; g5 l `6 T
: u) n' [! |6 o0 o2 _★㈣设置取值范围(IPM_SETRANGE)★6 d& i- w% w: N1 M3 C
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);, J# b. d' K' @' Q8 J" @
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
. v+ y# a1 i E) }6 u1 R# X2 b n" o5 M
★㈤设置输入焦点(IPM_SETFOCUS)★4 H( x0 T+ @, V, S8 O% J0 [5 q" P3 X
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);/ l6 n0 J1 Y, [
//将输入焦点设在IP控件的第四部分。
* L5 j) ?1 E: p% h$ i' e) O
! v& B6 L T8 @1 F㈥判断IP串是否为空(IPM_ISBLANK)
) _" h5 \0 s( v$ g4 vif(!SendMessage(hIpEdit,IPM_ISBLANK,0,0))
, }* O# A6 J2 Z0 z{% k6 ~3 u9 K4 V, R( i
//IP控件中的IP串为空- P- }6 E2 z, T+ R) v. J
}
" [' ?# g) t; b- D1 Velse
% Q$ D/ M0 X% s4 m+ A% i{
" g# @/ q4 K& i //IP控件中的IP串至少有一部分不是空的
% I( v4 U" K" q: i9 i8 ^2 B}
7 w$ Z& u O2 u0 a4 r8 @& f$ Q$ q7 W# n3 ?
●IP控件的通知消息●
" {# E6 w+ F9 h; T. D3 Y. o1 K' O当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:
0 S$ R9 R% g" L/ {. D9 n; `$ H8 ?. u2 y3 M' {
void __fastcall TForm1::WndProc(TMessage &Msg)5 [- C% j [9 D' ?% _7 O$ D
{4 Y+ K/ l& P' w3 M6 H
LPNMHDR p=(LPNMHDR)Msg.LParam;
- }% G& @1 L a. M, h if(Msg.Msg==WM_NOTIFY)# v! E( W; \" T2 H; K- y
{- W4 o: q# t L
if(p->code==IPN_FIELDCHANGED)5 _( ? \1 [% E/ J% Y
{ d! ~% W. \9 R
//处理IP控件的IPN_FIELDCHANGED通知消息2 Z- e9 J0 M! T2 O! i* L
}
8 ^% e! {8 t+ |7 q# J4 q }6 l1 k0 J3 S. @- M
TForm::WndProc(Msg);
4 V6 h4 U7 o7 l3 J. Q2 Q* m( A} |
|