Spanish Extraer dato de contactos

ocalle

Active Member
Licensed User
Hola, suerte que hay un foro en español, en ingles no se como explicarlo
Erel me paso esta rutina para agregar a contactutils para obtener la direccion de un contacto
B4X:
'Returns a list with the contact's addresses.

Public Sub GetAddress(id As Long) As List
   Dim raw As List = GetData("vnd.android.cursor.item/postal-address_v2", Array As String("data1", "data4", "data10", "data7"), id, Null)
   Dim res As List
   res.Initialize
   For Each row() As Object In raw
     res.Add(row(0))
   Next
   Return res
End Sub

El tema es como la pido desde una rutina donde solicito el contacto. Ya tengo una rutina que cargo en un list el nombre del contacto con un bucle for, pero no se como solicitar una rutina con un objeto como la de arriba , aca les paso mi codigo de sacar el nombre del contacto que funciona sólo me falta pedir la direccion con con funcion getaddress de contactutils

B4X:
Sub libreta_ini (constat As Boolean )
Dim nrocontacto As Int
Dim nomtep As String
Dim direc As String
Private arreglo(2000) As String
    dbb.Initialize(dbDir1,dbFN1,True)
 
'.    If constat = True Then
        cu.Initialize
        contactos.initialize
        ProgressDialogShow("Construyendo ìndice de contactos...")
        For Each c As cuContact In cu.FindAllContacts(True)
        
               nrocontacto=c.Id
                    arreglo(c.Id)=cu.GetAddress.Get(c.Id)   <---- aca me da error no se como pedirlo
                
            contactos.Add(c)
            Log ("C-Z"&c)
            Log("arreglo"&arreglo)
        dbb.ExecNonQuery("INSERT INTO contactos VALUES('" & nomtep & "','' ,'" & direc &   "','' ,'','','','')")
        Log("Cdisplayname"&c.DisplayName)
        Log("C---->"&c.id)
        Log(cu.GetAddress(c.Id))
         lnombre = c.DisplayName
    Next
       
        ProgressDialogHide
         
'    Else
       
    '    cd.ShowAsync("Elija contacto:", "", "", "", Null, False)
    '    cd.SetSize(100dip, 100dip) 'request maximum size
    '    Wait For Dialog_Ready (    CLVDialogconAs Panel)
    '    ´´DialogPanel.LoadLayout("phone")
       
    '    For i = 1 To totalescon
           
       
    '        CLVDialogcon.AddTextItem(c.DisplayName& i, i)
       
       
    '    Next
    '    Wait For CLVDialog_ItemClick (Index As Int, Value As Object)
    '    Log("Selected item: " & Value)
    '    cd.CloseDialog(DialogResponse.POSITIVE)
 

       
    'End If
       
End Sub

Desde ya muchas Gracias por cualquier aporte a esto

Saludos!!
 
Top