IP地址输入框制作

最新推荐文章于 2024-07-13 08:00:00 发布

haha20

最新推荐文章于 2024-07-13 08:00:00 发布

阅读量1.6k

点赞数

文章标签： integer string forms internet interface windows

本文链接：https://blog.csdn.net/haha20/article/details/815848

版权

该博客介绍了一个自定义的IP地址输入框组件的实现，包括获取和设置IP地址的功能，以及处理非法IP地址的验证。通过Delphi的TForm和相关控件，实现了窗口消息的处理，如IPM_SETADDRESS和IPM_GETADDRESS，确保输入的IP地址有效。

摘要由CSDN通过智能技术生成

unit IpInput;

interface

uses
Windows,Dialogs,SysUtils,Classes,Graphics,Forms,Controls,StdCtrls,Buttons,ExtCtrls,
ComCtrls,Commctrl;

type
TInputIpFrm = class(TForm)
    SpdBfdftnCancle: TLabel;
    SpdBtnOK: TSpeedButton;
    SpdBtnCancle: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpdBtnOKClick(Sender: TObject);
    procedure SpdBtnCancleClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private

public
    ipEdit:HWND;
    m_CommunicationIP:String;
    ipAddress:integer;

    procedure GetIPNum(strIniIP:String;out nFirst,nSecond,nThird,nForth:integer);
end;

var
InputIpFrm: TInputIpFrm;

implementation

{$R *.dfm}

procedure TInputIpFrm.GetIPNum(strIniIP:String;out nFirst,nSecond,nThird,nForth:int