pisapiserver.~dpr

来自「Delphi开发webservice的一套例子」· ~DPR 代码 · 共 23 行

library PISAPIServer;

uses
  WebBroker,
  ISAPIThreadPool,
  ISAPIApp,
  udmISAPIServer in 'udmISAPIServer.pas' {WebModule1: TWebModule},
  MTDemo1DBServiceImpl in '..\..\Ch11\Demo1\MTDemo1DBServiceImpl.pas',
  MTDemo1DBServiceIntf in '..\..\Ch11\Demo1\MTDemo1DBServiceIntf.pas';

{$R *.RES}

exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;

begin
  Application.Initialize;
  Application.CreateForm(TWebModule1, WebModule1);
  Application.Run;
end.