www.pudn.com > indy10.0.52_source.rar > IdRegisterCore.pas

{ $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:  56905: IdRegisterCore.pas  
{ 
{   Rev 1.1    2/8/2004 1:35:40 PM  JPMugaas 
{ IdSocks is now in DotNET. 
} 
{ 
{   Rev 1.0    2/3/2004 12:28:06 PM  JPMugaas 
{ Kudzu wanted this renamed. 
} 
{ 
{   Rev 1.27    2004.01.01 2:40:02 PM  czhower 
{ Removed test ifdef 
} 
{ 
{   Rev 1.26    1/1/2004 3:32:30 PM  BGooijen 
{ Added icons for .Net 
} 
{ 
{   Rev 1.25    2003.12.31 11:02:50 PM  czhower 
{ New components now registered for .net. 
} 
{ 
{   Rev 1.24    2003.12.25 6:55:20 PM  czhower 
{ TCPServer 
} 
{ 
{   Rev 1.23    11/22/2003 11:49:52 PM  BGooijen 
{ Icons for DotNet 
} 
{ 
{   Rev 1.22    17/11/2003 16:00:22  ANeillans 
{ Fix Delphi compile errors. 
} 
{ 
{   Rev 1.21    11/8/2003 8:09:24 PM  BGooijen 
{ fix, i mixed up some stuff 
} 
{ 
{   Rev 1.20    11/8/2003 7:27:10 PM  BGooijen 
{ DotNet 
} 
{ 
{   Rev 1.19    2003.10.19 1:35:32 PM  czhower 
{ Moved Borland define to .inc 
} 
{ 
{   Rev 1.18    2003.10.18 11:32:42 PM  czhower 
{ Changed throttler to intercept 
} 
{ 
{   Rev 1.17    2003.10.17 6:18:50 PM  czhower 
{ TIdInterceptSimLog 
} 
{ 
{   Rev 1.16    2003.10.14 1:26:42 PM  czhower 
{ Uupdates + Intercept support 
} 
{ 
{   Rev 1.15    9/21/2003 01:10:40 AM  JPMugaas 
{ Added IdThreadCOmponent to the registration in Core. 
} 
{ 
{   Rev 1.14    2003.08.19 11:06:34 PM  czhower 
{ Fixed names of scheduler units. 
} 
{ 
{   Rev 1.13    8/19/2003 01:25:08 AM  JPMugaas 
{ Unnecessary junk removed. 
} 
{ 
{   Rev 1.12    8/15/2003 12:02:48 AM  JPMugaas 
{ Incremented version number. 
{ Moved some units to new IndySuperCore package in D7. 
{ Made sure package titles are uniform in the IDE and in the .RES files. 
} 
{ 
{   Rev 1.11    7/24/2003 03:22:00 AM  JPMugaas 
{ Removed some old files. 
} 
{ 
{   Rev 1.10    7/18/2003 4:33:12 PM  SPerry 
{ Added TIdCmdTCPClient 
} 
{ 
{   Rev 1.7    4/17/2003 05:02:26 PM  JPMugaas 
} 
{ 
{   Rev 1.6    4/11/2003 01:09:50 PM  JPMugaas 
} 
{ 
    Rev 1.5    3/25/2003 11:12:54 PM  BGooijen 
  TIdChainEngineStack added. 
} 
{ 
{   Rev 1.4    3/25/2003 05:02:00 PM  JPMugaas 
{ TCmdTCPServer added. 
} 
{ 
    Rev 1.3    3/22/2003 10:14:54 PM  BGooijen 
  Added TIdServerIOHandlerChain to the palette 
} 
{ 
{   Rev 1.2    3/22/2003 02:20:48 PM  JPMugaas 
{ Updated registration. 
} 
{ 
{   Rev 1.1    1/17/2003 04:18:44 PM  JPMugaas 
{ Now compiles with new packages. 
} 
{ 
{   Rev 1.0    11/13/2002 08:41:42 AM  JPMugaas 
} 
unit IdRegisterCore; 
 
interface 
 
uses 
  Classes; 
 
// Procedures 
  procedure Register; 
 
implementation 
 
{$I IdCompilerDefines.inc} 
 
uses 
  {$IFNDEF DOTNET} 
  IdIcmpClient, 
  {$ENDIF} 
  IdSocks, 
 
  IdDsnCoreResourceStrings, 
  IdAntiFreeze, 
  IdCmdTCPClient, 
  IdCmdTCPServer, 
  IdIOHandlerStream, 
  IdInterceptSimLog, 
  IdInterceptThrottler, 
  IdLogDebug, 
  IdLogEvent, 
  IdLogFile, 
  IdLogStream, 
  IdSchedulerOfThread, 
  IdSchedulerOfThreadDefault, 
  IdSchedulerOfThreadPool, 
  IdServerIOHandlerSocket, 
  IdServerIOHandlerStack, 
  IdSimpleServer, 
  IdThreadComponent, 
  IdUDPClient, 
  IdUDPServer, 
  IdIOHandlerSocket, 
  IdIOHandlerStack, 
  IdIntercept, 
  IdTCPServer, 
  IdTCPClient; 
 
{$IFDEF DOTNET} 
  {$R IconsDotNet\TIdAntiFreeze.bmp} 
  {$R IconsDotNet\TIdCmdTCPClient.bmp} 
  {$R IconsDotNet\TIdCmdTCPServer.bmp} 
  {$R IconsDotNet\TIdConnectionIntercept.bmp} 
  {$R IconsDotNet\TIdICMPClient.bmp} 
  {$R IconsDotNet\TIdInterceptSimLog.bmp} 
  {$R IconsDotNet\TIdInterceptThrottler.bmp} 
  {$R IconsDotNet\TIdIOHandlerStack.bmp} 
  {$R IconsDotNet\TIdIOHandlerStream.bmp} 
  {$R IconsDotNet\TIdLogDebug.bmp} 
  {$R IconsDotNet\TIdLogEvent.bmp} 
  {$R IconsDotNet\TIdLogFile.bmp} 
  {$R IconsDotNet\TIdLogStream.bmp} 
  {$R IconsDotNet\TIdSchedulerOfThreadDefault.bmp} 
  {$R IconsDotNet\TIdSchedulerOfThreadPool.bmp} 
  {$R IconsDotNet\TIdServerIOHandlerStack.bmp} 
  {$R IconsDotNet\TIdSimpleServer.bmp} 
  {$R IconsDotNet\TIdTCPClient.bmp} 
  {$R IconsDotNet\TIdTCPServer.bmp} 
  {$R IconsDotNet\TIdThreadComponent.bmp} 
  {$R IconsDotNet\TIdUDPClient.bmp} 
  {$R IconsDotNet\TIdUDPServer.bmp} 
{$ELSE} 
  {$IFDEF Borland} 
    {$R IdCoreRegister.dcr} 
  {$ELSE} 
    {$R IdCoreRegisterCool.dcr} 
  {$ENDIF} 
{$ENDIF} 
 
procedure Register; 
begin 
  RegisterComponents(RSRegIndyClients, [ 
   TIdTCPClient 
   ,TIdUDPClient 
   ,TIdCmdTCPClient 
   {$IFNDEF DOTNET} 
   ,TIdIcmpClient 
   {$ENDIF} 
  ]); 
  RegisterComponents(RSRegIndyServers, [ 
   TIdUDPServer, 
   TIdCmdTCPServer, 
   TIdSimpleServer, 
   TIdTCPServer 
  ]); 
  RegisterComponents(RSRegIndyIOHandlers,[ 
   TIdIOHandlerStack 
   ,TIdIOHandlerStream 
   ,TIdServerIOHandlerStack 
  ]); 
  RegisterComponents(RSRegIndyIntercepts, [ 
   TIdConnectionIntercept 
   ,TIdInterceptSimLog 
   ,TIdInterceptThrottler 
   ,TIdLogDebug 
   ,TIdLogEvent 
   ,TIdLogFile 
   ,TIdLogStream 
  ]); 
  RegisterComponents(RSRegIndyMisc, [ 
   TIdSocksInfo, 
   TIdAntiFreeze, 
   TIdSchedulerOfThreadDefault, 
   TIdSchedulerOfThreadPool, 
   TIdThreadComponent 
  ]); 
end; 
 
end.