units/indy/IdDiscardServer.pas

   1 // 22-nov-2002
   2 unit IdDiscardServer;
   3
   4 interface
   5
   6 uses KOL { ,
   7   Classes } ,
   8   IdTCPServer;
   9
  10 type
  11   TIdDISCARDServer = object(TIdTCPServer)
  12   protected
  13     function DoExecute(Thread: PIdPeerThread): boolean; override;
  14   public
  15      { constructor Create(AOwner: TComponent); override;
  16    }  { published }
  17   end;
  18 PIdDISCARDServer=^TIdDISCARDServer;
  19 function NewIdDISCARDServer(AOwner: PControl):PIdDISCARDServer;
  20
  21 implementation
  22
  23 uses
  24   IdGlobal,
  25   SysUtils;
  26
  27 //constructor TIdDISCARDServer.Create(AOwner: TComponent);
  28 function NewIdDISCARDServer(AOwner: PControl):PIdDISCARDServer;
  29 begin
  30   New( Result, Create );
  31 //  inherited;
  32   with Result^ do
  33     DefaultPort := IdPORT_DISCARD;
  34 end;
  35
  36 function TIdDISCARDServer.DoExecute(Thread: PIdPeerThread): boolean;
  37 begin
  38   result := true;
  39   with Thread.Connection do
  40   begin
  41     while Connected do
  42     begin
  43       RemoveXBytesFromBuffer(CurrentReadBufferSize);
  44     end;
  45   end;
  46 end;
  47
  48 end.