Spanish Leer los contactos del teléfono

Tonycompu

Member
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

Active Member
Licensed User
Longtime User

Tonycompu

Member
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

Active Member
Licensed User
Longtime User
B4X:
    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.
 
Top