Android Question Create contact missing fields

[ddahan]

ContactsUtils enables new contact creation. However, there are some fields that are not writable.

I'll appreciate your advice to find a way to enable update/Add the following contact fields:

- Organization

- Title

- Contact Photo

- Postal address


MiscUtil lib supposed to have these functionalities but I did not managed to make it working.


Thanks,

David.

 

[Erel]

See how SetNote is implemented. Based on this code you should be able to update other fields.

 

[ddahan]

Thanks for encouraging me to do it by myself.

I managed to implement methods for Add/Set Organization (Company,Title):

Type cuOrganization(Company As String, Title As String)

Public Sub SetOrganization(ID As Long,Org As cuOrganization)
    Dim v As ContentValues
    v.Initialize
    v.PutString("data1", Org.Company)
    v.PutString("data4", Org.Title)
    SetData("vnd.android.cursor.item/organization", v, ID, True)
End Sub

Public Sub AddOrganization(ID As Long,Org As cuOrganization)
    Dim v As ContentValues
    v.Initialize
    v.PutString("data1", Org.Company)
    v.PutString("data4", Org.Title)
    SetData("vnd.android.cursor.item/organization", v, ID, False)
End Sub

Postal Address and Photo are not working yet and I'll appreciate your help.
The following is the code:

Public Sub AddPostalAddress(Id As Long, PostalAddr As String, PostalAddrType As String)
    Dim v As ContentValues
    v.Initialize
    v.PutString("data1", PostalAddr)
    v.PutInteger("data2", GetKeyFromValue(PostalAddtrTypes, PostalAddrType, 2))
    SetData("vnd.android.cursor.item/StructuredPostal", v, Id, False)
End Sub

Sub AddPhoto(ID As Long, PhotoBitMap As Bitmap)
    Dim Out As OutputStream
    Dim bytes() As Byte
    Out.InitializeToBytesArray(1000)
    bytes = Out.ToBytesArray
    PhotoBitMap.WriteToStream(Out,100,"PNG")
    Out.Close
    Dim v As ContentValues
    v.Initialize
    v.PutBytes("data15", bytes)
    SetData("vnd.android.cursor.item/photo", v, ID, False)
End Sub

No errors found but not functional.
Have a great weekend.
Edit: Forgot WriteToStream, still not working ...
David.

 

[ddahan]

OK. Add/SetPhoto is working now!
This is the correct code:

Public Sub AddPhoto(ID As Long, PhotoBitMap As Bitmap)
    Dim Out As OutputStream
    Dim bytes() As Byte 
    Out.InitializeToBytesArray(1000)
    PhotoBitMap.WriteToStream(Out,100,"PNG")
    bytes = Out.ToBytesArray
    Out.Close   
    Dim v As ContentValues
    v.Initialize
    v.PutBytes("data15", bytes)
    SetData("vnd.android.cursor.item/photo", v, ID, False)
End Sub

Public Sub SetPhoto(ID As Long, PhotoBitMap As Bitmap)
    Dim Out As OutputStream
    Dim bytes() As Byte 
    PhotoBitMap.WriteToStream(Out,100,"PNG")
    Out.InitializeToBytesArray(1000)
    bytes = Out.ToBytesArray
    Out.Close   
    Dim v As ContentValues
    v.Initialize
    v.PutBytes("data15", bytes)
    SetData("vnd.android.cursor.item/photo", v, ID, True)
End Sub

 

[ddahan]

Seems that all needed methods are working now.
This is the correct code for AddPostalAddress:

Public Sub AddPostalAddress(Id As Long, PostalAddr As String, PostalAddrType As String)
    Dim v As ContentValues
    v.Initialize
    v.PutString("data1", PostalAddr)
    v.PutInteger("data2", GetKeyFromValue(PostalAddtrTypes, PostalAddrType, 2))
    SetData("vnd.android.cursor.item/postal-address_v2", v, Id, False)
End Sub

Erel, Thanks for your support.

David.

 

[ddahan]

There is no feedback that a file was uploaded ... 5 trials

 

[mddmx]

+1 Thank you for the post

 

[ddahan]

Inserting a new contact with two words in first name using ContactsUtils.InsertContact creates a contact with first and middle name (instead of a two words first name).
It will be better to have detailed name components in the argument instead of display name but I cannot find a reference for contact name components in Android Developer API documentation.
I'll appreciate your advice.

 

[Erel]

The relevant fields are described here: http://developer.android.com/refere...sContract.CommonDataKinds.StructuredName.html

You need to add data2 and data3.

 

[ddahan]

Thanks for your advice.
I have added the following type:

    Type cuContactName(GivenName As String, FamilyName As String, MiddleName As String, Prefix As String)

the following methods have been added:

Sub InsertContactWithDetailedName(ContactName As cuContactName, Phone As String) As cuContact

and

Sub GetDetailedName(id As Long) As cuContactName

Attached updated ContactsUtils.

Thanks,
David.