找回密码
 注册
搜索
查看: 3945|回复: 0

[收藏]使用Windows系统提供的IP控件

[复制链接]
发表于 2004-2-15 13:39:03 | 显示全部楼层 |阅读模式
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。" r& e5 C4 ?# H
欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=5927 L6 S1 K* C( P9 p5 f
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:, b- J0 ]. k/ L* X1 [3 e8 s% D
标题:在Delphi中使用IP控件
5 M! w" |8 {1 q3 c- u! R3 ^作者:西安交通大学9649# 刘明华
( U5 F3 ?& P" [+ I8 j在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。; L4 A! ~1 u, ?2 r
如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com  G  r' x7 {6 @1 ^1 ^6 c# S* p
ccrun(老妖)(www.ccrun.com)  2003.10.29
, u1 F' n! e3 e6 E; I8 }$ f
  l. n8 [) p( v: z在网络程序中,我们常常碰到需要用户输入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控件。( M7 u7 A" B' s- C( }" l5 k% _
4 u" D7 n# e* r" T' M- S" a
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)。2 v5 H$ f; \! a5 M7 R
1 K2 c5 R* |1 R3 u  I" O1 v
●初始化Windows自定义控制库●
) {1 p% a- x, m7 y& aWindows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:
6 G+ x# b( @- j& F8 I# B  y( L8 }) m' Z( [2 K$ e" v0 T7 k
typedef struct tagINITCOMMONCONTROLSEX {; I0 ]7 ?0 M- h
    DWORD dwSize;             // size of this structure
) k* C9 u  F- t3 J' q    DWORD dwICC;              // flags indicating which classes to be initialized# c8 w" M' j+ W) q' W0 u
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;9 w& e+ G) c" B0 q* b

