unitsetip.pas

1

unit UnitSetIP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinSock, ComCtrls;

type
  TFormSetIP = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    TrackBar1: TTrackBar;
    GroupBox3: TGroupBox;
    Edit2: TEdit;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    function GetFlag():boolean;
  private
    flag:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSetIP: TFormSetIP;

implementation

{$R *.dfm}

procedure TFormSetIP.FormShow(Sender: TObject);
begin
Button1.SetFocus;

end;

procedure TFormSetIP.Button1Click(Sender: TObject);
begin
if inet_addr(pchar(Edit1.text))=0 then ShowMessage('IP地址格式错误')
   else if (StrToInt(Edit2.Text)<0) or (StrToInt(Edit2.Text)>65535) then ShowMessage('端口越界')
      else
         begin
         flag:=true;
         Close;
         end;
end;

function TFormSetIP.GetFlag():boolean;
begin
result:=flag;
end;

end.