idimap4server.pas

Indy控件的使用源代码

        begin
          DoCommandError ( Thread, sTag, ArgStr, Handled );
        end; // else ..if ( Length ( SCmd ) > 0) and ( UpCase ( SCmd[1] ) = 'X' ) then    {Do not Localize}
      end; // else .. case
    end; {Case}
  end; {while}
end;                            { doExecute }

procedure TIdIMAP4Server.DoCommandCapability(Thread: TIdPeerThread; Const Tag, CmdStr :String;
                               Var Handled :Boolean);
begin
  if Assigned ( fOnCommandCAPABILITY ) then
  begin
    OnCommandCAPABILITY ( Thread, Tag, CmdStr, Handled );
  end; //if Assigned ( fOnCommandCAPABILITY ) then
end;

procedure TIdIMAP4Server.DoCommandNOOP ( Thread : TIdPeerThread;
  const Tag, CmdStr : String; var Handled : Boolean );
begin
  if Assigned ( fONCommandNOOP ) then
  begin
    OnCommandNOOP ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandNOOP ) then
end;

procedure TIdIMAP4Server.DoCommandLOGOUT( Thread : TIdPeerThread;
  const Tag,CmdStr : String; var Handled : Boolean );
begin
  if Assigned ( fONCommandLOGOUT ) then
  begin
    OnCommandLOGOUT ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandLOGOUT ) then
end;

procedure TIdIMAP4Server.DoCommandAUTHENTICATE ( Thread : TIdPeerThread;
  const Tag, CmdStr : String; var Handled : Boolean );
begin
  if Assigned ( fONCommandAUTHENTICATE ) then
  begin
    OnCommandAUTHENTICATE(Thread,Tag, CmdStr,Handled);
  end; // if Assigned ( fONCommandAUTHENTICATE ) then
end;

procedure TIdIMAP4Server.DoCommandLOGIN ( Thread : TIdPeerThread;
  const Tag,CmdStr :String; var Handled :Boolean );
begin
  if Assigned ( fONCommandLOGIN ) then
  begin
    OnCommandLOGIN ( Thread,Tag, CmdStr, Handled );
  end; //if Assigned ( fONCommandLOGIN ) then
end;

procedure TIdIMAP4Server.DoCommandSELECT(Thread : TIdPeerThread;
  const Tag, CmdStr : String; var Handled : Boolean );
begin
  if Assigned ( fONCommandSELECT ) then
  begin
    OnCommandSELECT ( Thread, Tag, CmdStr, Handled );
  end; //if Assigned ( fONCommandSELECT ) then
end;

procedure TIdIMAP4Server.DoCommandEXAMINE(Thread : TIdPeerThread;
  const Tag, CmdStr :String; var Handled : Boolean);
begin
  if Assigned ( fONCommandEXAMINE ) then
  begin
     OnCommandEXAMINE ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandEXAMINE ) then
end;

procedure TIdIMAP4Server.DoCommandCREATE ( Thread : TIdPeerThread;
  const Tag, CmdStr : String; var Handled :Boolean);
begin
  if Assigned ( fONCommandCREATE ) then
  begin
    OnCommandCREATE( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandCREATE ) then
end;

procedure TIdIMAP4Server.DoCommandDELETE ( Thread : TIdPeerThread;
  const Tag, CmdStr : String; var Handled :Boolean );
begin
  if Assigned ( fONCommandDELETE ) then
  begin
    OnCommandDELETE ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandDELETE ) then
end;

procedure TIdIMAP4Server.DoCommandRENAME ( Thread : TIdPeerThread;
  const Tag, CmdStr : String; var Handled : Boolean );
begin
  if Assigned ( fONCommandRENAME ) then
  begin
    OnCommandRENAME( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandRENAME ) then
end;

procedure TIdIMAP4Server.DoCommandSUBSCRIBE( Thread : TIdPeerThread;
  const Tag, CmdStr : String; var Handled : Boolean );
begin
  if Assigned ( fONCommandSUBSCRIBE ) then
  begin
    OnCommandSUBSCRIBE ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandSUBSCRIBE ) then
end;

procedure TIdIMAP4Server.DoCommandUNSUBSCRIBE( Thread : TIdPeerThread;
  const Tag, CmdStr : String; var Handled : Boolean );
begin
  if Assigned ( fONCommandUNSUBSCRIBE ) then
  begin
    OnCommandUNSUBSCRIBE(Thread,Tag,CmdStr,Handled);
  end; // if Assigned ( fONCommandUNSUBSCRIBE ) then
end;

