anchor.diff:        FContextDNA := FOwner.RequestContextDNA;
         FActive := true;
         FOwner.AddToOnlineList(Self);
  -      InnerAddToDebugStrings(Format('[%s]*(*):(%d),%s',
  -        [NowString, FReferenceCounter, 'DoConnected:ӵб']));
  +      InnerAddToDebugStrings(Format('[%s]:*(%d):(%d:objAddr:%d) %s',
  +        [NowString, FReferenceCounter, self.SocketHandle, IntPtr(Self), 'DoConnected:ӵб']));
   
   
         if self.LockContext('onConnected', Self) then
  
positive.code: end;
  
  procedure TDiocpCustom.AddToOnlineList(pvObject: TDiocpCustomContext);
  begin
    FLocker.lock('AddToOnlineList');
    try
      FOnlineContextList.Add(pvObject.FSocketHandle, pvObject);
      if DataMoniter <> nil then
      begin
        DataMoniter.CalcuMaxOnlineCount(FOnlineContextList.Count);
      end;
    finally
      FLocker.unLock;
    end; 
  end;
  
  function TDiocpCustom.CheckTimeOutContext(pvContext:TDiocpCustomContext;
  
negative.code: procedure TDiocpCustomContext.InnerCloseContext;
  begin
    Assert(FOwner <> nil);
    AddDebugStrings(Format('*(%d):(%d:objAddr:%d)->InnerCloseContext- BEGIN, socketstate:%d',
           [FReferenceCounter, self.SocketHandle, IntPtr(Self), Ord(FSocketState)]));
  {$IFDEF DEBUG_ON}
    if FReferenceCounter <> 0 then
      FOwner.logMessage('InnerCloseContext FReferenceCounter:%d', [FReferenceCounter],
  