hello.dpr

来自「用Delphi实现Web Service的简单示例」· DPR 代码 · 共 26 行

library Hello;

uses
  ActiveX,
  ComObj,
  WebBroker,
  ISAPIThreadPool,
  ISAPIApp,
  Unit1 in 'Unit1.pas' {WebModule1: TWebModule},
  IHelloImpl in 'IHelloImpl.pas',
  IHelloIntf in 'IHelloIntf.pas';

{$R *.res}

exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;

begin
  CoInitFlags := COINIT_MULTITHREADED;
  Application.Initialize;
  Application.CreateForm(TWebModule1, WebModule1);
  Application.Run;
end.