pserver.dpr

来自「程序採用了无状态连接池的三层结构」· DPR 代码 · 共 45 行

program pServer;

uses
  Forms,
  Windows,
  Servers in 'Servers.pas' {frmservers},
  Datamodule in 'Datamodule.pas' {Data: TDataModule},
  DatabaseLink in 'DatabaseLink.pas' {frmdatabaselink},
  pooler in 'pooler.pas',
  Execsqlclass in 'Execsqlclass.pas',
  SelectsqlClass in 'SelectsqlClass.pas',
  ScktMain in 'Scktsrvr\ScktMain.pas' {SocketForm},
  Globals in 'Globals.pas',
  uSrvRDM in 'uSrvRDM.pas' {svrRDM: TRemoteDataModule} {svrRDM: CoClass},
  pServer_TLB in 'pServer_TLB.pas',
  Global in 'Global.pas';

{$R *.TLB}

{$R *.res}

var
  hmutex:hwnd;
  ret:integer;

begin
  Application.Initialize;
  Application.Title:='Application Server';
  Hmutex:=CreateMutex(nil,False,'Application Server');
  Ret:=GetlastError;
  if Ret<>Error_Already_Exists then
    begin
      ReleaseMutex(hmutex);
      Application.CreateForm(Tfrmservers, frmservers);
  Application.CreateForm(TSocketForm, SocketForm);
  Socketform.Initialize(False);
      Application.Run;
    end
    else
    Application.MessageBox('The Application Was Run !','Error',
                MB_ok+MB_iconStop+Mb_applmodal);
    Exit;                 

end.