Android Question How to list all contacts phone numbers with StartActivityForResult?

[susu]

Hi,

I'm using this code to pick phone numbers from Contacts.

 Sub Activity_Click
   Dim i As Intent
   i.Initialize(i.ACTION_PICK, "content://com.android.contacts/contacts")
   StartActivityForResult(i)
End Sub

Sub ion_Event (MethodName As String, Args() As Object) As Object
   If Args(0) = -1 Then 'resultCode = RESULT_OK
     Dim i As Intent = args(1)
     Dim id As String = i.GetData.SubString(i.GetData.LastIndexOf("/") + 1)
     Dim cu As ContactsUtils
     cu.Initialize
     Log(cu.GetNameFromId(id))
   End If
   Return Null
End Sub

Public Sub GetNameFromId (id As String) As String
   Dim crsr As Cursor = cr.Query(dataUri, Array As String("contact_id", "display_name"), "contact_id = ?", _
     Array As String(id), "")
   Dim name As String
   If crsr.RowCount = 0 Then
     Log("Contact not found: " & id)
   Else
     crsr.Position = 0
     name = crsr.GetString2(1)
   End If
   crsr.Close
   Return name
End Sub

It worked great if contact only have 1 phone number. I tried another app which can list all phone numbers, just like screen shot below. How can I archive it? Thank you.

 

[Erel]

Why aren't you using ContactsUtils?

 

[susu]

Why aren't you using ContactsUtils?

I just want to use simplest way to pick a number. If I used ContactsUtils, I need to create an Activity... then load all contacts into it... then create event when user pick a contact... So it's more complicated

 

[Erel]

Your code looks correct.

Try it with ContactsUtils. Are they all listed?

 

[susu]

Your code looks correct.

Yes @Erel , it's correct because that's your code.
https://www.b4x.com/android/forum/t...yforresult-with-javaobject.40374/#post-244377

Try it with ContactsUtils. Are they all listed?

Is it relate to ContactsUtils? I think just need to change something in this line:
i.Initialize(i.ACTION_PICK, "content://com.android.contacts/contacts")
or put some extra... But I don't know what it is

 

[Erel]

Is it relate to ContactsUtils?

Not exactly. But it can be useful to see whether ContactsUtils.FindAllContacts returns all results or not.

 

[susu]

I change the code:

Sub ion_Event (MethodName As String, Args() As Object) As Object
   If Args(0) = -1 Then 'resultCode = RESULT_OK
     Dim i As Intent = Args(1)
     Dim id As String = i.GetData.SubString(i.GetData.LastIndexOf("/") + 1)
     Dim cu As ContactsUtils
     cu.Initialize
    cu.FindAllContacts(True)
    Dim ll As List
    ll = (cu.GetPhones(id))
   End If
          For x=0 To ll.Size-1
              Log(ll.Get(x))
          Next
   Return Null
End Sub

It show all phone numbers:

[IsInitialized=true, Number=123 456, PhoneType=mobile
]
[IsInitialized=true, Number=99 999, PhoneType=work
[