http://www.ithome-cn.net/technology/delphi/de085.htm
一、IP控件的属性、方法及事件
本文将为Delphi/C＋＋ Builder的IP控件实现下面的属性、方法和事件。它们的简单介绍如下：
IP属性：IP控件中的IP地址值(32位整数LongWord)。为了获取IP控件的IP值，我们只需要读取此属性即可；通过对IP属性赋值，我们就能够改变IP控件的内容。
Field0..Field3属性：Field0到Field3分别为IP控件的4个部分的值。这四个属性也是为了读取和改变IP控件的IP值而设置的。
Field0Range..Field3Range 属性：Field0Range到 Field3Range限制IP控件各部分的取值的范围。
Blank属性：判断IP控件的IP串是否为空，此属性为只读属性。
About属性：在Object Inspector中点击它可以显示控件的版本信息，添加此属性是为了提供一个编写属性编辑器的简单例子。
以下属性继承自TWinControl类：Font、TabOrder、 TabStop、 ParentShowHint、ShowHint、Hint及Visible。
TIPEdit的事件属性有：OnFieldChange、OnChange、 OnEnter以及OnExit。
Clear方法：清空IP控件中的IP串。
SetFieldFocus方法：设置IP控件的输入焦点。
二、IP控件的实现
//文件名：IPEdit.PAS
{～～～～～～～～～～～～～～～～～～～～～～～}
// IP address edit control for Borland Delphi 5
// Implemented by Simon Liu (simon_liu@263.net)
{～～～～～～～～～～～～～～～～～～～～～～～}
unit IPEdit;
interface
uses Windows, Messages, SysUtils, Classes,
Forms, Controls, ComCtrls, CommCtrl, DsgnIntf;
type
TFieldRange = record
LowRange: Byte;
HighRange: Byte;
end;
TFieldChangeEvent = procedure(Sender: TObject;
OldField, Value: Byte) of Object;
//定义TAboutProperty属性编辑器
TAboutProperty = class(TPropertyEditor)
public
procedure Edit; override;
function GetAttributes: TPropertyAttributes;override;
function GetValue: string; override;
end;
TIPEdit = class(TWinControl)
private
fAbout:TAboutProperty;
FIP: LongWord;
FFields:array[0..3] of Byte;
FFieldRanges: array [0..3] of TFieldRange;
FCreating: Boolean;
FOnChange: TNotifyEvent;
FOnEnter: TNotifyEvent;
FOnExit: TNotifyEvent;
FOnFieldChange: TFieldChangeEvent;
procedure SetIP(Value: LongWord);
function GetIP: LongWord;
function GetField(Index:Integer):Byte;
procedure SetField(Index:Integer; B:Byte);
function GetFieldRange(Field: Integer):
TFieldRange;
procedure SetFieldRange(Field:integer; Value:
TFieldRange);
procedure SetIPAddress;
function GetBlank: Boolean;
procedure WMNotifyFormat(var Message: TMessage);
message WM_NOTIFYFORMAT;
//处理IP控件的通知消息IPN_FIELDCHANGED
procedure CNNotify(var Message: TWMNotify);
message CN_NOTIFY;
procedure CNCommand(var Message: TWMCommand);
message CN_COMMAND;
procedure WMSetFont(var Message: TWMSetFont);
message WM_SETFONT;
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override;
procedure DestroyWnd; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
//清除IP控件中的IP串
procedure Clear;
//设置IP控件的输入焦点（field的有效取值为0..3）
procedure SetFieldFocus(Field:Byte);
published
//判断IP控件的IP串是否为空
property Blank: Boolean read GetBlank;
//Field0到Field3分别为IP控件的4个部分的值
property Field0: Byte index 0 read
GetField write SetField;
property Field1: Byte index 1 read
GetField write SetField;
property Field2: Byte index 2 read
GetField write SetField;
property Field3: Byte index 3 read
GetField write SetField;
//Field0Range到Field3Range
限制IP控件各部分的取值的范围
property Field0Range: TFieldRange index 0 read
GetFieldRange write SetFieldRange;
property Field1Range: TFieldRange index 1 read
GetFieldRange write SetFieldRange;
property Field2Range: TFieldRange index 2 read
GetFieldRange write SetFieldRange;
property Field3Range: TFieldRange index 3 read
GetFieldRange write SetFieldRange;
//IP地址值(32位整数LongWord)
property IP: LongWord read GetIP write SetIP;
//The About box
property About:TAboutProperty read fAbout;
//事件属性
property OnChange: TNotifyEvent read FOnChange write
FOnChange;
property OnEnter: TNotifyEvent read FOnEnter write
FOnEnter;
property OnExit: TNotifyEvent read FOnExit write
FOnExit;
property OnFieldChange: TFieldChangeEvent read
FOnFieldChange
write FOnFieldChange;
//以下属性继承自TWinControl控件
property Enabled;
property TabOrder;
property TabStop;
property ParentShowHint;
property ShowHint;
property Hint;
property Visible;
end;
procedure Register;
implementation
{～～～～～TAboutProperty～～～～～～～～～～～}
procedure TAboutProperty.Edit;
begin
Application.MessageBox(
‘TIPEdit for Delphi 5'＃13
＋‘(C) 2000 by Simon Liu'＃13
＋‘Email:simon_liu@263.net',
‘About TIPEdit',MB_ICONINFORMATION);
end;
function TAboutProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog, paReadOnly];
end;
function TAboutProperty.GetValue: string;
begin
Result := ‘(Simon)';
end;
{～TIPEdit～～～～～～～～～～～～～～～～～～}
constructor TIPEdit.Create(AOwner: TComponent);
var
i: integer;
begin
//初始化ICC_INTERNET_CLASSES类控件
CheckCommonControl(ICC_INTERNET_CLASSES);
inherited Create(AOwner);
for i:= 0 to 3 do
begin
FFieldRanges[i].LowRange:= 0;
FFieldRanges[i].HighRange:= 255;
FFields[i]:=0;
end;
FIP:=0;
Height:= 25;
Width:= 152;
TabSTop:= True;
end;
procedure TIPEdit.DestroyWnd;
begin
inherited DestroyWnd
end;
destructor TIPEdit.Destroy;
begin
inherited Destroy;
end;
procedure TIPEdit.CreateParams(var Params:
TCreateParams);
begin
inherited CreateParams(Params);
CreateSubClass(Params, WC_IPADDRESS);
with Params do
begin
end;
end;
procedure TIPEdit.CreateWnd;
begin
FCreating := True;
try
inherited CreateWnd;
SetIPAddress;
finally
FCreating := False;
end;
end;
function TIPEdit.GetBlank: Boolean;
begin
Result:= Boolean(SendMessage(Handle, IPM_ISBLANK, 0, 0));
end;
procedure TIPEdit.Clear;
begin
SendMessage(Handle, IPM_CLEARADDRESS, 0, 0);
end;
procedure TIPEdit.SetFieldFocus(Field:Byte);
begin
SendMessage(Handle, IPM_SETFOCUS, Field, 0);
end;
function TIPEdit.GetFieldRange(Field: Integer): TFieldRange;
begin
Result:= FFieldRanges[Field];
end;
procedure TIPEdit.SetFieldRange(Field: Integer;
Value: TFieldRange);
begin
if Value.LowRange > Value.HighRange then exit;
if (FFieldRanges[Field].LowRange <> Value.LowRange) or
(FFieldRanges[Field].HighRange <> Value.HighRange) then
begin
FFieldRanges[Field]:= Value;
SendMessage(Handle, IPM_SETRANGE, Field,
MakeIPRange(Value.LowRange, Value.HighRange));
end;
end;
function TIPEdit.GetField(Index: Integer): Byte;
begin
if (Index>=0)and(Index<=3) then Result:=FFields[Index]
else Result:=0;
end;
procedure TIPEdit.SetField(Index:Integer; B:Byte);
begin
if (FFields[Index] <> B)then
begin
FFields[Index]:=B;
SetIPAddress;
end;
end;
procedure TIPEdit.SetIPAddress;
var
i:LongWord;
begin
i:=MAKEIPADDRESS(FFields[0], FFields[1], FFields[2],
FFields[3]);
SendMessage(Handle, IPM_SETADDRESS, 0, i);
FIP:=i;
end;
procedure TIPEdit.SetIP(Value: LongWord);
begin
if (FIP <> Value) then
begin
FFields[0]:= First_IPAddress(Value);
FFields[1]:= Second_IPAddress(Value);
FFields[2]:= Third_IPAddress(Value);
FFields[3]:= Fourth_IPAddress(Value);
SetIPAddress;
end;
end;
function TIPEdit.GetIP: LongWord;
begin
SendMessage(Handle, IPM_GETADDRESS, 0,Integer(@Result));
end;
procedure TIPEdit.WMSetFont(var Message: TWMSetFont);
begin
//不可以调用父控件的此方法
//否则，控件不能正常工作
end;
procedure TIPEdit.WMNotifyFormat(var Message:
TMessage);
begin
with Message do
Result := DefWindowProc(Handle, Msg, WParam, LParam);
end;
procedure TIPEdit.CNNotify(var Message: TWMNotify);
var
pNM: PNMIPAddress;
begin
with (Message.NMHdr)^ do
begin
case Code of
IPN_FIELDCHANGED:
begin
pNM:=PNMIPADDRESS(Message.NMHdr);
if (pNM^.iField>=0)and(pNM^.iField<=3) then
FFields[pNM^.iField]:=pNM^.iValue;
if Assigned(FOnFieldChange) then
FOnFieldChange(self, pNM^.iField, pNM^.iValue);
end;
end;
end;
end;
procedure TIPEdit.CNCommand(var Message: TWMCommand);
begin
case Message.NotifyCode of
EN_CHANGE:
begin
if not FCreating then
if Assigned(FOnChange) then FOnChange(self);
end;
EN_KILLFOCUS: if Assigned(FOnExit) then FOnExit(self);
EN_SETFOCUS: if Assigned(FOnEnter) then FOnEnter(self);
end;
end;
//注册TIPEdit控件以及TAboutProperty属性编辑器
procedure Register;
begin
RegisterComponents(‘Simon', [TIPEdit]);
RegisterPropertyEditor(typeInfo(TAboutProperty),
TIPEdit, ‘ABOUT', TAboutProperty);
end;
end.
使用Windows系统提供的IP控件
http://topic.csdn.net/t/20031225/09/2600578.html
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料：
标题：在Delphi中使用IP控件
作者：西安交通大学9649#刘明华
在些对原作者的无私奉献表示感谢！如欲转载请保留完整版权信息。
如果这篇文章侵犯了您的版权，请来信告诉我们：info@ccrun.com
ccrun(老妖)(www.ccrun.com) 2003.10.29
在网络程序中，我们常常碰到需要用户输入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控件。
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）。
●初始化Windows自定义控制库●
Windows提供了两个API函数，InitCommonControls和InitCommonControlsEx，用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系：后者是前者的增强。如果你希望在程序中使用IP控件，你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下：
typedef struct tagINITCOMMONCONTROLSEX {
DWORD dwSize; // size of this structure
DWORD dwICC; // flags indicating which classes to be initialized
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
IP控件属于ICC_INTERNET_CLASSES类别的控件，如果要使用该控件，你应该在程序中包含如下的初始化代码：
TInitCommonControlsEx ICC;
ICC.dwSize = sizeof(TInitCommonControlsEx);
ICC.dwICC = ICC_INTERNET_CLASSES;
if(!InitCommonControlsEx(&ICC))
return; //初始化组件失败
●创建IP控件●
Windows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为 "SysIPAddress32 ",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。
HWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
●使用IP控件●
在程序中，我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个，这些消息及它们的含义见下表：
消息常量 消息值 作用 参数及返回值
IPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无
IPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值
IPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目；获取到的IP值存放在lparam 所指向的Integer变量中。
IPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分；lparam的低16位字为该字段的范围：高字节为上限，低字节为下限。
IPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点
IPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值：若为空，返回非0；不为空，返回0
★㈠清空IP串（IPM_CLEARADDRESS）★
SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);
★㈡设置IP串（IPM_SETADDRESS）★
int nIP;
nIP=MAKEIPADDRESS(192,168,0,1);
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);
此例将IP控件的内容设为 "192.168.0.1 "，其中MAKEIPADDRESS是一个Win32宏，定义在commctrl.h头文件中，它用来合成一个32位的IP值：
#define MAKEIPADDRESS(b1,b2,b3,b4)
((LPARAM)(((DWORD)(b1) < <24)+((DWORD)(b2) < <16)+((DWORD)(b3) < <8)+((DWORD)(b4))))
★㈢获取IP值（IPM_GETADDRESS）★
int nIP;
SendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));
//nIP++;
//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。
若想要获取IP控件中IP串所对应的IP值，你应该向IP控件发送IPM_GETADDRESS消息，并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
★㈣设置取值范围（IPM_SETRANGE）★
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200 < <8|100);
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中，Wparam指明要设置的字段， 而lparam的低16位字为该字段的范围：高字节为上限，低字节为下限。
★㈤设置输入焦点（IPM_SETFOCUS）★
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);
//将输入焦点设在IP控件的第四部分。
㈥判断IP串是否为空（IPM_ISBLANK）
if(!SendMessage(hIpEdit,IPM_ISBLANK,0,0))
{
//IP控件中的IP串为空
}
else
{
//IP控件中的IP串至少有一部分不是空的
}
●IP控件的通知消息●
当IP串被改动后或者输入焦点发生了转移，IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下，我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例：
void __fastcall TForm1::WndProc(TMessage &Msg)
{
LPNMHDR p=(LPNMHDR)Msg.LParam;
if(Msg.Msg==WM_NOTIFY)
{
if(p-> code==IPN_FIELDCHANGED)
{
//处理IP控件的IPN_FIELDCHANGED通知消息
}
}
TForm::WndProc(Msg);
}
//文件名：IPEdit.PAS
{～～～～～～～～～～～～～～～～～～～～～～～}
// IP address edit control for Borland Delphi 5
// Implemented by Simon Liu (simon_liu@263.net)
{～～～～～～～～～～～～～～～～～～～～～～～}
unit IPEdit;
interface
uses Windows, Messages, SysUtils, Classes,
Forms, Controls, ComCtrls, CommCtrl, DsgnIntf;
type
TFieldRange = record
LowRange: Byte;
HighRange: Byte;
end;
TFieldChangeEvent = procedure(Sender: TObject;
OldField, Value: Byte) of Object;
//定义TAboutProperty属性编辑器
TAboutProperty = class(TPropertyEditor)
public
procedure Edit; override;
function GetAttributes: TPropertyAttributes;override;
function GetValue: string; override;
end;
TIPEdit = class(TWinControl)
private
fAbout:TAboutProperty;
FIP: LongWord;
FFields:array[0..3] of Byte;
FFieldRanges: array [0..3] of TFieldRange;
FCreating: Boolean;
FOnChange: TNotifyEvent;
FOnEnter: TNotifyEvent;
FOnExit: TNotifyEvent;
FOnFieldChange: TFieldChangeEvent;
procedure SetIP(Value: LongWord);
function GetIP: LongWord;
function GetField(Index:Integer):Byte;
procedure SetField(Index:Integer; B:Byte);
function GetFieldRange(Field: Integer):
TFieldRange;
procedure SetFieldRange(Field:integer; Value:
TFieldRange);
procedure SetIPAddress;
function GetBlank: Boolean;
procedure WMNotifyFormat(var Message: TMessage);
message WM_NOTIFYFORMAT;
//处理IP控件的通知消息IPN_FIELDCHANGED
procedure CNNotify(var Message: TWMNotify);
message CN_NOTIFY;
procedure CNCommand(var Message: TWMCommand);
message CN_COMMAND;
procedure WMSetFont(var Message: TWMSetFont);
message WM_SETFONT;
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override;
procedure DestroyWnd; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
//清除IP控件中的IP串
procedure Clear;
//设置IP控件的输入焦点（field的有效取值为0..3）
procedure SetFieldFocus(Field:Byte);
published
//判断IP控件的IP串是否为空
property Blank: Boolean read GetBlank;
//Field0到Field3分别为IP控件的4个部分的值
property Field0: Byte index 0 read
GetField write SetField;
property Field1: Byte index 1 read
GetField write SetField;
property Field2: Byte index 2 read
GetField write SetField;
property Field3: Byte index 3 read
GetField write SetField;
//Field0Range到Field3Range
限制IP控件各部分的取值的范围
property Field0Range: TFieldRange index 0 read
GetFieldRange write SetFieldRange;
property Field1Range: TFieldRange index 1 read
GetFieldRange write SetFieldRange;
property Field2Range: TFieldRange index 2 read
GetFieldRange write SetFieldRange;
property Field3Range: TFieldRange index 3 read
GetFieldRange write SetFieldRange;
//IP地址值(32位整数LongWord)
property IP: LongWord read GetIP write SetIP;
//The About box
property About:TAboutProperty read fAbout;
//事件属性
property OnChange: TNotifyEvent read FOnChange write
FOnChange;
property OnEnter: TNotifyEvent read FOnEnter write
FOnEnter;
property OnExit: TNotifyEvent read FOnExit write
FOnExit;
property OnFieldChange: TFieldChangeEvent read
FOnFieldChange
write FOnFieldChange;
//以下属性继承自TWinControl控件
property Enabled;
property TabOrder;
property TabStop;
property ParentShowHint;
property ShowHint;
property Hint;
property Visible;
end;
procedure Register;
implementation
{～～～～～TAboutProperty～～～～～～～～～～～}
procedure TAboutProperty.Edit;
begin
Application.MessageBox(
‘TIPEdit for Delphi 5'＃13
＋‘(C) 2000 by Simon Liu'＃13
＋‘Email:simon_liu@263.net',
‘About TIPEdit',MB_ICONINFORMATION);
end;
function TAboutProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog, paReadOnly];
end;
function TAboutProperty.GetValue: string;
begin
Result := ‘(Simon)';
end;
{～TIPEdit～～～～～～～～～～～～～～～～～～}
constructor TIPEdit.Create(AOwner: TComponent);
var
i: integer;
begin
//初始化ICC_INTERNET_CLASSES类控件
CheckCommonControl(ICC_INTERNET_CLASSES);
inherited Create(AOwner);
for i:= 0 to 3 do
begin
FFieldRanges[i].LowRange:= 0;
FFieldRanges[i].HighRange:= 255;
FFields[i]:=0;
end;
FIP:=0;
Height:= 25;
Width:= 152;
TabSTop:= True;
end;
procedure TIPEdit.DestroyWnd;
begin
inherited DestroyWnd
end;
destructor TIPEdit.Destroy;
begin
inherited Destroy;
end;
procedure TIPEdit.CreateParams(var Params:
TCreateParams);
begin
inherited CreateParams(Params);
CreateSubClass(Params, WC_IPADDRESS);
with Params do
begin
end;
end;
procedure TIPEdit.CreateWnd;
begin
FCreating := True;
try
inherited CreateWnd;
SetIPAddress;
finally
FCreating := False;
end;
end;
function TIPEdit.GetBlank: Boolean;
begin
Result:= Boolean(SendMessage(Handle, IPM_ISBLANK, 0, 0));
end;
procedure TIPEdit.Clear;
begin
SendMessage(Handle, IPM_CLEARADDRESS, 0, 0);
end;
procedure TIPEdit.SetFieldFocus(Field:Byte);
begin
SendMessage(Handle, IPM_SETFOCUS, Field, 0);
end;
function TIPEdit.GetFieldRange(Field: Integer): TFieldRange;
begin
Result:= FFieldRanges[Field];
end;
procedure TIPEdit.SetFieldRange(Field: Integer;
Value: TFieldRange);
begin
if Value.LowRange > Value.HighRange then exit;
if (FFieldRanges[Field].LowRange <> Value.LowRange) or
(FFieldRanges[Field].HighRange <> Value.HighRange) then
begin
FFieldRanges[Field]:= Value;
SendMessage(Handle, IPM_SETRANGE, Field,
MakeIPRange(Value.LowRange, Value.HighRange));
end;
end;
function TIPEdit.GetField(Index: Integer): Byte;
begin
if (Index>=0)and(Index<=3) then Result:=FFields[Index]
else Result:=0;
end;
procedure TIPEdit.SetField(Index:Integer; B:Byte);
begin
if (FFields[Index] <> B)then
begin
FFields[Index]:=B;
SetIPAddress;
end;
end;
procedure TIPEdit.SetIPAddress;
var
i:LongWord;
begin
i:=MAKEIPADDRESS(FFields[0], FFields[1], FFields[2],
FFields[3]);
SendMessage(Handle, IPM_SETADDRESS, 0, i);
FIP:=i;
end;
procedure TIPEdit.SetIP(Value: LongWord);
begin
if (FIP <> Value) then
begin
FFields[0]:= First_IPAddress(Value);
FFields[1]:= Second_IPAddress(Value);
FFields[2]:= Third_IPAddress(Value);
FFields[3]:= Fourth_IPAddress(Value);
SetIPAddress;
end;
end;
function TIPEdit.GetIP: LongWord;
begin
SendMessage(Handle, IPM_GETADDRESS, 0,Integer(@Result));
end;
procedure TIPEdit.WMSetFont(var Message: TWMSetFont);
begin
//不可以调用父控件的此方法
//否则，控件不能正常工作
end;
procedure TIPEdit.WMNotifyFormat(var Message:
TMessage);
begin
with Message do
Result := DefWindowProc(Handle, Msg, WParam, LParam);
end;
procedure TIPEdit.CNNotify(var Message: TWMNotify);
var
pNM: PNMIPAddress;
begin
with (Message.NMHdr)^ do
begin
case Code of
IPN_FIELDCHANGED:
begin
pNM:=PNMIPADDRESS(Message.NMHdr);
if (pNM^.iField>=0)and(pNM^.iField<=3) then
FFields[pNM^.iField]:=pNM^.iValue;
if Assigned(FOnFieldChange) then
FOnFieldChange(self, pNM^.iField, pNM^.iValue);
end;
end;
end;
end;
procedure TIPEdit.CNCommand(var Message: TWMCommand);
begin
case Message.NotifyCode of
EN_CHANGE:
begin
if not FCreating then
if Assigned(FOnChange) then FOnChange(self);
end;
EN_KILLFOCUS: if Assigned(FOnExit) then FOnExit(self);
EN_SETFOCUS: if Assigned(FOnEnter) then FOnEnter(self);
end;
end;
//注册TIPEdit控件以及TAboutProperty属性编辑器
procedure Register;
begin
RegisterComponents(‘Simon', [TIPEdit]);
RegisterPropertyEditor(typeInfo(TAboutProperty),
TIPEdit, ‘ABOUT', TAboutProperty);
end;
end.
标题：在Delphi中使用IP控件
作者：西安交通大学9649#刘明华
在些对原作者的无私奉献表示感谢！如欲转载请保留完整版权信息。
如果这篇文章侵犯了您的版权，请来信告诉我们：info@ccrun.com
ccrun(老妖)(www.ccrun.com) 2003.10.29
在网络程序中，我们常常碰到需要用户输入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控件。
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）。
●初始化Windows自定义控制库●
Windows提供了两个API函数，InitCommonControls和InitCommonControlsEx，用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系：后者是前者的增强。如果你希望在程序中使用IP控件，你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下：
typedef struct tagINITCOMMONCONTROLSEX {
DWORD dwSize; // size of this structure
DWORD dwICC; // flags indicating which classes to be initialized
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
IP控件属于ICC_INTERNET_CLASSES类别的控件，如果要使用该控件，你应该在程序中包含如下的初始化代码：
TInitCommonControlsEx ICC;
ICC.dwSize = sizeof(TInitCommonControlsEx);
ICC.dwICC = ICC_INTERNET_CLASSES;
if(!InitCommonControlsEx(&ICC))
return; //初始化组件失败
●创建IP控件●
Windows API函数CreateWindow或者CreateWindowEx都可以用来创建一个IP控件实例。IP控件的窗口类名为 "SysIPAddress32 ",C++ Builder的commctrl.pas单元为其定义了一个符号常量WC_IPADDRESS。下面这条语句将在Form1上创建一个IP控件。
HWND hIpEdit = CreateWindow(WC_IPADDRESS,NULL,WS_CHILD|WS_VISIBLE,10,10,135,47,Handle,0,HInstance,NULL);
●使用IP控件●
在程序中，我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个，这些消息及它们的含义见下表：
消息常量 消息值 作用 参数及返回值
IPM_CLEARADDRESS WM_USER+100 清除IP控件中的IP串 参数无
IPM_SETADDRESS WM_USER+101 设置IP控件的IP串 Lparam为32位的IP值
IPM_GETADDRESS WM_USER+102 获取IP控件中的IP串所对应的IP值(32位整数) Lparam为一个指向Integer变量的指针。返回值等于IP控件中非控的字段数目；获取到的IP值存放在lparam 所指向的Integer变量中。
IPM_SETRANGE WM_USER+103 设置IP控件4个部分的其中一个的IP取值范围 Wparam指明要设置取值范围的部分；lparam的低16位字为该字段的范围：高字节为上限，低字节为下限。
IPM_SETFOCUS WM_USER+104 设输入焦点 Wparam指明哪个部分获取焦点
IPM_ISBLANK WM_USER+105 IP串是否为空 参数无。返回值：若为空，返回非0；不为空，返回0
★㈠清空IP串（IPM_CLEARADDRESS）★
SendMessage(hIpEdit,IPM_CLEARADDRESS,0,0);
★㈡设置IP串（IPM_SETADDRESS）★
int nIP;
nIP=MAKEIPADDRESS(192,168,0,1);
SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP);
此例将IP控件的内容设为 "192.168.0.1 "，其中MAKEIPADDRESS是一个Win32宏，定义在commctrl.h头文件中，它用来合成一个32位的IP值：
#define MAKEIPADDRESS(b1,b2,b3,b4)
((LPARAM)(((DWORD)(b1) < <24)+((DWORD)(b2) < <16)+((DWORD)(b3) < <8)+((DWORD)(b4))))
★㈢获取IP值（IPM_GETADDRESS）★
int nIP;
SendMessage(hIpEdit,IPM_GETADDRESS,0,int(&nIP));
//nIP++;
//SendMessage(hIpEdit,IPM_SETADDRESS,0,nIP); //将IP加1再赋给IP控件。
若想要获取IP控件中IP串所对应的IP值，你应该向IP控件发送IPM_GETADDRESS消息，并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
★㈣设置取值范围（IPM_SETRANGE）★
SendMessage (hIpEdit, IPM_SETRANGE, 0, 200 < <8|100);
此语句将IP控件的第一部分的范围限制为100~200。在IPM_SETRANGE消息中，Wparam指明要设置的字段， 而lparam的低16位字为该字段的范围：高字节为上限，低字节为下限。
★㈤设置输入焦点（IPM_SETFOCUS）★
SendMessage(hIpEdit,IPM_SETFOCUS,3,0);
//将输入焦点设在IP控件的第四部分。
㈥判断IP串是否为空（IPM_ISBLANK）
if(!SendMessage(hIpEdit,IPM_ISBLANK,0,0))
{
//IP控件中的IP串为空
}
else
{
//IP控件中的IP串至少有一部分不是空的
}
●IP控件的通知消息●
当IP串被改动后或者输入焦点发生了转移，IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下，我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例：
void __fastcall TForm1::WndProc(TMessage &Msg)
{
LPNMHDR p=(LPNMHDR)Msg.LParam;
if(Msg.Msg==WM_NOTIFY)
{
if(p-> code==IPN_FIELDCHANGED)
{
//处理IP控件的IPN_FIELDCHANGED通知消息
}
}
TForm::WndProc(Msg);
}
作者：cker
此控件简单封装了老妖所列的Common Control
tab键控件间切换，输入 <.> 则切换IP子域。
代码如下:
#include <CommCtrl.hpp>
#include <ComCtrls.hpp>
class TIPAddress;
Word __fastcall MakeIPRange(Byte Low, Byte High)
{
return Word((Word(High) < < 8) + Word(Low));
}
unsigned __fastcall MakeIPAddress(Byte b1, Byte b2, Byte b3, Byte b4)
{
return Word((Word(b1) < < 24)+(Word(b2) < < 16)+(Word(b3) < < 8)+(Word(b4)));
}
Byte __fastcall First_IPAddress(unsigned X)
{
return Byte((X > > 24) & 0x0FF);
}
Byte __fastcall Second_IPAddress(unsigned X)
{
return Byte((X > > 16) & 0x0FF);
}
Byte __fastcall Third_IPAddress(unsigned X)
{
return Byte((X > > 8) & 0x0FF);
}
Byte __fastcall Fourth_IPAddress(unsigned X)
{
return Byte(X & 0x0FF);
}
typedef void __fastcall (__closure *TIPAddressFieldChangeEvent)(TIPAddress* Sender, Byte OldField, Byte Value);
typedef void __fastcall (__closure *TIPAddressChangeEvent)(TIPAddress* Sender, AnsiString IPAddress);
class TIPAddress : public TWinControl
{
private:
TIPAddressChangeEvent FOnIPChange;
TIPAddressFieldChangeEvent FOnIPFieldChange;
int FMinIPAddress;
int FMaxIPAddress;
Byte FActiveField;
bool FAutoSize;
void __fastcall CNNotify(TWMNotify &Message); //CN_NOTIFY;
void __fastcall CNCommand(TWMCommand &Message); //CN_COMMAND;
protected:
virtual void __fastcall CreateParams(TCreateParams &Params);
AnsiString __fastcall GetMinIPAddress();
AnsiString __fastcall GetMaxIPAddress();
AnsiString __fastcall GetIPAddress();
void __fastcall SetMinIPAddress(AnsiString Value);
void __fastcall SetMaxIPAddress(AnsiString Value);
void __fastcall SetIPAddress(AnsiString Value);
bool __fastcall GetEmpty();
void __fastcall SetActiveField(Byte Value);
void __fastcall WndProc(TMessage &Message);
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(CN_NOTIFY, TWMNotify, CNNotify);
VCL_MESSAGE_HANDLER(CN_COMMAND, TWMCommand, CNCommand);
END_MESSAGE_MAP(TWinControl);
public:
virtual __fastcall TIPAddress(TComponent* AOwner);
AnsiString __fastcall IPToString(int Ip);
int __fastcall StringToIP(AnsiString Value);
void __fastcall Clear();
__published:
__property Byte ActiveField = {read = FActiveField, write = SetActiveField};
__property bool Empty = {read = GetEmpty};
__property AnsiString MinIPAddress = {read = GetMinIPAddress, write = SetMinIPAddress};
__property AnsiString MaxIPAddress = {read = GetMaxIPAddress, write = SetMaxIPAddress};
__property AnsiString IPAddress = {read = GetIPAddress, write = SetIPAddress};
__property TIPAddressChangeEvent OnIPChange = {read = FOnIPChange, write = FOnIPChange};
__property TIPAddressFieldChangeEvent OnIPFieldChange = {read = FOnIPFieldChange, write = FOnIPFieldChange};
__property Font;
__property ParentColor;
__property ParentFont;
__property ParentShowHint;
__property PopupMenu;
__property ShowHint;
__property TabOrder;
__property TabStop;
__property Tag;
__property DragCursor;
__property DragMode;
__property HelpContext;
};
void __fastcall TIPAddress::WndProc(TMessage &Message)
{
TWinControl::WndProc(Message);
}
__fastcall TIPAddress::TIPAddress(TComponent* AOwner):TWinControl(AOwner)
{
if (NewStyleControls) ControlStyle < < csClickEvents < < csSetCaption < < csDoubleClicks < < csFixedHeight;
else
ControlStyle < < csClickEvents < < csSetCaption < < csDoubleClicks < < csFixedHeight < < csFramed;
ParentColor = false;
FAutoSize = true;
Width = 100;
Height = 25;
TabStop = true;
FMinIPAddress = 0;
FMaxIPAddress = 0x0FFFFFFFF;
FActiveField = 0;
FOnIPChange = NULL;
FOnIPFieldChange = NULL;
}
void __fastcall TIPAddress::CreateParams(TCreateParams &Params)
{
InitCommonControl(ICC_INTERNET_CLASSES);
TWinControl::CreateParams(Params);
CreateSubClass(Params, WC_IPADDRESS);
}
void __fastcall TIPAddress::CNCommand(TWMCommand &Message) //CN_COMMAND;
{
if ((Message.NotifyCode == EN_CHANGE) && OnIPChange)
OnIPChange(this, IPAddress);
}
void __fastcall TIPAddress::CNNotify(TWMNotify &Message) //CN_NOTIFY;
{
switch(Message.NMHdr-> code)
{
case IPN_FIELDCHANGED :
{
FActiveField = (PNMIPAddress(Message.NMHdr))-> iField;
if (OnIPFieldChange)
{
OnIPFieldChange(this, (PNMIPAddress(Message.NMHdr))-> iField, (PNMIPAddress(Message.NMHdr))-> iValue);
}
}
break;
}
}
AnsiString __fastcall TIPAddress::GetIPAddress()
{
int IP = 0;
SendMessage(Handle, IPM_GETADDRESS, 0, (int)&IP);
return IPToString(IP);
}
AnsiString __fastcall TIPAddress::GetMinIPAddress()
{
return IPToString(FMinIPAddress);
}
void __fastcall TIPAddress::SetMinIPAddress(AnsiString Value)
{
FMinIPAddress = StringToIP(Value);
SendMessage(Handle, IPM_SETRANGE, 0, MakeIPRange(First_IPAddress(FMinIPAddress), First_IPAddress(FMaxIPAddress)));
SendMessage(Handle, IPM_SETRANGE, 1, MakeIPRange(Second_IPAddress(FMinIPAddress), Second_IPAddress(FMaxIPAddress)));
SendMessage(Handle, IPM_SETRANGE, 2, MakeIPRange(Third_IPAddress(FMinIPAddress), Third_IPAddress(FMaxIPAddress)));
SendMessage(Handle, IPM_SETRANGE, 3, MakeIPRange(Fourth_IPAddress(FMinIPAddress), Fourth_IPAddress(FMaxIPAddress)));
}
AnsiString __fastcall TIPAddress::GetMaxIPAddress()
{
return IPToString(FMaxIPAddress);
}
void __fastcall TIPAddress::SetMaxIPAddress(AnsiString Value)
{
FMaxIPAddress = StringToIP(Value);
SendMessage(Handle, IPM_SETRANGE, 0, MakeIPRange(First_IPAddress(FMinIPAddress), First_IPAddress(FMaxIPAddress)));
SendMessage(Handle, IPM_SETRANGE, 1, MakeIPRange(Second_IPAddress(FMinIPAddress), Second_IPAddress(FMaxIPAddress)));
SendMessage(Handle, IPM_SETRANGE, 2, MakeIPRange(Third_IPAddress(FMinIPAddress), Third_IPAddress(FMaxIPAddress)));
SendMessage(Handle, IPM_SETRANGE, 3, MakeIPRange(Fourth_IPAddress(FMinIPAddress), Fourth_IPAddress(FMaxIPAddress)));
}
void __fastcall TIPAddress::SetIPAddress(AnsiString Value)
{
SendMessage(Handle, IPM_SETADDRESS, 0, StringToIP(Value));
}
bool __fastcall TIPAddress::GetEmpty()
{
return (bool)(SendMessage(Handle, IPM_ISBLANK, 0, 0));
}
void __fastcall TIPAddress::Clear()
{
SendMessage(Handle, IPM_CLEARADDRESS, 0, 0);
}
void __fastcall TIPAddress::SetActiveField(Byte Value)
{
if ( Value < 4 )
{
SendMessage(Handle, IPM_SETFOCUS, WPARAM(Value), 0);
FActiveField = Value;
}
}
int __fastcall TIPAddress::StringToIP(AnsiString Value)
{
Byte B[4];
B[0]= 0;
B[1]= 0;
B[2]= 0;
B[3]= 0;
int Cnt = 0;
int i = Value.Pos( ". ");
AnsiString Str;
while ((Value.Length() > 0) && ( Cnt < 4 ))
{
if (i == 0) i = Value.Length() + 1;
Str = Value.SubString(1, i-1);
B[Cnt] = StrToInt(Str);
Value = Value.SubString(i+1, Value.Length());
i = Value.Pos( ". ");
Cnt++;
}
return MakeIPAddress(B[0], B[1], B[2], B[3]);
}
AnsiString __fastcall TIPAddress::IPToString(int Ip)
{
AnsiString S;
S.sprintf( "%d.%d.%d.%d ", First_IPAddress(Ip),Second_IPAddress(Ip),Third_IPAddress(Ip),Fourth_IPAddress(Ip));
return S;
}
//---------------------------------------------------------------------------
TIPAddress* ip ;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ip = new TIPAddress(this);
ip-> Parent = this;
}
//---------------------------------------------------------------------------