pserver.dpr

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

program PServer;

uses
  Forms,
  UServer in 'UServer.pas' {Form2},
  uDM in 'uDM.pas' {DataModule1: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.Run;
end.