anchor.diff:  function TDiocpHttpClient.DoRecvBuff(var data; const len: Cardinal): Integer;
   begin
     {$IFDEF DIOCP_SSL}
  -  if FSsl <> nil then
  +  if (FSsl <> nil) and (Self.FSslFlag = 1) then
     begin
       result := utils_openssl.SSL_read(FSsl, @data, len);
     end else
  
positive.code:   private
      FRaiseOnResponseOnExceptCode: Boolean;
      {$IFDEF DIOCP_SSL}
      FSSLCtx: utils_openssl.PSSL_CTX;
      FSsl: utils_openssl.PSSL;
      procedure DoSSLAfterConnect;
  
negative.code:   r:Integer;
  begin
  {$IFDEF DIOCP_SSL}
    if (FSsl <> nil) and (self.FSslFlag = 1) then
    begin
      r := SSL_write(FSsl, pvBuffer, pvLength);
      CheckSocketSendResult(r);
  