anchor.diff:  end;
   
   procedure TDiocpCustomContext.DoConnected;
  +var
  +  r:Boolean;
  +  lvError:Integer;
   begin
     // һЩ״̬ĳʼ
     FRequestDisconnect := false;
  
positive.code:     procedure BindingEngine(const pvEngine:TIocpEngine);
  
      function GetDebugString: String;
  
    public
      procedure IncOperaOptions(const pvFlag:Integer);
  
negative.code: 
      procedure SetWSASendBufferSize(const Value: Cardinal);
  
    private
      FNoDelayOption: Boolean;
  
      /// <summary>
      ///   ȡǰ
  