rightweb.dpr

来自「Delphi Webservice编程例子」· DPR 代码 · 共 26 行

library RightWeb;

uses
  ActiveX,
  ComObj,
  WebBroker,
  ISAPIThreadPool,
  ISAPIApp,
  uWebMod in 'uWebMod.pas' {WM_Right: TWebModule},
  RightWebImpl in 'RightWebImpl.pas',
  RightWebIntf in '..\class\RightWebIntf.pas';

{$R *.res}

exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;

begin
  CoInitFlags := COINIT_MULTITHREADED;
  Application.Initialize;
  Application.CreateForm(TWM_Right, WM_Right);
  Application.Run;
end.