Delphi控件源码

开发平台：

Delphi

Unit1.pas：源码内容

							unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    ServerSocket1: TServerSocket;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
    I : integer;
begin
    ListBox1.Items.Clear;
    for I := 0 to 1024 do
    begin
        ServerSocket1.Close;        //关闭SOCKET
        ServerSocket1.Port := I;   //设置本地端口
        application.ProcessMessages;//防止程序假死
        form1.caption:=inttostr(i);
        
        try
            ServerSocket1.Open;    //对设置的端口进行监听
        except    //如果监听出错，也就是表示端口已经开放了
            ListBox1.Items.Add(IntToStr(I) + '端口被打开');
        end;
    end;
end;
end.

						