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

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

[复制链接]
发表于 2004-2-15 13:39:03 | 显示全部楼层 |阅读模式
作者: ccrun ,如转载请保证本文档的完整性,并注明出处。8 b$ E( K6 x+ d) k- y# E
欢迎光临 C++ Builder 研究,http://www.ccrun.com/doc/go.asp?id=592
" N' p) F! u9 ^/ d本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料:7 ~- |& Q# C& F" U, d2 ~6 G5 o4 e
标题:在Delphi中使用IP控件1 J+ k& [# P' U4 O: k
作者:西安交通大学9649# 刘明华
' C  U" L8 A4 f) ?在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。" F9 I/ f; v+ T) v: D6 |
如果这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com
7 @! E" o* O- E( u3 \/ p3 Bccrun(老妖)(www.ccrun.com)  2003.10.294 \4 m& i4 S* p4 g5 c

5 C  t- @; e3 _% B在网络程序中,我们常常碰到需要用户输入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控件。
- H9 H8 H# i9 O  k$ w0 h9 `- f% u: C3 N+ H" b7 p
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)。
" e1 E/ q# D" ]1 ]# K
$ {- O% c2 H9 n( h●初始化Windows自定义控制库●0 ?3 A7 \7 @/ _+ z) G% h! N
Windows提供了两个API函数,InitCommonControls和InitCommonControlsEx,用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系:后者是前者的增强。如果你希望在程序中使用IP控件,你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下:
3 J$ A* U8 U% a) C; H/ C* p+ v% Q, @! v2 o1 J1 }
typedef struct tagINITCOMMONCONTROLSEX {& L; Y2 v! I5 I$ v; S* }
    DWORD dwSize;             // size of this structure
4 k& U+ S6 l# k* W! D5 I- n! x    DWORD dwICC;              // flags indicating which classes to be initialized  y- T% l: o; H0 B8 S  ~. N
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;) l- J7 M. V, L6 {: H- _: |& |
4 |; ?; z2 l' G' B( c; g" S& D
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);" l/ m3 C/ Z# A( S: m6 C0 n
( G# p8 h1 g. p( E/ r+ t- w
IP控件属于ICC_INTERNET_CLASSES类别的控件,如果要使用该控件,你应该在程序中包含如下的初始化代码:
/ D7 ]& S1 `' k& K; p  \9 K5 i5 C, H8 T% c* z4 Q/ |
TInitCommonControlsEx ICC;4 s( c6 d4 C$ p8 ~) X7 E, S. G  p
ICC.dwSize = sizeof(TInitCommonControlsEx);) H4 C' h5 u) `# u5 ?
ICC.dwICC  = ICC_INTERNET_CLASSES;
9 {  i, E& c0 B+ i- j" nif(!InitCommonControlsEx(&ICC)); S0 h4 I0 Q( p$ S) _8 o! Y- Q
    return;  //初始化组件失败
$ x5 z- @9 s9 h# J, |5 z2 t2 @9 g* }! G% v; A" H7 g
●创建IP控件●6 t9 W& e1 B7 v1 t, U
Windows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为"SysIPAddress32",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。) {5 A# J4 Z1 y8 K

$ ~: `3 z  [; w1 F0 L  NHWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
& m( {( D) z  ]* {4 r- R, `) b5 P- g" Z# M
●使用IP控件●
" c, }! {9 g& R$ l在程序中,我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个,这些消息及它们的含义见下表:
' f. K, K! p5 Z$ d& g: `1 R; ]+ |" N) T
消息常量            消息值         作用                                      参数及返回值
4 f8 R: E2 U7 k$ K: _- V' vIPM_CLEARADDRESS    WM_USER+100    清除IP控件中的IP串                        参数无$ U: d/ f: P7 S5 O7 n
IPM_SETADDRESS      WM_USER+101    设置IP控件的IP串                          Lparam为32位的IP值
' M, l9 z# B7 f6 v. f3 Y) ]2 W, ^, KIPM_GETADDRESS      WM_USER+102    获取IP控件中的IP串所对应的IP值(32位整数)  Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目;获取到的IP值存放在lparam 所指向的Integer变量中。  % K# v; X+ ?) I  m3 X
IPM_SETRANGE        WM_USER+103    设置IP控件4个部分的其中一个的IP取值范围   Wparam指明要设置取值范围的部分;lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
2 s, E6 @2 D. p3 pIPM_SETFOCUS        WM_USER+104    设输入焦点                                Wparam指明哪个部分获取焦点
" ~% v4 o7 _  v) D0 bIPM_ISBLANK         WM_USER+105    IP串是否为空                              参数无。返回值:若为空,返回非0;不为空,返回03 z& N5 v, q2 W* a

) X) j; `& q; E8 ^" S+ z; e# U★㈠清空IP串(IPM_CLEARADDRESS)★/ {# X. @8 V8 c/ x# E, X
SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);& _( [: h' U+ [6 K9 I. Q6 P
  B% M7 N; U6 D; Q! D+ C& a, A
★㈡设置IP串(IPM_SETADDRESS)★
- T( d$ f& i2 J# m0 Kint nIP;
$ S- r* S4 }3 u& q% a# J0 f# |5 [nIP=MAKEIPADDRESS(192,168,0,1); ! Y1 G4 `4 w5 ]
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);
/ E6 Q9 a) D- l; M) E4 |# E
  E/ n' R4 N3 S/ ?' }此例将IP控件的内容设为"192.168.0.1",其中MAKEIPADDRESS是一个Win32宏,定义在commctrl.h头文件中,它用来合成一个32位的IP值:+ f  v" Q! t  g) |8 P9 o* d
