msgdatabasemysqlreg.pas

来自「Delphi MsgCommunicator 2-10 component.I 」· PAS 代码 · 共 52 行

unit MsgDatabaseMySQLReg;

{$I MsgVer.inc}

interface

// register MsgCommunicator Database Connection component in group MsgCommunicator
procedure Register; 

implementation

uses  Classes, TypInfo,
{$IFDEF MSWINDOWS}
      Controls,
{$ENDIF}
{$IFDEF D6H}
      DesignIntf
 {$ELSE}
      Dsgnintf
 {$ENDIF}

// MsgCommunicator units
 {$IFDEF DEBUG_LOG}
      ,MsgDebug
 {$ENDIF}
, MsgDatabaseMySQL
      ;

//------------------------------------------------------------------------------
// registration
//------------------------------------------------------------------------------
procedure Register;
begin
{$IFDEF DEBUG_LOG_INIT}
aaWriteToLog('MsgReg.Register started');
{$ENDIF}

RegisterComponents('MsgCommunicator', [TMsgDatabaseMySQL]);

{$IFDEF DEBUG_LOG_INIT}
aaWriteToLog('MsgDatabaseMySQLReg.Register finished');
{$ENDIF}
end; // Register

initialization

{$IFDEF DEBUG_LOG_INIT}
aaWriteToLog('MsgDatabaseMySQLReg initialization');
{$ENDIF}

end.