0 Y2 M6 S, I5 c5 [4 x% P  o* `" y' \WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);* n6 \1 N& E. e( F2 i$ C+ Q

( T  _2 q* D! i1 h1 K1 U# X1 VIP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:9 Q3 A* ]- ?* l  T: H
6 e; Y$ U; o5 U+ z9 z; w
TInitCommonControlsEx ICC;. {/ o! w3 N$ d6 O0 G+ B' d
ICC.dwSize = sizeof(TInitCommonControlsEx);
- d/ c4 L, [$ nICC.dwICC  = ICC_INTERNET_CLASSES;
* U+ l6 H; d& \3 H; ]if(!InitCommonControlsEx(&ICC)): l) r7 n7 |  a
    return;  //初始化组件失败3 V' S/ N4 ^0 u

* i9 D* S' ?7 T( `* r  G$ o$ D●创建IP控件●0 H2 s) K5 A) O
Windows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。6 Z. V1 N4 c( {7 ?" F# q7 `' i: y
$ O( n7 t% l! r, D
HWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
' M4 w' L" K7 ~
! p# F7 x) x; C1 ~●使用IP控件●, C' L1 w) b" L0 N
在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:+ u1 Q% m0 B$ ]9 x* D! t6 o

* v3 M2 }& g) ^* j/ T7 d6 N: _, S! O7 s消息常量            消息值         作用                                      参数及返回值' L' Z7 u8 V0 o1 `
IPM_CLEARADDRESS    WM_USER+100    清除IP控件中的IP串                        参数无' v  N6 ~1 r/ M9 z/ j7 |
IPM_SETADDRESS      WM_USER+101    设置IP控件的IP串                          Lparam为32位的IP值
4 [+ h6 s3 ?6 V; u0 {IPM_GETADDRESS      WM_USER+102    获取IP控件中的IP串所对应的IP值(32位整数)  Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。  ' `- S7 E5 b8 f; e- U2 R
IPM_SETRANGE        WM_USER+103    设置IP控件4个部分的其中一个的IP取值范围   Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。9 q* {- D( M4 e7 l' D, h: ~; P
IPM_SETFOCUS        WM_USER+104    设输入焦点                                Wparam指明哪个部分获取焦点
# |8 \. w, ?: W1 k. V& @- }1 @9 p' W  rIPM_ISBLANK         WM_USER+105    IP串是否为空                              参数无。返回值:若为空,返回非0;不为空,返回09 t% I" U$ d5 V5 Y4 n( |
* o1 T7 {$ k' |; u+ n8 R
★㈠清空IP串(IPM_CLEARADDRESS)★
6 v$ {/ v. q$ z- {9 b, O7 fSendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);
2 d4 ^; P! H: J# x6 O3 i1 X
& t; ^9 h- `# L7 ~" @★㈡设置IP串(IPM_SETADDRESS)★5 O0 N4 I& ]! z% l
int nIP;
( s$ B% ?+ S- q- n  D$ b& m" H: }nIP=MAKEIPADDRESS(192,168,0,1); 9 K/ z7 S( Q1 H0 A3 N- v
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);
2 d0 S1 }# Y7 h. O2 J
& N9 ^1 S6 u0 X2 p此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:: c5 {4 F/ [. _% [" i
#define MAKEIPADDRESS(b1,b2,b3,b4)
, P  t/ l/ t- ?; }1 V! _: B& ?((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))" V  _+ x8 H% _* v$ f( m  ?

3 O; Z. f" Z- z★㈢获取IP值(IPM_GETADDRESS)★8 l4 I+ |  N* q9 Q9 {4 |! R
int nIP;; A4 o& L/ {7 K$ ?  {
SendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));$ U/ T  [+ f5 j7 }
//nIP++;
0 Y' k+ ^" b, o7 H  E//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);   //将IP加1再赋给IP控件。
- T1 K% Z) Q( w
6 \+ L, g2 a3 {: U若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
( S0 t# u0 v/ g: U5 e* ]" k9 ~! v. T; y7 J7 K5 Z6 f  U
★㈣设置取值范围(IPM_SETRANGE)★- g& t6 z" U+ J/ \
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);
4 N, h$ `0 G" t2 |- @8 A此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
2 X2 d; J. z; e- Z) [* M6 C) U; x
' ~: O- K7 c: G. S( m; W4 \% y★㈤设置输入焦点(IPM_SETFOCUS)★7 I. e: o9 U* Z: L* x
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);9 w# E" `  _) r( ^
//将输入焦点设在IP控件的第四部分。
+ d( M9 v6 S; i' E. ]( o" }1 K1 P* [5 |) f9 ~1 `1 t
㈥判断IP串是否为空(IPM_ISBLANK)
+ ?3 C% H0 P2 @' Cif(!SendMessage(hIpEdit,IPM_ISBLANK,0,0)) : H. v9 U* O6 N: B4 B. V
{
  }$ u2 x% ]  C# m2 Z+ r, g$ [    //IP控件中的IP串为空$ o% k1 j" m/ R2 Q4 C* }- B! [3 j
}7 W- s& M8 e( c! w$ `
else
6 N# _5 G& J$ z0 K# F+ i- i{" i) r. a7 h8 h. w3 L4 R2 ?) U
    //IP控件中的IP串至少有一部分不是空的
+ W/ ^  I! @9 h* }9 @9 h: w}6 G0 Y6 F: f! B; ]
: M- `/ U, J% @* b
●IP控件的通知消息●  u# F7 T  P  z. S9 |1 [, D
当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:2 ?+ z2 z: |3 u/ u# o

* }2 v3 I9 X( a3 K7 I: Q$ `* K# svoid __fastcall TForm1::WndProc(TMessage &Msg)
( t4 ~, q4 T4 w, A: U% G: t( G{5 ~. _& R: v" ~3 @
    LPNMHDR p=(LPNMHDR)Msg.LParam;, Q1 R( @+ a9 k" @" |$ o. q
    if(Msg.Msg==WM_NOTIFY)
4 H. W) X! U: w/ o4 `    {
0 T. ?6 h/ ^0 t; t1 ~$ P  H0 E# d        if(p->code==IPN_FIELDCHANGED): a' o. g/ B  k. x, }: L
        {
0 T+ H- \, b6 A: f            //处理IP控件的IPN_FIELDCHANGED通知消息) H/ P$ q6 l$ q3 d* S) I
        }
* P# y& E! z3 z' y, d$ e% l3 f5 s' k. q    }: L, i2 z- a/ l
    TForm::WndProc(Msg);. K: m4 w: }( H
}
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|宁德市腾云网络科技有限公司 ( 闽ICP备2022007940号-5|闽公网安备 35092202000206号 )

GMT+8, 2025-12-29 22:18 , Processed in 0.020257 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表