anchor.diff:      FResponse: TDiocpHttpResponse;
   
       /// <summary>
  +    ///   ʹˣ黹ض
  +    /// </summary>
  +    procedure Close;
  +    /// <summary>
       /// ǷЧHttp 󷽷
       /// </summary>
       /// <returns>
  
positive.code:   TDiocpHttpState = (hsCompleted, hsRequest {  } , hsRecvingPost {  } );
    TDiocpHttpResponse = class;
    TDiocpHttpClientContext = class;
  
    TDiocpHttpRequest = class(TObject)
    private
      FDiocpContext: TDiocpHttpClientContext;
  
      /// ͷϢ
  
negative.code: constructor TDiocpHttpServer.Create(AOwner: TComponent);
  begin
    inherited;
    FRequestPool := TBaseQueue.Create;
    KeepAlive := false;
    RegisterContextClass(TDiocpHttpClientContext);
  end;
  
  destructor TDiocpHttpServer.Destroy;
  begin
    FRequestPool.FreeDataObject;
    inherited;
  end;
  
  procedure TDiocpHttpServer.DoRequest(pvRequest: TDiocpHttpRequest);
  