idsupercoreregister.pas

photo.163.com 相册下载器 多线程下载

{ $HDR$}
{**********************************************************************}
{ Unit archived using Team Coherence                                   }
{ Team Coherence is Copyright 2002 by Quality Software Components      }
{                                                                      }
{ For further information / comments, visit our WEB site at            }
{ http://www.TeamCoherence.com                                         }
{**********************************************************************}
{}
{ $Log:  56082: IdSuperCoreRegister.pas
{
    Rev 1.1    9/15/2004 5:04:20 PM  DSiders
  Added localization comments.
}
{
{   Rev 1.0    2004.02.03 12:39:04 AM  czhower
{ Move
}
{
{   Rev 1.5    2003.10.19 4:38:36 PM  czhower
{ Updates
}
{
{   Rev 1.4    2003.10.19 2:50:40 PM  czhower
{ Fiber cleanup
}
{
{   Rev 1.3    2003.10.19 1:04:28 PM  czhower
{ Updates
}
{
{   Rev 1.2    2003.08.20 1:45:14 PM  czhower
{ Fixes.
}
{
{   Rev 1.1    8/19/2003 12:16:32 PM  JPMugaas
{ Should now compile in new packages.
}
{
{   Rev 1.0    8/16/2003 11:03:52 AM  JPMugaas
{ Moved from Core as part of a package reorganization
}
unit IdSuperCoreRegister;

interface
uses Classes;

{
Note:  We separate this from IdCoreRegister because in Delphi 7,
these will be in a separate package.  This is particularly important as
some of this is in a different stage of development than most of Indy 10.
}
procedure Register;

implementation

uses
  IdDsnCoreResourceStrings,
  IdFiberWeaverInline,
  IdIOHandlerChain,
  IdServerIOHandlerChain,
  IdFiberWeaverThreaded,
  IdSchedulerOfFiber;

{$I ..\Core\IdCompilerDefines.inc}

{$IFDEF Borland}
  {$R IdSuperCoreRegister.dcr}
{$ELSE}
  {$R IdSuperCoreRegisterCool.dcr}
{$ENDIF}

procedure Register;
begin
  RegisterComponents('Indy Super Core',  {do not localize}
  [ TIdServerIOHandlerChain,
    TIdChainEngine,
    TIdSchedulerOfFiber,
    TIdFiberWeaverInline,
    TIdFiberWeaverThreaded
   ]);
end;

end.