idircserver.pas

delphi indy9.0.18组件包

          else
            NotHandled;
      7 : {ISON}
          if assigned ( OnCommandIsOn ) then begin
            OnCommandIsOn( Thread, S );
          end // if assigned ( OnCommandIsOn ) then
          else
            NotHandled;
      8 : {JOIN}
          if assigned( OnCommandJoin ) then begin
            sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
            OnCommandJoin ( Thread, sCmd2, S );
          end // if assigned( OnCommandJoin ) then
          else
            NotHandled;
      9 : {KICK}
          if assigned( OnCommandKick ) then begin
            sCmd2 := Fetch ( s,' ' );    {Do not Localize}
            sCmd3 := Fetch ( s, ' ' );    {Do not Localize}
            OnCommandKick( Thread, sCmd2, sCmd3, S );
          end // if assigned( OnCommandKick ) then
          else
            NotHandled;
      10 : {KILL}
          if assigned ( OnCommandKill ) then begin
            sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
            OnCommandKill ( Thread, sCmd2, S );
          end // if assigned ( OnCommandKill ) then
          else
            NotHandled;
      11 : {LINKS}
          if assigned ( OnCommandLinks ) then begin
            sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
            OnCommandLinks ( Thread, sCmd2, S );
          end // if assigned ( OnCommandLinks ) then
          else
            NotHandled;
      12 : {LIST}
          if assigned ( OnCommandList ) then begin
            sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
            OnCommandList ( Thread, sCmd2, S );
          end // if assigned ( OnCommandList ) then
          else
            NotHandled;
      13 : {MODE}
          if assigned ( OnCommandMode ) then begin
            sCmd := Fetch ( s, ' ' );    {Do not Localize}
            sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
            sCmd3 := Fetch ( s, ' ' );    {Do not Localize}
            sCmd4 :=  Fetch ( s, ' ' );    {Do not Localize}
            OnCommandMode ( Thread, sCmd, sCmd2, sCmd3, sCmd4, S);
          end  // if assigned ( OnCommandMode ) then
          else
            NotHandled;
      14 : {NAMES}
          if assigned( OnCommandNames ) then begin
            OnCommandNames( Thread, S );
          end  // if assigned( OnCommandNames ) then
          else
            NotHandled;
      15 : {NICK}
          if assigned ( OnCommandNick ) then begin
            sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
            OnCommandNick ( Thread, sCmd2, S );
          end  // if assigned ( OnCommandNick ) then
          else
            NotHandled;
      16 : {NOTICE}
          if assigned ( OnCommandNotice ) then begin
            sCmd2 := Fetch( s, ' ' );    {Do not Localize}
            OnCommandNotice ( Thread, sCmd2, S );
          end  // if assigned ( OnCommandNotice ) then
          else
            NotHandled;
      17 : {OPER}
          if assigned ( OnCommandOper ) then begin
            sCmd2 := Fetch( s, ' ' );    {Do not Localize}
            OnCommandOper ( Thread, sCmd2, S );
          end  // if assigned ( OnCommandOper ) then
          else
            NotHandled;
      18 : {PART}
          if assigned ( OnCommandPart ) then begin
            OnCommandPart ( Thread, S );
          end // if assigned ( OnCommandPart ) then
          else
            NotHandled;
      19 : {PASS}
           if assigned( OnCommandPass ) then begin
             OnCommandPass( Thread, S );
           end // if assigned( OnCommandPass ) then
           else
             NotHandled;
      20 : {PING}
           if assigned(OnCommandPing) then begin
             sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
             OnCommandPing ( Thread, sCmd2, S );
           end // if assigned(OnCommandPing) then
           else
             NotHandled;
      21 : {PONG}
           if assigned(OnCommandPong) then begin
             sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
             OnCommandPong ( Thread, sCmd2, S );
           end // if assigned ( OnCommandPong ) then
           else
             NotHandled;
      22 : {PRIVMSG}
          if assigned( OnCommandPrivMsg ) then begin
            sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
            OnCommandPrivMsg ( Thread, sCmd2, S );
          end // if assigned( OnCommandPrivMsg ) then
          else
            NotHandled;
      23 : {QUIT}
          if assigned ( OnCommandQuit ) then begin
            OnCommandQuit( Thread, s );
          end // if assigned ( OnCommandQuit ) then
          else
            NotHandled;
      24 : {REHASH}
          if assigned ( OnCommandRehash ) then begin
            OnCommandRehash ( Thread );
          end // if assigned ( OnCommandRehash ) then
          else
            NotHandled;
      25 : {RESTART}
          if assigned ( OnCommandRestart ) then begin
            OnCommandRestart ( Thread );
          end // if assigned ( OnCommandRestart ) then
          else
            NotHandled;
      26 : {SERVER}
         if assigned ( OnCommandServer ) then begin
           sCmd := Fetch ( s, ' ' );    {Do not Localize}
           sCmd2 := Fetch( s, ' ' );    {Do not Localize}
           OnCommandServer ( Thread, sCmd, sCmd2, S );
         end // if assigned ( OnCommandServer ) then
         else
           NotHandled;
      27 : {SQUIT}
         if assigned ( OnCommandSQuit ) then begin
           sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
           OnCommandSQuit ( Thread, sCmd2, S );
         end  // if assigned ( OnCommandSQuit ) then
         else
           NotHandled;
      28 : {STAT}
         if assigned ( OnCommandStats ) then begin
           sCmd2 := Fetch( s, ' ' );    {Do not Localize}
           OnCommandStats ( Thread, sCmd2, S );
         end  // if assigned ( OnCommandStats ) then
         else
           NotHandled;
      29 : {SUMMON}
         if assigned( OnCommandSummon ) then begin
           sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
           OnCommandSummon ( Thread, sCmd2, S );
         end // if assigned( OnCommandSummon ) then
         else
           NotHandled;
      30 : {TIME}
         if assigned ( OnCommandTime ) then begin
           OnCommandTime ( Thread, S );
         end  // if assigned ( OnCommandTime ) then
         else
           NotHandled;
      31 : {TOPIC}
         if assigned ( OnCommandTopic ) then begin
           sCmd2 := Fetch( s, ' ');    {Do not Localize}
           OnCommandTopic ( Thread, sCmd2, S );
         end  // if assigned ( OnCommandTopic ) then
         else
           NotHandled;
      32 : {TRACE}
         if assigned ( OnCommandTrace ) then begin
           OnCommandTrace ( Thread, S );
         end // if assigned ( OnCommandTrace ) then
         else
           NotHandled;
      33 : {USER}
         if assigned ( OnCommandUser ) then begin
           sCmd := Fetch( s, ' ' );    {Do not Localize}
           sCmd2 := Fetch( s, ' ' );    {Do not Localize}
           sCmd3 := Fetch( s, ' ' );    {Do not Localize}
           OnCommandUser ( Thread, sCmd, sCmd2, sCmd3, S);
         end  // if assigned ( OnCommandUser ) then
         else
           NotHandled;
      34 : {USERHOST}
         if assigned ( OnCommandUserHost ) then begin
           OnCommandUserHost ( Thread, S );
         end // if assigned ( OnCommandUserHost ) then
         else
           NotHandled;
      35 : {USERS}
         if assigned ( OnCommandUsers ) then begin
           OnCommandUsers( Thread, S );
         end // if assigned ( OnCommandUsers ) then
         else
           NotHandled;
      36 : {VERSION}
         if assigned ( OnCommandVersion ) then begin
           OnCommandVersion ( Thread, S );
         end // if assigned ( OnCommandVersion ) then
         else
           NotHandled;
      37 : {WALLOPS}
         if assigned ( OnCommandWallops ) then begin
           OnCommandWallops ( Thread, S );
         end // if assigned ( OnCommandWallops ) then
         else
           NotHandled;
      38 : {WHO}
         if assigned ( OnCommandWho ) then begin
           sCmd2 := Fetch( s, ' ' );    {Do not Localize}
           OnCommandWho( Thread, sCmd2, S );
         end  // if assigned ( OnCommandWho ) then
         else
           NotHandled;
      39 : {WHOIS}
         if assigned( OnCommandWhoIs ) then begin
           sCmd2 := Fetch ( s, ' ' );    {Do not Localize}
           OnCommandWhoIs( Thread, sCmd2, S );
         end  // if assigned ( OnCommandWhoIs ) then
         else
           NotHandled;
      40 : {WHOWAS}
         if assigned ( OnCommandWhoWas ) then begin
           sCmd2 := Fetch( s, ' ' );    {Do not Localize}
           sCmd3 := Fetch( s, ' ' );    {Do not Localize}
           OnCommandWhoWas ( Thread, sCmd2, sCmd3, S );
         end  //if assigned ( OnCommandWhoWas ) then
         else
           NotHandled;
    else begin
      if assigned ( OnCommandOther ) then
        OnCommandOther ( Thread, sCmd, S );
      end;
    end;
  end;
end;

end.