哪里有可用于输入IP地址的控件或算法

Question

-----在网络程序中，我们常常碰到需要用户输入IP地址的情况。然而Delphi并没有为我们提供可以用于输入IP串的控件，于是我们只好用Tedit控件（单行文本框）来接受用户输入的IP串。但是，使用Tedit来输入IP串并不是一个好的主意，因为处理起来非常不方便。事实上，在我们的身旁有一个专门用来输入IP串的Windows控件，该控件如图所示。IP控件会拒绝非法的IP串（在每个部分只能输入0..255之间的数字）；它让你可以轻松地获取控件中的IP串所对应的IP值（32位整数），这省去了IP串和IP值之间相互转换的麻烦；此外，你还能限制IP控件中所能输入的IP的范围。在本文中，我将向大家介绍如何在我们的Delphi程序中使用Windows的IP控件。
　　---- Windows中有两个非常重要的动态联结库：commctrl.dll和comctl32.dll，它们是Windows的自定义控制库（Windows Common
Controls）。自定义控制库中包含了许多常用的Windows控件，如Statusbar，Coolbar，HotKey等；在Delphi中，这些控件大多数都已被包装成可视化控件了。在Microsoft推出Internet Explorer 3之后，自定义控制库中新增了一些控件，其中就包括Windows的IP控件（IP Address edit control）。
　　----初始化Windows自定义控制库---- Windows提供了两个API函数，InitCommonControls和InitCommonControlsEx，用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系：后者是前者的增强。如果你希望在程序中使用IP控件，你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下（Pascal语法）：
　　---- ... ... 
　　---- 创建IP控件 
　　---- ... ... 
　　----使用IP控件。在程序中，我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个，这些消息及它们的含义，见下表：
　　---- ... ... 
　　----若想要获取IP控件中IP串所对应的IP值，你应该向IP控件发送IPM_GETADDRESS消息，并且需要把一个32位整数的地址作为SendMessage的最后一个参数。
　　---- ... ...
　　---- IP控件的通知消息
　　----当IP串被改动后或者输入焦点发生了转移，IP控件就会向它的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下，我们都可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个示例：
procedure Tform1.WndProc(var Msg: TMessage); 
var p:PNMHDR; 
begin 
inherited; if Msg.Msg=WM_NOTIFY 
then begin 
p:=Pointer(Msg.lParam); 
if p^.code=IPN_FIELDCHANGED 
then begin 
{… 
处理IP控件的IPN_FIELDCHANGED通知消息 
…} 
end; end; 
end; 

Answer 1

C++BUILDER与DELPHI都有啊！
TMaskEdit控件
.MaskEdit属性  999.999.999.999;1;
.Font设成等宽的宋体

Answer 2

MaskEdit在Additional组中，
在设MaskEdit时,点中...,
1>Character for Blanks中的_要删掉改成空格;
2>.MaskEdit属性  999.999.999.999;1;
3>.Font设成等宽的宋体

Answer 3

上面的TMaskEdit可以跟微软的IP控件做得一模一样

Answer 4

我记得winsocket2中有相应的转换函数
为什么不用呢？？

Answer 5

给你一个函数：
function IPjudg(var IP:string):boolean;
   var
      judg:boolean;
      i,j,Iptest:integer;
   begin
      j:=1;
      while j<=length(IP) do
         begin
            judg:=true;
            Iptest:=0;
            for i:=1 to 3 do
               begin
                  if IP[j]<>' ' then
                     begin
                        judg:=false;
                        Iptest:=strtoint(IP[j])+Iptest*10;
                     end;
                  j:=j+1;
               end;
            if (judg)or(IPtest>255) then
               begin
                  result:=false;
                  exit;
              end;
            j:=j+1;
         end;
         result:=true;
   end;
程序寄给你吧。

Answer 6

MaskEdit在Additional组中，
在设MaskEdit时,点中...,
1>Character for Blanks中的_要删掉改成空格;
2>.MaskEdit属性  999.999.999.999;1;
3>.Font设成等宽的宋体
这个方案不满意？TMaskEdit可以跟微软的IP控件做得一模一样