httpsrvr.dpr

来自「多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术」· DPR 代码 · 共 20 行

library HTTPSrvr;

uses
  WebBroker,
  ISAPIApp,
  HTTPIntr in 'HTTPIntr.pas' {HTTPServer: TWebModule};

{$R *.RES}

exports
  GetExtensionVersion,
  HttpExtensionProc,
  HTTPIntr.TerminateExtension;

begin
  Application.Initialize;
  Application.CreateForm(THTTPServer, HTTPServer);
  Application.Run;
end.