{
	Summary:
		Base unit for WebService
	
	## $Id: main.pas,v 1.1 2003/12/12 13:19:58 druid Exp $
}
unit main;

interface

implementation

uses
  SysUtils, Classes, IdHTTPWebBrokerBridge, WebModule, modules;

var
	FWebBrokerBridge: TIdHTTPWebBrokerBridge;


type
  GWebServiceModule = class(TInterfacedObject, IModuleInterface)
  	procedure registerModule();
  	procedure unregisterModule();
  end;


function returnModuleInterface() : IModuleInterface;
begin
	Result := GWebServiceModule.Create();
end;


procedure GWebServiceModule.registerModule();
begin
  // Create server.
  FWebBrokerBridge := TIdHTTPWebBrokerBridge.Create(nil);

  // Register web module class.
  FWebBrokerBridge.RegisterWebModuleClass(TGrendelWebModule);

  // Set default port.
  FWebBrokerBridge.DefaultPort := 4041;

  // Start server.
  FWebBrokerBridge.Active := True;
end;

procedure GWebServiceModule.unregisterModule();
begin
  // Stop server.
  FWebBrokerBridge.Active := False;

  // Free server component.
  FreeAndNil(FWebBrokerBridge);
end;


exports
	returnModuleInterface;

  
end.