Advertisement
danieleteti

FIX for ISAPI LoggerPro issue

Apr 14th, 2016
814
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.65 KB | None | 0 0
  1. library loggerproisapisample;
  2.  
  3. uses
  4.   LoggerPro.GlobalLogger,
  5.   Winapi.ActiveX,
  6.   System.Win.ComObj,
  7.   Web.WebBroker,
  8.   Web.Win.ISAPIApp,
  9.   Web.Win.ISAPIThreadPool,
  10.   Winapi.Windows,
  11.   WebModuleU in 'WebModuleU.pas' {WebModule1: TWebModule};
  12.  
  13. {$R *.res}
  14.  
  15. function TerminateExtension(dwFlags: DWORD): BOOL; stdcall;
  16. begin
  17.   ReleaseGlobalLogger;
  18.   Result := Web.Win.ISAPIThreadPool.TerminateExtension(dwFlags);
  19. end;
  20.  
  21. exports
  22.   GetExtensionVersion,
  23.   HttpExtensionProc,
  24.   TerminateExtension;
  25.  
  26. begin
  27.   CoInitFlags := COINIT_MULTITHREADED;
  28.   Application.Initialize;
  29.   Application.WebModuleClass := WebModuleClass;
  30.   Application.Run;
  31.  
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement