有没有 IP Address Control 控件？

Question

取ip要用控件？不用吧，一个函数就可以了。给你一段代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Winsock, StdCtrls, ExtCtrls, Menus ,clipbrd;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    Exit1: TMenuItem;
    Label1: TLabel;
    Copy1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
   procedure formmousedown(sender: tobject; button: tmousebutton;
                                    shift: tshiftstate; x, y: integer);
    procedure Edit1StartDrag(Sender: TObject; var DragObject: TDragObject);
    procedure Copy1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}// returns ISP assigned IP
function LocalIP : string;
type
    TaPInAddr = array [0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
var
    phe  : PHostEnt;
    pptr : PaPInAddr;
    Buffer : array [0..63] of char;
    I    : Integer;
    GInitData      : TWSADATA;begin
    WSAStartup($101, GInitData);
    Result := '';
    GetHostName(Buffer, SizeOf(Buffer));
    phe :=GetHostByName(buffer);
    if phe = nil then Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    I := 0;
    while pptr^[I] <> nil do begin
      result:=StrPas(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
    WSACleanup;
end;{subject : moving forms (and other twincontrols) without using the caption-bar}procedure tForm1.formmousedown(sender: tobject; button: tmousebutton;
                                    shift: tshiftstate; x, y: integer);
const
  sc_dragmove = $f012;
begin
  releasecapture;
  twincontrol(application.mainform).perform(wm_syscommand,sc_dragmove, 0);
end;procedure TForm1.FormCreate(Sender: TObject);
var
  FullRgn, ClientRgn, ButtonRgn: THandle;
  Margin, X, Y: Integer;
  r:boolean;
begin
  top:=screen.Height-50;
  left:=screen.width-120;
  height:=Label1.Height;
  width:=Label1.width;
  Margin := (Width - ClientWidth) div 2;
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  X := Margin;
  Y := Height - ClientHeight - Margin;
  ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
  CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
  X := X + Label1.Left;
  Y := Y + Label1.Top;
  ButtonRgn := CreateRectRgn(X, Y, X + Label1.Width, Y + Label1.Height);
  CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR);
  SetWindowRgn(Handle, FullRgn, True);
  //Hide Taskbar Icon
  ShowWindow( Application.Handle, SW_HIDE );
  SetWindowLong( Application.Handle, GWL_EXSTYLE,
                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or
                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  ShowWindow( Application.Handle, SW_SHOW );
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.interval:=1000*100;
  Label1.Caption:='IP: '+LocalIP;
end;procedure TForm1.Exit1Click(Sender: TObject);
begin
  application.terminate;
end;procedure TForm1.Edit1StartDrag(Sender: TObject;
  var DragObject: TDragObject);
const
  sc_dragmove = $f012;
begin
  releasecapture;
  twincontrol(application.mainform).perform(wm_syscommand,sc_dragmove, 0);end;procedure TForm1.Copy1Click(Sender: TObject);
begin
  Clipboard.SetTextBuf(Pchar(copy(Label1.caption,4,255)));
end;end.

Answer 1

//文件名：IPEdit.PAS
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
// IP address edit control for Borland Delphi 5
// Implemented by Simon Liu ([email protected])
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
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:[email protected]',
  '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]);
  Regist