unit fServerDataModule;

{$I Settings.inc}
{$I DataAbstract.inc}

interface

uses
  SysUtils, Classes,
  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
  uROBinMessage, uROIndyHTTPServer,
  uDAEngine, uDADriverManager, uDAClasses, uROSessions,
  {$IFDEF USE_ANYDAC}uDAAnyDACDriver,{$ENDIF USE_ANYDAC}
  {$IFDEF DELPHI2005UP}uDADBXDriver,{$ENDIF DELPHI2005UP}
  uDAADODriver, uROIndyTCPServer, uROEventRepository, uROZeroConf;

type
  TServerDataModule = class(TDataModule)
    Server: TROIndyHTTPServer;
    Message: TROBinMessage;
    ConnectionManager: TDAConnectionManager;
    DriverManager: TDADriverManager;
    ADODriver: TDAADODriver;
    SessionManager: TROInMemorySessionManager;
    EventRepository: TROInMemoryEventRepository;
    DataDictionary: TDADataDictionary;
    ROZeroConfRegistration1: TROZeroConfRegistration;
    
    procedure DataModuleCreate(Sender: TObject);
    procedure ROZeroConfRegistration1RegistrationSucceeded(
      Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine);
  private
    { Private declarations }
    fBlockedRows: TStringList;
  public
    { Public declarations }
    property BlockedRows: TStringList read fBlockedRows;
  end;

var
  ServerDataModule: TServerDataModule;

implementation
uses
  fServerForm;
{$R *.dfm}

procedure TServerDataModule.DataModuleCreate(Sender: TObject);
begin
  fBlockedRows := TStringList.Create;
end;

procedure TServerDataModule.ROZeroConfRegistration1RegistrationSucceeded(
  Sender: TROZeroConfRegistration; const ACurrentEngine: TROZeroConfEngine);
var
  s: string;
begin
  case ACurrentEngine of
    zceBonjour: s := 'Bonjour';
    zceROZeroConfHub: s:= 'ROZeroConfHub';
    zceAuto, zceNone: exit;
  end;
  ServerForm.LogMessage('Registration via '+s+' is successful');
end;

end.