anchor.diff:  
       
   
  +    procedure AddDebugStrings(pvDebugInfo: String; pvAddTimePre: Boolean = true);
       procedure CheckThreadIn;
  +
  +    procedure CheckThreadSetInfo(pvDebugInfo:string);
   
       procedure CheckThreadOut;
   
  
positive.code: function TDiocpHttpRequest.GetURLParams: TDValue;
  begin
    Result := FInnerRequest.URLParams;
  end;
  
  procedure TDiocpHttpRequest.ResponseEnd;
  var
    lvFixedHeader: AnsiString;
    len: Integer;
  begin
   
    lvFixedHeader := FResponse.EncodeHeader;
  
    if (lvFixedHeader <> '') then
  
negative.code: 
  procedure TDiocpHttpRequest.Close;
  begin
  
    if FDiocpHttpServer = nil then
    begin
      if IsDebugMode then
      begin
        Assert(False, 'FDiocpHttpServer is nil');
      end;
      exit;
    end;
  
    FDiocpHttpServer.GiveBackRequest(Self);
  end;
  