Spanish Leer los contactos del teléfono

[Tonycompu]

Hola,

He buscado en las 38 páginas del foro en español y nadie ha preguntado como leer la lista de contactos en el teléfono.

Alguien me puede dar un ejemplo de cómo hacer esto ?

Gracias.

 

[Heppy]

Podrías utilizar Contacts2 de la libreria Phone

  Dim Lista as List

  Lista=Contacts2.FindByName("Pepe",False,True,True)

  Lista=Contacts2.GetAll(True, True)

Hay alguna librería que han creado, como ContactsUtils o esta de este post.
http://www.b4x.com/android/forum/th...cts-to-get-all-contacts.25455/#content[/code]

 

[Tonycompu]

Gracias por contestar Heppy, pero traté de bajar el archivo del link que pusiste "Example_TGetContacts.zip" y no me deja por falta de privilegios, no sé por qué.

Esta es mi primera vez que estoy usando b4a, me podrías poner el ejemplo del código completo para poder listar los contactos ?, o si tienes otro link donde pueda ver un ejemplo.

Gracias.

 

[Heppy]

    Dim Contacts2 As Contacts2
    Dim list1 AsList
    List1 = Contacts2.GetAll(True,True)
     Dim listOfNames As List
     listOfNames.Initialize

     For i = 0 To list1.Size - 1
         Dim c AsContact
         c= list1.Get(i)
         If c.DisplayName.IndexOf("@") = -1
           contacts2.listOfNames.Add(c.DisplayName)
         End If
    Next
   listOfNames.Sort(True)
   For i = 0 To listOfNames.Size - 1
     clist.AddSingleLine(listOfNames.Get(i))
     log(listOfNames.Get(i))
  Next

Si no tienes privilegios para descargar es que no has adquirido el producto B4A, con lo que no podrás utilizar librerias y reduce muchísimo la funcionalidad de este IDE.

Un saludo.