anchor.diff:    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;
  
positive.code: constructor TDiocpHttpServer.Create(AOwner: TComponent);
  begin
    inherited;
    FRequestPool := TBaseQueue.Create;
    KeepAlive := false;
    RegisterContextClass(TDiocpHttpClientContext);
  end;
  
  destructor TDiocpHttpServer.Destroy;
  begin
    FRequestPool.FreeDataObject;
    FRequestPool.Free;
    inherited;
  end;
  
  procedure TDiocpHttpServer.DoRequest(pvRequest: TDiocpHttpRequest);
  begin
    // sessionĴ
    if pvRequest.GetCookie('diocp_sessionid') = '' then
    begin
      pvRequest.Response.AddCookie('diocp_sessionid', 'diocp_session_' + DeleteChars(CreateClassID, ['-', '{', '}']));
    end;
  
    if Assigned(FOnDiocpHttpRequest) then
    begin
  
negative.code:   Result.FDiocpHttpServer := Self;
  end;
  
  function TDiocpHttpServer.GetSession(pvSessionID:string): TDiocpHttpSession;
  begin
    FSessionList.Lock;
    try
      Result := TDiocpHttpSession(FSessionList.ValueMap[pvSessionID]);
      if Result = nil then
      begin
        Result := FSessionClass.Create();
        FSessionList.ValueMap[pvSessionID] := Result;      
      end;
    finally
      FSessionList.unLock;
    end;
  end;
  
  procedure TDiocpHttpServer.GiveBackRequest(pvRequest: TDiocpHttpRequest);
  begin
    FRequestPool.EnQueue(pvRequest);
  end;
  
  procedure TDiocpHttpServer.RegisterSessionClass(pvClass:TDiocpHttpSessionClass);
  begin
    FSessionClass := pvClass;
  end;
  
  function TDiocpHttpCookie.ToString: String;
  begin
    Result := Format('%s=%s; Path=%s;', [self.FName, self.FValue, Self.FPath]);
  end;
  
  constructor TDiocpHttpSession.Create;
  begin
  
  end;
  
  
  
  end.
  