anchor.diff:    /// </summary>
     TDiocpHttpServer = class(TDiocpTcpServer)
     private
  +    FRequestPool: TBaseQueue;
  +
       FOnDiocpHttpRequest: TOnDiocpHttpRequestEvent;
       FOnDiocpHttpRequestPostDone: TOnDiocpHttpRequestEvent;
   
  
positive.code: begin
    inherited;
    FHttpState := hsCompleted;
  end;
  
  procedure TDiocpHttpClientContext.OnRecvBuffer(buf: Pointer; len: Cardinal;
    ErrCode: Word);
  
negative.code:   TDiocpHttpState = (hsCompleted, hsRequest {  } , hsRecvingPost {  } );
    TDiocpHttpResponse = class;
    TDiocpHttpClientContext = class;
    TDiocpHttpServer = class;
  
    TDiocpHttpRequest = class(TObject)
    private
      /// <summary>
      ///   Closeʱ黹ض
      /// </summary>
      FDiocpHttpServer:TDiocpHttpServer;
  
      FDiocpContext: TDiocpHttpClientContext;
  
      /// ͷϢ
  