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.