Delphi开发简单端口扫描器

//挺简单，主要是对控件的属性，事件的学习 。。。

 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ClientSocket: TClientSocket;
    Button: TButton;
    Button1: TButton;
    procedure ButtonClick(Sender: TObject);
    procedure ClientSocketConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocketDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure ClientSocketConnecting(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ClientSocket.Active:=False;
  ClientSocket.Address:='127.0.0.1';
  ClientSocket.Port:=137;
  ClientSocket.Open;
end;

procedure TForm1.ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    ShowMessage('连接成功，端口存在');
end;

procedure TForm1.ClientSocketDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ShowMessage('断开连接');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket.Active := False;  //关闭连接；
end;

procedure TForm1.ClientSocketConnecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ShowMessage('正在连接...');
end;

procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ShowMessage('端口不存在，连接失败');
  ErrorCode:=0; //注解这句代码，程序运行错误；添加这句代码，就不弹出错误提示框，我真的不知道，还要学习中。。。。

{在ClientSocket中，可以在OnError事件中捕捉错误，错误的类型定义在ErrorEvent里面。如果不想错误显示出来，直接在该事件中写ErrorCode:=0,那么错误将不被显示出来。在ServerSocket中，可以在OnClientError中捕捉，方法跟客户端一样}
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ClientSocket.Close;
end;

end.