udm.pas

来自「轻巧的TCP 客户端与服务器端通讯测试套件.可以在两处分别安装客户端与服务器端,」· PAS 代码 · 共 25 行

unit uDM;

interface

uses
  SysUtils, Classes;

type
  TDataModule1 = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;
  ServerPort:integer=9001;

implementation

{$R *.dfm}

end.