anchor.diff:  end;
   
   procedure TDiocpHttpServer.GiveBackRequest(pvRequest: TDiocpHttpRequest);
  -begin
  +var
  +  s:String;
  +begin
  +  if pvRequest.FDiocpHttpServer = nil then
  +  begin
  +    s := GetDebugString;
  +    Assert(pvRequest.FDiocpHttpServer <> nil,
  +      'TDiocpHttpServer.GiveBackRequest::ظر:' + s);
  +  end;
     pvRequest.Clear;
  +  pvRequest.AddDebugStrings('- GiveBackRequest');
  +  pvRequest.FOwnerPool := nil;
  +  pvRequest.FDiocpHttpServer := nil;
     FRequestPool.EnQueue(pvRequest);
   end;
   
  
positive.code:     ///   Ͷ֮ǰ¼DNA첽ʱǷȡǰ
      /// </summary>
      FContextDNA : Integer;
  
      /// <summary>
      ///   Closeʱ黹ض
  
negative.code: procedure TDiocpHttpRequest.CheckThreadOut;
  begin
    FThreadID := 0;  
  end;
  
  procedure TDiocpHttpRequest.CheckThreadSetInfo(pvDebugInfo:string);
  var
    lvThreadID:THandle;
    s:string;
  begin
    lvThreadID := utils_strings.GetCurrentThreadID;
    if lvThreadID <> FThreadID then
    begin
      s := GetDebugString;
      raise Exception.CreateFmt('(%d,%d)ǰѾ߳ʹ::%s',
        [utils_strings.GetCurrentThreadID, FThreadID, s]);
    end;
    FThreadDebugInfo := pvDebugInfo;
  end;
  
  procedure TDiocpHttpRequest.ContentSaveToFile(pvFile:String);
  