Photo Contacts

[droman]

In one of his tutorials, put the following code to get a photograph of a contact:

Dim photo As Bitmap
photo = Contact.GetPhoto

If you would like to set another picture. What should I do?

Sorry for my english.

 

[Erel]

The Contacts object in Phone library can only read the data. You may try this library: http://www.b4x.com/forum/additional...s/9990-solution-create-contact.html#post55467
Though I'm not sure that it allows changing the photo.

 

[droman]

Thanks Erel!

 

[AZKANSOY]

How to get Contacts Photo full size (not Thumbnail)

 

[AZKANSOY]

Thank you for quick reply Erel,
This is very important for me.

Can you check this address http://developer.android.com/reference/android/provider/ContactsContract.DisplayPhoto.html

this site say "Retrieving a full-size photo by photo file ID (see PHOTO_FILE_ID)" with this Usage example

 public InputStream openDisplayPhoto(long photoFileId) {
    Uri displayPhotoUri = ContentUris.withAppendedId(DisplayPhoto.CONTENT_URI, photoKey);
    try {
        AssetFileDescriptor fd = getContentResolver().openAssetFileDescriptor(
            displayPhotoUri, "r");
        return fd.createInputStream();
    } catch (IOException e) {
        return null;
    }
}

I'm not converting to B4A this code.

 

[Erel]

Have you tried ContactsUtils.GetPhoto?

 

[AZKANSOY]

Yes I was tried. ContactsUtils.GetPhoto is return thumbnail photo. I've tried everything. This code is my last chance. How to write this code in B4A.

public InputStream openDisplayPhoto(long photoFileId) {
    Uri displayPhotoUri = ContentUris.withAppendedId(DisplayPhoto.CONTENT_URI, photoKey);
    try {
        AssetFileDescriptor fd = getContentResolver().openAssetFileDescriptor(
            displayPhotoUri, "r");
        return fd.createInputStream();
    } catch (IOException e) {
        return null;
    }
}

 

[Erel]

It is possible to convert this code with JavaObject. However where does photoKey come from?

Where did you find this code snippet?

 

[AZKANSOY]

1. I did use ContentResolver for photo_key.

Private PeopleProjection() As String = Array As String("times_contacted", "last_time_contacted", _
      "display_name", "has_phone_number", "starred", "_id", "photo_id")

Private cr As ContentResolver
cr.Initialize("cr")
...
...
Sub GetAllContacts
  Dim u As Uri
  u.Parse("content://com.android.contacts/contacts")
  cr.QueryAsync(u, PeopleProjection, "", Null, "")

End Sub

Sub CR_QueryCompleted (Success As Boolean, Crsr As Cursor)
  If Success = False Then
      Log(LastException)
  Else

      For i = 0 To Crsr.RowCount - 1
        Crsr.Position = i
            Log(Crsr.GetString("photo_id"))
            '------- How to use this photo_id  :)
      Next
      Crsr.Close
  End If
End Sub

2. I find that code snippet http://developer.android.com/reference/android/provider/ContactsContract.DisplayPhoto.html

I don't know java script. I Want to use B4A code. Thanks for helps.

 

[Erel]

1. Use ContactsUtils.
2. Add this sub to ContactsUtils class:

Public Sub GetFullSizePhoto(id As Long) As Bitmap
   Dim bmp As Bitmap
   Dim crsr As Cursor = cr.Query(dataUri, Array As String("photo_uri"), "contact_id = ?", _
     Array As String(id), "")
   If crsr.RowCount > 0 Then
     crsr.Position = 0
     Dim photoUri As String = crsr.GetString("photo_uri")
     Dim jo As JavaObject
     jo.InitializeStatic("anywheresoftware.b4a.objects.streams.File")
     Dim In As InputStream = File.OpenInput(jo.GetField("ContentDir"), photoUri)
     bmp.Initialize2(In)
     In.Close
   End If
   crsr.Close
   Return bmp
End Sub

 

[AZKANSOY]

1. Use ContactsUtils.
2. Add this sub to ContactsUtils class:

Public Sub GetFullSizePhoto(id As Long) As Bitmap
   Dim bmp As Bitmap
   Dim crsr As Cursor = cr.Query(dataUri, Array As String("photo_uri"), "contact_id = ?", _
     Array As String(id), "")
   If crsr.RowCount > 0 Then
     crsr.Position = 0
     Dim photoUri As String = crsr.GetString("photo_uri")
     Dim jo As JavaObject
     jo.InitializeStatic("anywheresoftware.b4a.objects.streams.File")
     Dim In As InputStream = File.OpenInput(jo.GetField("ContentDir"), photoUri)
     bmp.Initialize2(In)
     In.Close
   End If
   crsr.Close
   Return bmp
End Sub

I've tried and it was run perfectly. Thank you very much Erel. You are excellent. You did a great help to me.