regfibplus.pas

来自「FIBPlus is a component suite intended fo」· PAS 代码 · 共 108 行

{***************************************************************}
{ FIBPlus - component library for direct access to Firebird and }
{ InterBase databases                                           }
{                                                               }
{    FIBPlus is based in part on the product                    }
{    Free IB Components, written by Gregory H. Deatz for        }
{    Hoagland, Longo, Moran, Dunst & Doukas Company.            }
{    mailto:[e-mail]                                    }
{                                                               }
{    Copyright (c) 1998-2007 Devrace Ltd.                       }
{    Written by Serge Buzadzhy ([e-mail])               }
{                                                               }
{ ------------------------------------------------------------- }
{    FIBPlus home page: http://www.fibplus.com/                 }
{    FIBPlus support  : http://www.devrace.com/support/         }
{ ------------------------------------------------------------- }
{                                                               }
{  Please see the file License.txt for full license information }
{***************************************************************}


unit RegFIBPlus;

interface
{$I FIBPlus.inc}
uses
 {$IFDEF WINDOWS}
  Classes,Sysutils,DB,
  pFIBDataSet,pFIBDatabase,
  pFIBQuery, DSContainer,pFIBSQLLog,SIBFIBEA,
  {$IFNDEF NO_MONITOR}
   FIBSQLMonitor,
  {$ENDIF}
  pFIBErrorHandler, pFIBStoredProc,  pFIBProps
  {$IFDEF  INC_SERVICE_SUPPORT}
     ,IB_Services, IB_Install
  {$ENDIF}
;

 {$ENDIF}
 {$IFDEF LINUX}
  Classes,SysUtils,DB,
  pFIBDataSet,pFIBDatabase,
  pFIBQuery, DSContainer,
  pFIBErrorHandler,

  pFIBStoredProc, pFIBProps
  {$IFDEF  INC_SERVICE_SUPPORT}
   ,IB_Services, IB_Install
  {$ENDIF}
  ;
 {$ENDIF}



procedure Register;

implementation

uses //DsgnIntf,
{$IFNDEF NO_REGISTRY}
 RegUtils,
{$ENDIF}
FIBDataSet,FIBQuery,FIBDatabase,SqlTxtRtns,StrUtil,
 pFIBDataInfo, pFIBScripter;

const FIBPalette='FIBPlus';

{$R fibplus.dcr}

procedure Register;
begin

//  RegisterComponents(FIBPalette, [TComponent1]);
  RegisterComponents(FIBPalette,
   [TpFIBDatabase,TpFIBDataSet,TpFIBTransaction,TpFIBQuery,TpFIBStoredProc,
    TpFIBUpdateObject,    TDataSetsContainer,
    TpFibErrorHandler,TpFIBScripter
   ]
  );
 {$IFNDEF LINUX}
  RegisterComponents(FIBPalette, [TFIBSQLLogger  ,TSIBfibEventAlerter]);
 {$ENDIF}
 {$IFNDEF NO_MONITOR}
  RegisterComponents(FIBPalette, [TFIBSQLMonitor]);
 {$ENDIF}

  {$IFDEF  INC_SERVICE_SUPPORT}
  RegisterComponents('FIBPlusServices', [
       TpFIBServerProperties,
       TpFIBConfigService,
       TpFIBLicensingService,
       TpFIBLogService,
       TpFIBStatisticalService,
       TpFIBBackupService,
       TpFIBRestoreService,
       TpFIBValidationService,
       TpFIBSecurityService,
       TpFIBInstall,
       TpFIBUnInstall

    ]);
   {$ENDIF}

end;

end.