B4A（B4XPages）无法获取手机联系人问题求助

1. 权限验证细节 #

• 除了声明READ_CONTACTS权限，Android 11及以上需确认运行时权限是否已正确请求并授权。可在代码中添加日志输出权限状态：

  Log("READ_CONTACTS权限状态：" & Permission.Check("android.permission.READ_CONTACTS"))
  

• Android 13仍使用READ_CONTACTS权限，但要确保权限请求逻辑适配Android 12+的弹窗交互规则，避免用户误操作拒绝授权。

2. 联系人匹配逻辑排查 #

官方示例的匹配规则可能存在局限，需确认：

• 是否区分大小写？比如联系人存储为“张三”，搜索时是否用了完全一致的字符？尝试用模糊匹配优化查询（内容解析器方案）：

  cr.Query(ContactsContract.CommonDataKinds.Phone.CONTENT_URI, _
    Array As String(ContactsContract.CommonDataKinds.Phone.NUMBER), _
    ContactsContract.CommonDataKinds.Phone.DISPLAY_NAME & " LIKE ?", _
    Array As String("%" & TargetName & "%"), "")
  

• 是否存在联系人存储在SIM卡的情况？部分库默认仅读取本地联系人，需检查库文档是否支持SIM卡联系人读取。

3. 库版本与兼容性检查 #

• 确认ContactUtils、wmContactUtils的版本是否适配B4XPages及对应Android版本，旧版本可能无法兼容Android 11+的联系人数据库访问规则。
• 先测试原生内容解析器的完整遍历代码，验证是否能读取到联系人：

  Dim cr As ContentResolver
  Dim cur As Cursor
  cur = cr.Query(ContactsContract.CommonDataKinds.Phone.CONTENT_URI, _
    Array As String(ContactsContract.CommonDataKinds.Phone.NUMBER, ContactsContract.CommonDataKinds.Phone.DISPLAY_NAME), _
    "", Null, "")
  If cur.RowCount > 0 Then
    cur.Position = 0
    Do While cur.NextRow
      Log("姓名：" & cur.GetString(1) & " 电话：" & cur.GetString(0))
    Loop
  Else
    Log("未找到任何联系人")
  End If
  cur.Close
  

  如果这段代码能输出联系人，再逐步添加姓名筛选条件定位问题。

4. 联系人数据本身异常 #

• 手动确认系统联系人应用中目标联系人是否存在且已正确绑定电话号码（部分联系人可能只有姓名无号码）。
• 新建测试联系人（如姓名“Test”、电话“123456”），用代码查找该联系人，排除姓名输入错误或系统联系人数据库异常的可能。

5. B4XPages生命周期适配 #

确保联系人读取逻辑在B4XPage_Created或B4XPage_Appear事件中执行，避免在模块初始化阶段运行（此时权限可能未授权、上下文未就绪）。

若以上步骤仍无法解决问题，建议提供你使用的官方示例代码及日志输出（如权限状态、游标行数等），以便进一步定位问题。

内容的提问来源于stack exchange，提问作者user18107302