unit RemObjects_IDE_Reg;

{----------------------------------------------------------------------------}
{ RemObjects SDK Library - Delphi IDE Integration
{
{ compiler: Delphi 5 and up
{ platform: Win32
{
{ (c)opyright RemObjects Software. all rights reserved.
{
{ Using this code requires a valid license of the RemObjects SDK
{ which can be obtained at http://www.remobjects.com.
{----------------------------------------------------------------------------}

{$IFDEF LINUX}
{$I ../RemObjects.inc}
{$ELSE}
{$I ..\RemObjects.inc}
{$ENDIF LINUX}

interface

procedure Register;

implementation

uses
  {vcl:}Classes,
  {components:}
  uROSOAPMessage,
  uRODynamicRequest,
  {$IFDEF MSWINDOWS}
  uROWinMessageChannel,
  uROWinMessageServer,
  uROWinInetHttpChannel,
  uRODLLChannel,
  uRONamedPipeChannel, uRONamedPipeServer,
  {$ENDIF MSWINDOWS}
  uROBinMessage,
  uROPostMessage,
  {$IFDEF VER140UP}
  uROSessions,
  uRORemoteService,
  {$ENDIF}
  uROPoweredByRemObjectsButton,
  uROEventRepository,
  uRODBSessionManager,
  uROMasterServerSessionManager,
  uROMasterServerEventRepository,

  uROClient, uROServer, uRORemoteDataModule,
  {Designtime:}fROAbout, uROIDEEditors, uRODLGenTools, uROExtraEditors,
  {$IFDEF MSWINDOWS}uROProductVersionInfo,{$ENDIF MSWINDOWS}
  {$IFDEF DELPHI5}DsgnIntf, DMDesigner, DesignIntf{$ELSE}DesignIntf, DesignEditors{$ENDIF};

{ Register }

procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(TROMessageDispatchers), TROServer, prop_Dispatchers, TDispatchersProperty);
  RegisterPropertyEditor(TypeInfo(string), TRORemoteService, prop_ServiceName, TROServiceNameProperty);
  {$IFDEF VER140UP}
  RegisterComponentEditor(TRORemoteService, TRORemoteServiceEditor);
  RegisterComponentEditor(TROServer, TROServerEditor);
  RegisterPropertyEditor(TypeInfo(string), TRODynamicRequest, prop_ServiceName, TRODynRequestServiceNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TRODynamicRequest, prop_OperationName, TRODynRequestOperationNameProperty);
  RegisterComponentEditor(TRODynamicRequest, TRODynamicRequestEditor);
  {$ENDIF VER140UP}

  {$IFDEF KYLIX}
  RegisterCustomModule(TRORemoteDataModule,TCustomModule);
  {$ELSE}
  {$IFDEF DELPHI6UP}
  RegisterCustomModule(TRORemoteDataModule,TCustomModule);
  {$ELSE}
  RegisterCustomModule(TRORemoteDataModule,TDataModuleDesignerCustomModule);
  {$ENDIF}
  {$ENDIF}

  RegisterRODataModuleClass(TRORemoteDataModule,
    'RemObjects SDK &Remote Datamodule',
    'Standard RemObjects SDK datamodule. '+
    'This is the preferred server type when you need to use Delphi components (i.e. datasets, database connections) at design time.',
    'uRORemoteDataModule'
  );

  { TROBinMessage }
  RegisterPropertiesInCategory('Message', TROBinMessage, ['UseCompression', 'CompressionBufferSize', 'MinSizeForCompression']);
  RegisterPropertiesInCategory('Message', TROPostMessage, ['BinaryType']);
  RegisterPropertiesInCategory('Message', TROSoapMessage, ['SerializationOptions', 'CustomLocation']);

  { TROTransportChannel }
  RegisterPropertiesInCategory('Load Balancing', TROTransportChannel, ['ProbeFrequency', 'ProbeServers', 'ServerLocators', 'SynchronizedProbing', 'DispatchOptions']);
  RegisterPropertiesInCategory('Connection', TROTransportChannel, ['Encryption', 'Busy']);

  { TROWinInetHTTPChannel }
  RegisterPropertiesInCategory('Client', TROWinInetHTTPChannel, ['UserAgent', 'TargetURL', 'Login']);
  RegisterPropertiesInCategory('Connection', TROWinInetHTTPChannel, ['StoreConnected', 'Connected', 'KeepConnection']);

  { TROWinMessageChannel }
  RegisterPropertiesInCategory('Client', TROWinMessageChannel, ['ServerID']);
  RegisterPropertiesInCategory('AutoStart', TROWinMessageChannel, ['DefaultDirectory', 'Filename', 'Parameters', 'StartServer', 'Delay']);

  { TRODLLChannel }
  RegisterPropertiesInCategory('Client', TRODLLChannel, ['DLLName', 'KeepDLLLoaded']);

  { TRONamedPipeChannel }
  RegisterPropertiesInCategory('Client', TRONamedPipeChannel, ['ActivateOnDemand', 'Active', 'ServerID', 'ServerName']);


  { TROServer }
  RegisterPropertiesInCategory('Server', TROServer, ['Dispatchers']);
  RegisterPropertiesInCategory('Connection', TROServer, ['Encryption', 'Active', 'StoreActive']);

  { TROWinMessageServer }
  RegisterPropertiesInCategory('Server', TROWinMessageServer, ['ServerID']);

  { TRONamedPipeServer }
  RegisterPropertiesInCategory('Server', TRONamedPipeServer, ['ServerID']);


  { TROCustomSessionManager }
  RegisterPropertiesInCategory('Sessions', TROCustomSessionManager, ['MaxSessions', 'SessionDuration']);

  { TRODBSessionManager }
  RegisterPropertiesInCategory('Sessions', TRODBSessionManager, ['ClearSessionsOnCreate', 'ClearSessionsOnDestroy',
                                                                 'FieldNameCreated', 'FieldNameData', 'FieldNameLastAccessed', 'FieldNameSessionID']);

  { TRODynamicRequest }
  RegisterPropertiesInCategory('Request', TRODynamicRequest, ['OperationName', 'ServiceName', 'Params']);

  { TROEventReceiver }
  RegisterPropertiesInCategory('EventReceiver', TROEventReceiver, ['Active', 'Interval', 'ServiceName', 'SynchronizedProbing']);

  { TROPoweredByButton }
  RegisterPropertiesInCategory('Powered By Button', TROPoweredByRemObjectsButton, ['ApplicationType']);



  { TROEmailChannel }
  //RegisterPropertiesInCategory('Client', TROEmailChannel, ['ClientEmail', 'DeleteOldResponses', 'ServerEmail', 'Pp3ServerAddress', 'SmtpServerAddress']);

  { TROIndyHTTPChannel }
  //RegisterPropertiesInCategory('Client', TROIndyHTTPChannel, ['KeepAlive', 'TargetURL']);

  { TROIndyTCPChannel }
  //RegisterPropertiesInCategory('Client', TROIndyTCPChannel, ['DisableNagle', 'Host', 'Port', 'KeepAlive']);

  { TROIndyUDPChannel }
  //RegisterPropertiesInCategory('Client', TROIndyUDPChannel, ['AsyncTimeout', 'Host', 'Port', 'Retrys']);    //todo
end;

{$IFDEF MSWINDOWS}
initialization
  RegisterProduct('{154FA67E-DC1B-4784-BF27-EC81D5AEBCF2}',VersionBuildNo(hInstance));
finalization
  UnregisterProduct('{154FA67E-DC1B-4784-BF27-EC81D5AEBCF2}');
{$ENDIF MSWINDOWS}
end.