Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: FireMonkey
Войти
Регистрация
Восстановить пароль
 
ILNAR_93
Android
236 / 236 / 49
Регистрация: 19.01.2013
Сообщений: 1,848
Записей в блоге: 3
#1

Получения списка контактов - Delphi FireMonkey

18.01.2014, 19:05. Просмотров 1048. Ответов 1
Метки нет (Все метки)

Как можно получить список контактов ? андроид
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2014, 19:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Получения списка контактов (Delphi FireMonkey):

Просмотр списка контактов мобильного телефона
Я хочу программным путем считать список контактов мобильного телефона хотя бы...

Получения значения условия If
Например есть условие: If (a=1) or (b=1) or (c=1) or (d=1) or (e=1) or (f=1)...

Функция получения параметров с устройства
Доброго времени суток! Пишу программу обмена с устройством. Использую компонент...

Утилита для получения и редактирования таблицы маршрутов и К
Подскажите пожалуйста кто знает! С какого боку подходить к написанию этой...

подскажите компонент для передачи\получения файлов по сети
подскажите компонент для передачи\получения файлов по сети. Не сервер с...

Гуру, проконсультируйте по изменению списка контактов
Пытаюсь написать синхронизатор номеров с моим списком (из текстового...

1
ILNAR_93
Android
236 / 236 / 49
Регистрация: 19.01.2013
Сообщений: 1,848
Записей в блоге: 3
26.01.2014, 20:56  [ТС] #2
Лучший ответ Сообщение было отмечено ILNAR_93 как решение

Решение

Вот решение:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
function GetContact: TStringList;
var
cursorContacts, cursorContactsPhone: JCursor;
hasPhoneNumber: Integer;
id: Int64;
displayName, phoneNumber, contactID: string;
begin
Result := TStringList.Create;
cursorContacts := SharedActivity.getContentResolver.query(TJContactsContract_Contacts.JavaClass.CONTENT_URI, nil, nil, nil, nil);
if (cursorContacts.getCount > 0) then
begin
while (cursorContacts.moveToNext) do
begin
id := cursorContacts.getLong(cursorContacts.getColumnIndex(StringToJString('_ID')));
displayName := JStringToString(cursorContacts.getString(cursorContacts.getColumnIndex(StringToJString('DISPLAY_NAME'))));
hasPhoneNumber := cursorContacts.getInt(cursorContacts.getColumnIndex(StringToJString('HAS_PHONE_NUMBER')));
if (hasPhoneNumber > 0) then
begin
cursorContactsPhone := SharedActivity.getContentResolver.query(TJCommonDataKinds_Phone.JavaClass.CONTENT_URI, nil,StringToJString('CONTACT_ID = ' + IntToStr(id)),nil, nil);
while (cursorContactsPhone.moveToNext) do
begin
phoneNumber := JStringToString(cursorContactsPhone.getString(cursorContactsPhone.getColumnIndex(StringToJString('DATA1'))));
contactID := JStringToString(cursorContactsPhone.getString(cursorContactsPhone.getColumnIndex(StringToJString('CONTACT_ID'))));
Result.Add(displayName + ': ' + phoneNumber);
end;
cursorContactsPhone.close;
end;
end;
end;
cursorContacts.close;
end;
Источник
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.01.2014, 20:56
Привет! Вот еще темы с решениями:

Ошибка добавления списка контактов в ListView
Задача состоит в том, чтоб считать список контактов и отобразить из при помощи...

Какой контролл использован для списка контактов QIP??
Собстна сабдж. Нужен контролл типа ListView, но чтобы в каждом Item-e этого...

Контакты outlook 2013 - отображение списка контактов единым списком
Добрый день, подскажите пожалуйста, в контактах outlook 2013 есть...

получения списка файлов?
Здравствуйте, я хочу получить список файлов на диске через JavaScript если в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru