idregister.pas

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

  {$R IconsDotNet\TIdUserManager.bmp}
  {$R IconsDotNet\TIdUserPassProvider.bmp}
  {$R IconsDotNet\TIdVCard.bmp}
  {$R IconsDotNet\TIdWhois.bmp}
  {$R IconsDotNet\TIdWhoIsServer.bmp}
{$ELSE}
  {$IFDEF Borland}
    {$R IdRegister.dcr}
  {$ELSE}
    {$R IdRegisterCool.dcr}
  {$ENDIF}
{$ENDIF}

uses
  Classes;

// Procs
  procedure Register;

implementation

uses
//TODO:  IdBlockCipherIntercept,
  IdChargenServer,
  IdChargenUDPServer,
  IdCoder3to4,
  IdCoderMIME,
  IdCoderQuotedPrintable,
  IdCoderUUE,
  IdCoderXXE,
   {$IFDEF WIN32}
     {$IFNDEF DOTNET}
     IdCompressorZLibEx,
     {$ENDIF}
   {$ENDIF}
  {$IFNDEF DOTNET}
  IdConnectThroughHttpProxy,
  {$ENDIF}
  IdCookieManager,
  IdResourceStringsCore,
  IdDateTimeStamp,
  IdDayTime,
  IdDayTimeServer,
  IdDayTimeUDP,
  IdDayTimeUDPServer,
  IdDICT,
  IdDICTServer,
  IdDiscardServer,
  IdDiscardUDPServer,
  {$IFNDEF DOTNET}
  IdDsnRegister,
  {$ENDIF}
  {$IFNDEF DOTNET}
  IdDNSResolver,
  IdDNSServer,
  {$ENDIF}
  IdDsnCoreResourceStrings,
  IdEcho,
  IdEchoServer,
  IdEchoUDP,
  IdEchoUDPServer,
  IdFinger,
  IdFingerServer,
  IdFTP,
  IdFTPServer,
  IdGopher,
  IdGopherServer,
  IdHashMessageDigest,
//  IdHL7,
  IdHTTP,
  IdHTTPProxyServer,
  IdHTTPServer,
  IdIdent,
  IdIdentServer,
  IdIMAP4,
  IdIMAP4Server,
  {$IFNDEF DOTNET}
  IdIPMCastClient,
  IdIPMCastServer,
  {$ENDIF}
  IdIPWatch,
  IdIRC,
  IdIrcServer,
  IdLPR,
  IdMailBox,
  IdMappedFTP,
  IdMappedPortTCP,
  IdMappedTelnet,
  IdMappedPOP3,
  IdMappedPortUDP,
  IdMessage,
  IdMessageCoderMIME,
  {$IFNDEF DOTNET}
  IdMessageCoderYenc,
  IdNetworkCalculator,
  {$ENDIF}
  IdNNTP,
  IdNNTPServer,
  IdPOP3,
  IdPOP3Server,
  IdQotd,
  IdQotdServer,
  IdQOTDUDP,
  IdQOTDUDPServer,
  IdResourceStrings,
  IdResourceStringsProtocols,
  IdRexec,
  IdRexecServer,
  IdRSH,
  IdRSHServer,
  IdSASLAnonymous,
  IdSASLExternal,
  IdSASLLogin,
  IdSASLOTP,
  IdSASLPlain,
  IdSASLSKey,
  IdSASLUserPass,
  IdSASL_CRAM_MD5,
  IdServerInterceptLogEvent,
  IdServerInterceptLogFile,
  IdServerIOHandler,
  IdSMTP,
  {$IFNDEF DOTNET}
  IdSMTPRelay,
  {$ENDIF}
  IdSMTPServer,
   {$IFNDEF DOTNET}
  IdSNMP,

  IdSNPP,
  IdSNTP,
  IdSocksServer,
  {$ENDIF}

  {$IFNDEF DOTNET}
  IdSSLOpenSSL,
  {$ENDIF}
  IdSysLog,
  IdSysLogMessage,
  IdSysLogServer,
  IdSystat,
  IdSystatServer,
  IdSystatUDP,
  IdSystatUDPServer,
  IdTelnet,
  IdTelnetServer,
  IdTime,
  IdTimeServer,
  IdTimeUDP,
  IdTimeUDPServer,
  {$IFNDEF DOTNET}
  IdTrivialFTP,
  IdTrivialFTPServer,
  {$ENDIF}
//TODO:  IdTunnelMaster,
//TODO:  IdTunnelSlave,
  IdUserAccounts,
  IdUserPassProvider,
  {$IFNDEF DOTNET}
  IdVCard,
  {$ENDIF}

  IdWhois,
  IdWhoIsServer;


procedure Register;
begin
  RegisterComponents(RSRegIndyClients, [
   //

   TIdDayTime,
   TIdDayTimeUDP,
   TIdDICT,

   {$IFNDEF DOTNET}
   TIdDNSResolver,
   {$ENDIF}
   TIdEcho,
   TIdEchoUDP,

   TIdFinger,

   TIdFTP,
   TIdGopher,
   TIdHTTP,
   TIdIdent,
   TIdIMAP4,
   {$IFNDEF DOTNET}
   TIdIPMCastClient,
   {$ENDIF}
   TIdIRC,
   TIdLPR,
   TIdNNTP,
   TIdPOP3,
   TIdQOTD,
   TIdQOTDUDP,
   TIdRexec,
   TIdRSH,
   TIdSMTP,
   {$IFNDEF DOTNET}
   TIdSMTPRelay,

   TIdSNMP,
   TIdSNPP,
   TIdSNTP,
    {$ENDIF}
   TIdSysLog,
   TIdSystat,
   TIdSystatUDP,
   TIdTelnet,
   TIdTime,

   TIdTimeUDP,
   {$IFNDEF DOTNET}
   TIdTrivialFTP,
   {$ENDIF}
   TIdWhois]);

  RegisterComponents(RSRegIndyServers, [
   TIdChargenServer,
   TIdChargenUDPServer,
   TIdDayTimeServer,
   TIdDayTimeUDPServer,
   TIdDICTServer,
   TIdDISCARDServer,
   TIdDiscardUDPServer,
   {$IFNDEF DOTNET}
   TIdDNSServer,
   {$ENDIF}
   TIdECHOServer,
   TIdEchoUDPServer,
   TIdFingerServer,
   TIdFTPServer,
   TIdGopherServer,
   TIdHTTPProxyServer,
   TIdHTTPServer,
   TIdIdentServer,
   TIdIMAP4Server,
   {$IFNDEF DOTNET}
   TIdIPMCastServer,
   {$ENDIF}
   TIdIRCServer,
   {$IFNDEF DOTNET}
   TIdMappedFTP,
   TIdMappedPOP3,
   TIdMappedPortTCP,
   TIdMappedPortUDP,
   TIdMappedTelnet,
   {$ENDIF}
   TIdNNTPServer,
   TIdPOP3Server,
   TIdQOTDServer,
   TIdQotdUDPServer,
   TIdRexecServer,
   TIdRSHServer,
   TIdSMTPServer,
   {$IFNDEF DOTNET}
   TIdSocksServer,
   {$ENDIF}
   TIdSyslogServer,
   TIdSystatServer,
   TIdSystatUDPServer,
   TIdTelnetServer,
   TIdTimeServer,
   TIdTimeUDPServer,
   {$IFNDEF DOTNET}
   TIdTrivialFTPServer,
   //TODO:  TIdTunnelMaster,
   //TODO: TIdTunnelSlave,
   {$ENDIF}
   TIdWhoIsServer
   ]);
  RegisterComponents(RSRegIndyServers, [
   TIdFTPServer
   ]);
  RegisterComponents(RSRegIndyIntercepts, [
//TODO:   TIdBlockCipherIntercept,
//TODO:   TIdCompressionIntercept,
//TODO:   TIdServerCompressionIntercept,
   TIdServerInterceptLogEvent,
   TIdServerInterceptLogFile
   ]);
{$IFNDEF DOTNET}
  RegisterComponents(RSRegIndyIOHandlers, [
   {Open SSL should be supported in Kylix now}
   TIdServerIOHandlerSSLOpenSSL,
   TIdSSLIOHandlerSocketOpenSSL
   ]);
{$ENDIF}
  RegisterComponents(RSRegSASL, [
   TIdSASLAnonymous,
   TIdSASLCRAMMD5,
   TIdSASLExternal,
   TIdSASLLogin,
   TIdSASLOTP,
   TIdSASLPlain,
   TIdSASLSKey,
   TIdUserPassProvider
   ]);
  RegisterComponents(RSRegIndyMisc, [
  {$IFNDEF DOTNET}
   TIdConnectThroughHttpProxy,
   {$ENDIF}
   {$IFDEF WIN32}
     {$IFNDEF DOTNET}
     TIdCompressorZLibEx,
     {$ENDIF}
   {$ENDIF}
   TIdCookieManager,
   TIdEncoderMIME,
   TIdEncoderUUE,
   TIdEncoderXXE,
   TIdEncoderQuotedPrintable,
{$IFNDEF DOTNET}
   TIdDateTimeStamp,
{$ENDIF}
   TIdDecoderMIME,
   TIdDecoderUUE,
   TIdDecoderXXE,
   TIdDecoderQuotedPrintable,
   TIdIPWatch,
//   TIdHL7,
   TIdMailBox,
   TIdMessage,
   TIdMessageDecoderMIME,
   TIdMessageEncoderMIME,
   {$IFNDEF DOTNET}
   TIdMessageDecoderYenc,
   TIdMessageEncoderYenc,

   TIdNetworkCalculator,
    {$ENDIF}
   TIdSysLogMessage,
   TIdUserManager,
   {$IFNDEF DOTNET}
   TIdVCard,
    {$ENDIF}
   TIdMessage
   ]);
end;

end.