mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-18 01:05:54 +01:00
33 lines
634 B
ObjectPascal
33 lines
634 B
ObjectPascal
|
library loggerproisapisample;
|
||
|
|
|
||
|
|
uses
|
||
|
|
LoggerPro.GlobalLogger,
|
||
|
|
Winapi.ActiveX,
|
||
|
|
System.Win.ComObj,
|
||
|
|
Web.WebBroker,
|
||
|
|
Web.Win.ISAPIApp,
|
||
|
|
Web.Win.ISAPIThreadPool,
|
||
|
|
Winapi.Windows,
|
||
|
|
WebModuleU in 'WebModuleU.pas' {WebModule1: TWebModule};
|
||
|
|
|
||
|
|
{$R *.res}
|
||
|
|
|
||
|
|
function TerminateExtension(dwFlags: DWORD): BOOL; stdcall;
|
||
|
|
begin
|
||
|
|
ReleaseGlobalLogger;
|
||
|
|
Result := Web.Win.ISAPIThreadPool.TerminateExtension(dwFlags);
|
||
|
|
end;
|
||
|
|
|
||
|
|
exports
|
||
|
|
GetExtensionVersion,
|
||
|
|
HttpExtensionProc,
|
||
|
|
TerminateExtension;
|
||
|
|
|
||
|
|
begin
|
||
|
|
CoInitFlags := COINIT_MULTITHREADED;
|
||
|
|
Application.Initialize;
|
||
|
|
Application.WebModuleClass := WebModuleClass;
|
||
|
|
Application.Run;
|
||
|
|
|
||
|
|
end.
|