Delphi XE 5 - 8 Android - добавление и удаление контакта.

[N0iD]

Приветствую, суть вопроса, каким образом можно добавить контакт (номер телефона и имя) в записную книгу, ну и удалить все контакт\ы. Из того что нашел: Основы Contacts API в Android (ContactsContract) Почитать: http://habrahabr.ru/post/130148/ Обвертка ContactsContract и другое. Скачать: https://github.com/FMXExpress/androi...pascal-wrapper
И кусок кода на С++ http://tagasks.com/how_to_mark_creat...reate_contacts Буду благодарен куску рабочего кода, тема для меня новая, бьюсь 2 недели и все в пустую.

И еще, может кто сталкивался с решением проблемы запуска приложений на эмуляторе Android, скомпилированных в Delphi. Они попросту не запускаются.

[Vapaamies]

Сообщение от N0iD

И еще, может кто сталкивался с решением проблемы запуска приложений на эмуляторе Android, скомпилированных в Delphi. Они попросту не запускаются.

Надо ждать долго-долго, и это не зависит от мощности компа. Довольно часто бывает, что ждешь-ждешь, и фиг. Это эмулятор такой. Из-за него я решил повременить с мобильной разработкой, вначале нужно на планшет денег накопить, чтобы сразу на нем запускать и отлаживать. Сколько ни спрашивал знакомых -- все говорят, что на реальном устройстве разрабатывают, на эмуляторе нервов не хватает.

[N0iD]

Один из участников сообщества\группы в vk.com со мной поделился куском кода для добавления контакта, за что ему большое спасибо, а я в свою очередь делюсь с вами.

procedure TContactManager.AddContact(aNumber, aName : String);
var
jsMime,
jsType,
jsName,
jsNumber : JString;
ContentValues : JContentValues;
rawContactURI,
dataURI : Jnet_Uri;
sRawContactID : String;
begin
ContentValues := TJContentValues.Create;
jsType := StringToJString(IntToStr(TJCommonDataKinds_Phone.JavaClass.TYPE_WORK));
jsMime := StringToJString('mimetype'); // Because there is a missing Java interface that defines this.
jsNumber := StringToJString(aNumber);
jsName := StringToJString(aName);

// Add the Person First...
ContentValues := TJContentValues.Create;
ContentValues.putNull(TJSyncStateContract_Columns.JavaClass.ACCOUNT_NAME);
ContentValues.putNull(TJSyncStateContract_Columns.JavaClass.ACCOUNT_TYPE);

rawContactURI := SharedActivityContext.getContentResolver.insert(TJContactsContract_RawContacts.JavaClass.CONTENT_URI, ContentValues);
// e.g. 674
sRawContactID := JStringToString(rawContactURI.getLastPathSegment);

// Then Add the Number...
ContentValues.clear;
ContentValues.put(TJContacts_Entity.JavaClass.RAW_CONTACT_ID,StringToJString(sRawContactID));
ContentValues.put(jsMime,TJCommonDataKinds_Phone.JavaClass.CONTENT_ITEM_TYPE);
ContentValues.put(TJCommonDataKinds_Phone.JavaClass.NUMBER,jsNumber);
dataURI := SharedActivityContext.getContentResolver.insert(TJContactsContract_Data.JavaClass.CONTENT_URI, ContentValues);

// Then Add the Name...
ContentValues.clear;
ContentValues.put(TJContacts_Entity.JavaClass.RAW_CONTACT_ID,StringToJString(sRawContactID));
ContentValues.put(jsMime,TJCommonDataKinds_StructuredName.JavaClass.CONTENT_ITEM_TYPE);
ContentValues.put(TJCommonDataKinds_StructuredName.JavaClass.DISPLAY_NAME,jsName);
dataURI := SharedActivityContext.getContentResolver.insert(TJContactsContract_Data.JavaClass.CONTENT_URI, ContentValues);

if (dataURI <> Nil) then Begin
ShowMessage(aName + ' has been added to your contacts list');
End;
end;

Теперь для полноты картины не хватает удаления контакта.