unigui的编译部署

unigui的编译部署

unigui既可以EXE形态部署，也可以IIS的ISAPI的形态部署。关键在工程文件.dpr里面的编译开关。

{$define UNIGUI_VCL} // 注释此编译开关将使用 ISAPI 模式

{$ifndef UNIGUI_VCL}
library
{$else}
program ynjxc;
{$ENDIF}

uses
MidasLib,
Forms,
ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},
MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule},
Main in 'Main.pas' {MainForm: TUniForm},
untLog in 'untLog.pas',
untDll in 'untDll.pas',
untReport in 'untReport.pas' {frmReport: TDataModule},
untTree in 'untTree.pas' {frmTree: TUniFrame},
untProviderKind in 'config\untProviderKind.pas' {frmProviderKind: TUniFrame},
untProvider in 'config\untProvider.pas' {frmProvider: TUniFrame},
untClient in 'config\untClient.pas' {frmClient: TUniFrame},
untClientKind in 'config\untClientKind.pas' {frmClientKind: TUniFrame},
untGoodsKind in 'config\untGoodsKind.pas' {frmGoodsKind: TUniFrame},
untGoods in 'config\untGoods.pas' {frmGoods: TUniFrame},
untEmployee in 'config\untEmployee.pas' {frmEmployee: TUniFrame},
untLogin in 'untLogin.pas' {UniLoginForm1: TUniLoginForm};

{$R *.res}

{$ifndef UNIGUI_VCL}
exports
GetExtensionVersion,
HttpExtensionProc,
TerminateExtension;
{$endif}

begin
{$ifdef UNIGUI_VCL}
Application.Initialize;
TUniServerModule.Create(Application);
Application.Run;
{$ENDIF}
end.