procedure TIdIMAP4Server.DoCommandLIST(Thread: TIdPeerThread;
  const Tag, CmdStr : String; var Handled : Boolean);
begin
  if Assigned ( fONCommandLIST ) then
  begin
    OnCommandLIST(Thread,Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandLIST ) then
end;

procedure TIdIMAP4Server.DoCommandLSUB ( Thread: TIdPeerThread;
  const Tag, CmdStr :String; var Handled : Boolean );
begin
  if Assigned ( fONCommandLSUB ) then
  begin
    OnCommandLSUB ( Thread, Tag, CmdStr, Handled );
  end;  //if Assigned ( fONCommandLSUB ) then
end;

procedure TIdIMAP4Server.DoCommandSTATUS( Thread: TIdPeerThread;
  const Tag, CmdStr : String; var Handled : Boolean);
begin
  if Assigned ( fONCommandSTATUS ) then
  begin
    OnCommandSTATUS ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandSTATUS ) then
end;

procedure TIdIMAP4Server.DoCommandAPPEND( Thread : TIdPeerThread;
  const Tag, CmdStr : String; var Handled : Boolean );
begin
  if Assigned ( fONCommandAPPEND ) then
  begin
    OnCommandAPPEND ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned(fONCommandAPPEND) then
end;

procedure TIdIMAP4Server.DoCommandCHECK(Thread: TIdPeerThread;
  const Tag, CmdStr : String; var Handled :Boolean);
begin
  if Assigned ( fONCommandCHECK ) then
  begin
    OnCommandCHECK ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned(fONCommandCHECK) then
end;

procedure TIdIMAP4Server.DoCommandCLOSE(Thread: TIdPeerThread;
  const Tag, CmdStr : String; var Handled :Boolean );
begin
  if Assigned ( fONCommandCLOSE ) then
  begin
    OnCommandCLOSE ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandCLOSE ) then
end;

procedure TIdIMAP4Server.DoCommandEXPUNGE(Thread: TIdPeerThread;
  const Tag, CmdStr : String; var Handled :Boolean);
begin
  if Assigned ( fONCommandEXPUNGE ) then
  begin
    OnCommandEXPUNGE ( Thread, Tag, CmdStr, Handled  );
  end; //if Assigned ( fONCommandEXPUNGE ) then
end;

procedure TIdIMAP4Server.DoCommandSEARCH(Thread: TIdPeerThread;
  const Tag, CmdStr : String; var Handled :Boolean );
begin
  if Assigned ( fONCommandSEARCH ) then
  begin
    OnCommandSEARCH ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandSEARCH ) then
end;

procedure TIdIMAP4Server.DoCommandFETCH(Thread: TIdPeerThread;
  const Tag, CmdStr : String; var Handled :Boolean);
begin
  if Assigned ( fONCommandFETCH ) then
  begin
    OnCommandFETCH ( Thread,Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandFETCH ) then
end;

procedure TIdIMAP4Server.DoCommandSTORE(Thread: TIdPeerThread;
  const Tag, CmdStr : String; var Handled :Boolean);
begin
  if Assigned ( fONCommandSTORE ) then
  begin
    OnCommandSTORE ( Thread, Tag, CmdStr, Handled );
  end; //if Assigned ( fONCommandSTORE ) then
end;

procedure TIdIMAP4Server.DoCommandCOPY(Thread: TIdPeerThread;
  const Tag, CmdStr : String; var Handled :Boolean);
begin
  if Assigned ( fONCommandCOPY ) then
  begin
    OnCommandCOPY ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandCOPY ) then
end;

procedure TIdIMAP4Server.DoCommandUID(Thread: TIdPeerThread; const Tag, CmdStr :String;
  var Handled : Boolean );
begin
  if Assigned ( fONCommandUID ) then
  begin
    OnCommandUID ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandUID ) then
end;

procedure TIdIMAP4Server.DoCommandX(Thread: TIdPeerThread; const Tag, CmdStr :String;
  var Handled : Boolean);
begin
  if Assigned ( fONCommandX ) then
  begin
    OnCommandX ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandX ) then
end;

procedure TIdIMAP4Server.DoCommandError(Thread: TIdPeerThread; const Tag, CmdStr :String;
  var Handled : Boolean );
begin
  if Assigned ( fONCommandError ) then
  begin
    OnCommandError ( Thread, Tag, CmdStr, Handled );
  end; // if Assigned ( fONCommandError ) then
end;
//------------------------------------------------------------------------------
//                  End of  TIdIMAP4Server Code
//                     Started August 26, 1999
//------------------------------------------------------------------------------

End.