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.