library coretest1;

uses
SysUtils,
Windows,
  ActiveX,
  ComObj,
  WebBroker,
  ISAPIApp,
  ISAPIThreadPool,
  Unit17 in 'Unit17.pas' {WebModule17: TWebModule},
  WS1Impl in 'WS1Impl.pas',
  WS1Intf in 'WS1Intf.pas',
  WS2Impl in 'WS2Impl.pas',
  WS2Intf in 'WS2Intf.pas';

{$R *.res}
var I: Integer;
    lRoot: string;
    lApplication: string;
exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;

begin
  CoInitFlags := COINIT_MULTITHREADED;
  lroot := ExtractFilePath(GetModuleName(HInstance));
  lApplication := ExtractFileName(GetModuleName(HInstance));

  LoadLibrary(PChar(IncludeTrailingBackslash(lroot)+'ws3lib.dll'));

  Application.Initialize;
  Application.CreateForm(TWebModule17, WebModule17);
  Application.Run;
end.

library ws3lib;

uses
  SysUtils,
  Classes,
  WS3Impl in 'WS3Impl.pas',
  WS3Intf in 'WS3Intf.pas';

{$R *.res}

begin
end.