|
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。+ H) R4 U. g. p$ g1 w* d
欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=592
8 k% _* P9 m: g8 }本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:
& y+ {% O: D) f1 Z4 Q2 O标题:在Delphi中使用IP控件2 K3 F" D4 R/ H# v) X/ O9 J
作者:西安交通大学9649# 刘明华, J6 u: G$ H3 |5 K
在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。
$ G/ {* O0 z, p' W" ?. y) d如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com
h+ [; T1 N$ F8 p# Gccrun(老妖)(www.ccrun.com) 2003.10.290 ~- N ?: @+ [0 e2 C7 T8 [; g
n, r3 U _! B/ U4 p在网络程序中,我们常常碰到需要用户输入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 c8 u. y0 ]- Y: R5 c
; b0 A8 N: p7 B5 Y) xWindows中有两个非常重要的动态联结库:commctrl.dll和comctl32.dll,它们是Windows的自定义控制库(Windows Common Controls)。自定义控制库中包含了许多常用的Windows控件,如Statusbar,Coolbar,HotKey等;在C++ Builder中,这些控件大多数都已被包装成可视化控件了。在Microsoft推出Internet Explorer 3之后,自定义控制库中新增了一些控件,其中就包括Windows的IP控件(IP Address edit control)。
% U% Y( |6 I7 S) N L- D$ _6 q# {, |% t
●初始化Windows自定义控制库●( a& j6 ^8 M$ s Z
Windows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:
/ o4 \$ ]9 B$ O4 f4 Y) X8 _; G. T0 |+ r1 b, n
typedef struct tagINITCOMMONCONTROLSEX {
2 {7 ]$ L7 x5 F" U DWORD dwSize; // size of this structure
9 W, X: V1 N7 v DWORD dwICC; // flags indicating which classes to be initialized
( G8 R4 _6 }: }" R1 a} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;
) {5 L! Y2 v2 s3 D9 E; {) v6 L
3 z& W3 `1 O( F5 aWINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
+ K, t0 ^% ~/ q- e$ ^% T% j
& u" M1 E4 A4 bIP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:' _3 L$ `1 m' V- R
% n) q6 D2 B. f* v9 f6 b, M( g: c
TInitCommonControlsEx ICC;; c8 B9 u0 I; \0 w; a& i( Q
ICC.dwSize = sizeof(TInitCommonControlsEx);
( @' s- B" c# y) y7 QICC.dwICC = ICC_INTERNET_CLASSES;' M E' _/ ]+ P/ C, t- j9 j( n ~
if(!InitCommonControlsEx(&ICC))) d0 B: h& Q$ R& n- Q+ j5 g
return; //初始化组件失败
7 M( L* r/ y, |0 k: o/ L
7 O5 }. r) ~7 T, o●创建IP控件●
# t4 G- P2 F: ~+ F+ UWindows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。
+ w& R: T$ a* Y9 ^
. W; p( p; R5 UHWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
& V# s* R+ L0 C
. [1 E) i3 W- }% f●使用IP控件●! _9 ~% q* V* Y, C, `7 ^) O5 E
在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:; R7 Y9 D& b$ P+ F' W* W' t. \
1 @* @. I$ M% e; g2 P
消息常量 消息值 作用 参数及返回值
$ _' J/ w. H- X2 qIPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无
- T+ t+ e# i6 wIPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值- Z4 h5 q7 z- o5 i! F r. Q, q
IPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。
; e" G1 g( A1 X9 D% EIPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。9 F3 } Y% z3 z1 f5 V! L: i
IPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点
: \8 ~/ `: P# AIPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值:若为空,返回非0;不为空,返回0$ {5 U! W1 T( S: t$ s5 w
8 ~+ j8 L, Q) Q+ r# r
★㈠清空IP串(IPM_CLEARADDRESS)★
3 e* P" h) Y4 A' K6 H6 z0 |SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);8 t8 h. j& l0 q& _+ b& `
+ ^+ s1 k' L2 J7 P! s
★㈡设置IP串(IPM_SETADDRESS)★
r2 T0 B! L! {/ u& s+ eint nIP;4 Z; o! q, Y8 P# k7 t( }" D$ u1 S% O
nIP=MAKEIPADDRESS(192,168,0,1); ! [+ z! P: U# h# M* U" p: }
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);% s% S7 e$ o' L+ t7 j
7 l6 q9 X" @( e ?6 h9 p
此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:# r4 h7 U& |; r% P) N
#define MAKEIPADDRESS(b1,b2,b3,b4)! Y9 |; _" j Y, @/ O0 N: n
((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
2 L7 g! u" Q3 o+ W+ n E4 ~$ J" d( n c
★㈢获取IP值(IPM_GETADDRESS)★
4 V. g; C, R: R! X% I- ~int nIP;
3 r) ?4 q; z, n! W( n y- W" E" K% eSendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));" k Z1 j: P7 N& G7 V1 a* h
//nIP++;
7 E) _; {, [) y1 _//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。1 _8 [3 _4 K8 N T( k1 y
3 ~! @ L, q4 |' x9 b2 M5 X: u若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。) X, H7 \( v6 Q, f4 j8 f" N
2 E: L7 N; j8 {8 u; @★㈣设置取值范围(IPM_SETRANGE)★
2 y9 _( M% x0 ]5 ^) D2 K; SSendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);1 U& g/ [6 X4 q2 e) `, p: P
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。$ y. _, j+ [# p- |
) C) d' k& [( d+ u
★㈤设置输入焦点(IPM_SETFOCUS)★
: i+ Y$ C, o3 g6 V8 @SendMessage(hIpEdit,IPM_SETFOCUS,3,0);
8 Q+ \. N" i" q8 u- @//将输入焦点设在IP控件的第四部分。
& e( ]8 B* ^7 \1 n) z& V* B+ U( U
㈥判断IP串是否为空(IPM_ISBLANK): o. V1 @4 P* Q0 Q% W7 s! E
if(!SendMessage(hIpEdit,IPM_ISBLANK,0,0)) 6 |2 O/ Y" t7 c) g
{5 z4 Y, A/ I8 Y5 u0 G6 ^; A7 }
//IP控件中的IP串为空+ t J! |8 }) s }! W
}; F9 a e/ t% V4 @3 G4 w
else: Y$ @- |" a8 j3 C: Y
{7 S* g1 n4 u4 ^" b; \5 t, s" Z
//IP控件中的IP串至少有一部分不是空的: |5 w) p( B6 t* A
}+ N D% w n$ D
3 O0 V U" J' r+ R' U! @) p0 ?
●IP控件的通知消息●
M p9 C; z) w+ v. H( w当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:) u; o1 A& q6 h( J% E" c$ K( L5 m
7 P* C: ]9 j S$ m$ V# D
void __fastcall TForm1::WndProc(TMessage &Msg)0 y# d9 c" e2 n8 q1 D5 A
{
, r2 H7 d- b* t" ` LPNMHDR p=(LPNMHDR)Msg.LParam;
9 S0 t5 ]+ ]8 Q' O0 o/ N if(Msg.Msg==WM_NOTIFY)
0 P8 B; b1 L% |' a6 _, I% d1 _ S- A {
- K; x" U9 ]" B; o' ^, a/ P' |* _ if(p->code==IPN_FIELDCHANGED)
2 [3 z, m# A: f0 J# m0 E# k% z {1 l* {2 x. i5 a8 @2 t5 c: [
//处理IP控件的IPN_FIELDCHANGED通知消息
' q% P8 [" H: c; c/ X }
- k7 n( L9 g2 c" G( ? }9 `+ S8 T( M$ Z) p6 D+ }' ]0 m
TForm::WndProc(Msg);5 _. n9 i0 N0 H; N* w& {4 a: ]2 H
} |
|