anchor.diff:      constructor Create(AOwner: TComponent); override;
       
       destructor Destroy; override;
  +    procedure Close;
       procedure Post(pvURL:String);
       procedure Get(pvURL:String);
       procedure DirectPost(pvHost: string; pvPort: Integer; pvBuf: Pointer; len:
           Cardinal);
  -
  -    /// <summary>
  -    ///   رSocket첽ʱرSocketʹڽе׳쳣Ӷж
  -    /// </summary>
  -    procedure CloseSocket;
   
       procedure SetRequestBodyAsString(pvRequestData: string; pvConvert2Utf8:
           Boolean);
  
positive.code:   end;
  end;
  
  procedure TDiocpHttpClient.CloseSocket;
  begin
    self.FRawSocket.Close;
  end;
  
  procedure TDiocpHttpClient.DirectPost(pvHost: string; pvPort: Integer; pvBuf:
      Pointer; len: Cardinal);
  var
  
negative.code:     procedure CheckSocketResult(pvSocketResult:Integer);
      procedure InnerExecuteRecvResponse();
      procedure InnerExecuteRecvResponseTimeOut;
      procedure DoAfterResponse;
      function GetResponseResultCode: Integer;
  
  