udm.pas

轻巧的TCP 客户端与服务器端通讯测试套件.可以在两处分别安装客户端与服务器端,就可以测试TCP是否可以通讯了.采用了INDY的TCP套件完成

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.