anchor.diff:      /// </summary>
       procedure GiveBackRequest(pvRequest:TDiocpHttpRequest);
   
  +    /// <summary>
  +    ///   ȡһSession
  +    /// </summary>
  +    function GetSession(pvSessionID:string): TDiocpHttpSession;
  +
     public
       constructor Create(AOwner: TComponent); override;
   
       destructor Destroy; override;
  +
  +    procedure RegisterSessionClass(pvClass:TDiocpHttpSessionClass);
   
   
   
  
positive.code: 
  end;
  
  /// <summary>
  ///  POSTGET
  /// </summary>
  
negative.code:   FRequestCookieList.Free;
  
    inherited Destroy;
  end;
  
  procedure TDiocpHttpRequest.CheckCookieSession;
  begin
    // sessionĴ
    FSessionID := GetCookie(SESSIONID);
    if FSessionID = '' then
    begin
      FSessionID := SESSIONID + '_' + DeleteChars(CreateClassID, ['-', '{', '}']);
      Response.AddCookie(SESSIONID, FSessionID);
    end;
  end;
  
  function TDiocpHttpRequest.DecodeHttpRequestMethod: Integer;
  