rightweb.dpr

Delphi Webservice编程例子

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.