david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
160 lines
6.1 KiB
ObjectPascal
160 lines
6.1 KiB
ObjectPascal
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.
|