|
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。' T' x7 g1 D3 B
欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=592. o% w% @/ \3 W% g2 K/ V4 x* H8 M
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:
8 w, X# Z7 }4 g- M标题:在Delphi中使用IP控件
' y: u& ~& h: I3 H7 y, n- ^& w8 ]作者:西安交通大学9649# 刘明华
N9 N5 V( v) I8 F4 V在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。! n) C! a' | Q7 w {( s) a: \( K: E
如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com
/ k! ^9 Q7 n2 W3 [ccrun(老妖)(www.ccrun.com) 2003.10.29
) {7 I6 n7 B+ b6 w- i
( ~) Y* W5 @3 |在网络程序中,我们常常碰到需要用户输入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控件。
- B2 i8 N2 N% `+ I- Z% {9 U
) @' [1 s @# v8 F0 ^* E; nWindows中有两个非常重要的动态联结库:commctrl.dll和comctl32.dll,它们是Windows的自定义控制库(Windows Common Controls)。自定义控制库中包含了许多常用的Windows控件,如Statusbar,Coolbar,HotKey等;在C++ Builder中,这些控件大多数都已被包装成可视化控件了。在Microsoft推出Internet Explorer 3之后,自定义控制库中新增了一些控件,其中就包括Windows的IP控件(IP Address edit control)。
~+ d) R: i* q N! R5 c: H" _2 _6 T# ~9 m' A/ o( ^
●初始化Windows自定义控制库●* m$ M0 Z8 \8 M9 h& C6 N
Windows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:3 n3 Y, T, k: A6 M' t
- U8 K: c0 o/ ^
typedef struct tagINITCOMMONCONTROLSEX {
8 T* l! h# `, ` DWORD dwSize; // size of this structure4 O0 i0 Y* q3 D
DWORD dwICC; // flags indicating which classes to be initialized: |. H: c" f( z8 ?: H) V4 J
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;( M' m9 o5 e( T
! G7 y% _8 H7 Q; q$ t% V
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
9 Q- [5 S2 K- V+ z z* e& A
( V( `6 }0 G9 L1 e) a! XIP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:1 D& y( y! a6 Y4 h) g( a5 x
* [! E8 s, f: y* N. _TInitCommonControlsEx ICC;
6 A% C$ o% X$ K5 D6 I1 NICC.dwSize = sizeof(TInitCommonControlsEx);
( p! ?0 ]% E- NICC.dwICC = ICC_INTERNET_CLASSES;& }% ]( ?- u& i% E' ^3 @
if(!InitCommonControlsEx(&ICC))6 r( @9 Y1 X5 O2 ~% O, `( g
return; //初始化组件失败
# _% x0 m% K; i% m3 P* [7 K! x1 y& q1 N3 h6 T) |1 z
●创建IP控件●5 w( A. j5 Q% C
Windows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。
% l5 [8 E8 E2 n& ~+ R; T7 I- b/ k
# p$ h) n7 F4 O* V5 LHWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);1 V6 T. z- t# m! h# L
* }: s) M' M: G●使用IP控件●
* ?; L/ S; [# r! }# U8 Z, g" p在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:
3 d7 a$ Z- d) A- s
/ w+ m) c6 G2 E2 x消息常量 消息值 作用 参数及返回值
& ]) I6 l. M+ T! VIPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无
1 e7 y/ z4 Y$ U* F' Z# M0 F3 T# bIPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值' g0 C ]5 A3 G r( t
IPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。
* X8 Y2 `+ U3 u& }& i, {* HIPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
9 o i0 d1 ?8 mIPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点* \+ `. d v+ H5 B
IPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值:若为空,返回非0;不为空,返回0
3 O3 z" P$ ?* E+ G; U$ K5 [: H* v" I. W- |" E. O6 E
★㈠清空IP串(IPM_CLEARADDRESS)★" y/ G/ y2 [# ^. `4 q6 b* g$ C( k
SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);
! U, v& e* Y. B6 j! k9 ?
$ s- m% p/ l" k8 m. L★㈡设置IP串(IPM_SETADDRESS)★* b+ f! p, ^# C: P9 T
int nIP;, [8 o6 T2 z+ Z x) _8 h
nIP=MAKEIPADDRESS(192,168,0,1);
7 D- O8 H+ a1 |2 DSendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);3 U! m5 d. O/ E/ c: j; N( @
$ ~7 o- f* S$ c
此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:% U- L0 Z. u9 S7 V/ o9 M7 s# p
#define MAKEIPADDRESS(b1,b2,b3,b4)
8 D- p9 P( ~3 R+ @((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
8 v+ f$ a/ M7 ?$ e
- d. ^; r w+ y0 {★㈢获取IP值(IPM_GETADDRESS)★, U. _& m3 v$ n- ^5 m. w
int nIP;+ O' a0 G0 L6 j+ x: [$ z' N q
SendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));
6 t6 G; H: g* t2 x7 {4 n//nIP++;' m; u& ^5 o, t$ c
//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。2 q4 g4 u5 ]3 j' @- |
' v, h) m: ~6 {" k( G/ a0 q/ @; k若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
* `+ m0 r8 J1 H3 s" r1 Z' {; b! q. \. l# d/ A
★㈣设置取值范围(IPM_SETRANGE)★& ?6 W Y5 W6 I( W ^0 p2 h
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);8 W1 h- J& b2 l ^4 f
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
r! h+ l$ ]; U* H
( n: O. I+ d9 a★㈤设置输入焦点(IPM_SETFOCUS)★, b, \% a; Y. s1 F& y
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);& W4 Q# [9 Q' Q! k4 F$ R
//将输入焦点设在IP控件的第四部分。
; N+ g* A; [; x5 N7 z! _; g& u1 U3 [4 N+ `. z
㈥判断IP串是否为空(IPM_ISBLANK)
: W4 X) T2 s9 F5 q" N" sif(!SendMessage(hIpEdit,IPM_ISBLANK,0,0))
1 d3 b) C+ [- ~# K0 |7 Z{
) S- t! Z. t( D) u* S# }. x4 G //IP控件中的IP串为空6 @3 t% l/ i! e+ z; }7 T9 G' S* ^5 J
}) a3 a* x6 Z% Z" m& U4 I0 W
else6 j. s1 Z: N+ _
{) U' [4 _0 \* {9 [0 i6 \
//IP控件中的IP串至少有一部分不是空的* B; C s9 G' K6 H6 o
}0 A5 @/ Z1 S1 x2 ^' Z
/ N; }* }- a& r6 ~6 `6 _
●IP控件的通知消息●
+ r" K* d& k- }* U& ^1 [当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:. b, p7 ~4 o2 h6 O) l
4 `; X* R v( ]% b5 r$ k! b; ^
void __fastcall TForm1::WndProc(TMessage &Msg)( q5 c) i* ?$ f9 t6 U
{
* `% H0 g+ A$ t( k( | LPNMHDR p=(LPNMHDR)Msg.LParam;: K9 }5 z G. {" _. I% n$ c7 N
if(Msg.Msg==WM_NOTIFY)
- T9 A6 K; \' `5 X F/ Z {
# ^. K2 m- q T$ z3 H3 m7 c- C if(p->code==IPN_FIELDCHANGED)
1 L: a; s) E7 I' r- p& w' A7 W. j {
0 v- H8 v+ A% @/ O, W4 s //处理IP控件的IPN_FIELDCHANGED通知消息
# ^' Q4 D+ m4 O% Y }
+ K3 B+ ]+ T6 d$ j* p7 M& } }
# t) E( V- d7 P TForm::WndProc(Msg);
: k! y% P6 {, p% }" V4 ^: h! K% }} |
|