#define MAKEIPADDRESS(b1,b2,b3,b4)8 h& g1 l* A9 B# k
((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))$ l% Y9 ?/ q4 A% w* S
! Q! p7 F9 h% Z8 Q* l$ [+ {1 ^( s
★㈢获取IP值(IPM_GETADDRESS)★
$ h( x" H  A3 U! I- T9 x1 Lint nIP;$ @6 y( X8 k4 H% \: G, Z9 v! ^8 ]$ t, G
SendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));$ N4 Q2 R6 `( ?' d8 f4 w5 z
//nIP++;' k& M. q* j7 H  e; h2 ^
//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);   //将IP加1再赋给IP控件。. n9 Z0 r. r; k# u7 \

, J' }6 A* a4 ^' e- z* Z* T若想要获取IP控件中IP串所对应的IP值,你应该向IP控件发送IPM_GETADDRESS消息,并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
/ F6 ?" v( G2 j0 m8 Y4 h. L$ j) }- r) ^! a
★㈣设置取值范围(IPM_SETRANGE)★/ z* A4 M6 Q" M+ k7 S
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200<<8|100);% r6 |% r6 a: O% `
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中,Wparam指明要设置的字段, 而lparam的低16位字为该字段的范围:高字节为上限,低字节为下限。
% e4 f; z4 W9 j3 m5 }) T, I' z. \) g. {& `8 ]$ z7 v6 Z" z
★㈤设置输入焦点(IPM_SETFOCUS)★0 Z1 j- J* G7 q9 D  L
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);
: Y9 F- w- A5 H* `; Y3 E8 c* m, P//将输入焦点设在IP控件的第四部分。
3 M. f& c# E% @$ k4 F* H9 G0 J" B, O% W; z4 @7 n4 f
㈥判断IP串是否为空(IPM_ISBLANK)  G. n: I1 ^0 U. S( [5 d' [
if(!SendMessage(hIpEdit,IPM_ISBLANK,0,0))
' V% F' y4 Q' F2 G* l{! o( ~; P, l- w
    //IP控件中的IP串为空6 W- K9 ]8 l+ @0 T& B
}' e! `6 M7 I) I
else$ P0 o* g$ G( x& G5 h# P7 q' E
{# I) r: y/ q) r; ~
    //IP控件中的IP串至少有一部分不是空的
2 H% r1 h: n! c9 r}
$ P8 ]9 A/ Z5 K% L* j$ X9 Y$ i2 e/ E( H% v7 O- H- o
●IP控件的通知消息●3 Y5 r! Q( Y) c4 J/ a4 A
当IP串被改动后或者输入焦点发生了转移,IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下,我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例:
% {& ~+ o  x! s( S& C
: q$ ^! [( u& F- u$ evoid __fastcall TForm1::WndProc(TMessage &Msg)7 r8 B, o1 d. h) ^
{. N8 C6 i6 ~7 D" Y" c2 z
    LPNMHDR p=(LPNMHDR)Msg.LParam;
/ [2 y" h5 Q; \' G    if(Msg.Msg==WM_NOTIFY)5 F8 q& g- e# p6 [4 B  w- \
    {
% G% J5 w$ b# A2 D' t+ a        if(p->code==IPN_FIELDCHANGED)& _, j, p' Y' C8 @9 ~
        {" y4 S% W) W) o3 D4 W' P
            //处理IP控件的IPN_FIELDCHANGED通知消息
6 T, _8 {, o- r# W8 P& {        }
3 P  f+ {" y' A. S$ D+ m0 G# x2 R    }
& [; L! f3 H5 K. Y7 t5 j' a    TForm::WndProc(Msg);
# D9 p3 ~1 Y7 [, W: V}
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-5-5 06:14 , Processed in 0.015751 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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