和某牛讨论Delphi读Android联系人.写了如下代码
uses
FMX.Helpers.Android,
Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText,
FMX.Platform.Android, Androidapi.JNIBridge, Androidapi.JNI.Provider,
Androidapi.Helpers;
procedure QueryContact(AName: string; AList: TStrings);
var
cursorContactsPhone: JCursor;
selection: string;
projection: TJavaObjectArray<JString>;
FieldIndex: Integer;
begin
if AList <> nil then
AList.Clear;
projection := nil;
if AName.Length > 0 then
begin
projection := TJavaObjectArray<JString>.Create(1);
projection.Items[0] := TJContacts_PeopleColumns.JavaClass.DISPLAY_NAME;
selection := JStringToString(TJContacts_PeopleColumns.JavaClass.DISPLAY_NAME)+' LIKE "%' + AName + '%"';
end;
//select projection from 联系人数据库 where selection
cursorContactsPhone := SharedActivity.getContentResolver.query
(TJCommonDataKinds_Phone.JavaClass.CONTENT_URI,
projection {要查询的字段名,nil的全部},
StringToJString(selection){Where条件},
nil { 这里是Where语句的条件参数们,我上面图方便,写死在Where条件中了,没使用参数 } , nil);
if AList <> nil then
while (cursorContactsPhone.moveToNext) do
begin
//获取字段的ColumnIndex
FieldIndex := cursorContactsPhone.getColumnIndex
(TJContacts_PeopleColumns.JavaClass.DISPLAY_NAME);
//读字段内容
AList.Add(JStringToString(cursorContactsPhone.getString(FieldIndex)));
end;
cursorContactsPhone.close;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
s: TStrings;
begin
s := TStringList.Create;
QueryContact('王', s); //查询姓王的人
ShowMessage(s.Text);
s.Free;
end;
我是个懒人,不想再深究了.
对了,别忘了Android有权限,加上读取联系人的权限
沪公网安备31011502401253号
大牛出个论文不容易啊,顶
Pingback引用通告： Delphi读取Android设备联系人 - 印象派
好，赞！
Pingback引用通告： 2020-2020-2020
Pingback引用通告： wwin-tv.com
Pingback引用通告： hs;br
Pingback引用通告： tureckie_serialy_na_russkom_jazyke
Pingback引用通告： tureckie_serialy
Pingback引用通告： +1+
Pingback引用通告： æóêè+2+ñåðèÿ
Pingback引用通告： Ñìîòðåòü ñåðèàëû îíëàéí âñå ñåðèè ïîäðÿä
Pingback引用通告： Ñìîòðåòü âñå ñåðèè ïîäðÿä
Pingback引用通告： watch
Pingback引用通告： ++++++
Pingback引用通告： HD-720
Pingback引用通告： guardians+of+the+galaxy+2
Pingback引用通告： strong woman do bong soon
Pingback引用通告： my id is gangnam beauty
Pingback引用通告： 2020
Pingback引用通告： kpop+star+season+6+ep+9
Pingback引用通告： Video
Pingback引用通告： 1 2 3 4 5 6 7 8 9 10
Pingback引用通告： Watch TV Shows
Pingback引用通告： Kinokrad 2019 Kinokrad Hd
Pingback引用通告： serial 1
Pingback引用通告： serial
Pingback引用通告： youtube2019.ru
Pingback引用通告： lostfilmtv net
Pingback引用通告： movies
Pingback引用通告： trustedmdstorefy.com
Pingback引用通告： Êîíñóëüòàöèÿ ïñèõîëîãà
Pingback引用通告： topedstoreusa.com
Pingback引用通告： hqcialismht.com
Pingback引用通告： viagramdtrustser.com
Pingback引用通告： Evil-Season-2
Pingback引用通告： 1plus1tv
Pingback引用通告： #1plus1
Pingback引用通告： Watch Movies Online
Pingback引用通告： Film 2020
Pingback引用通告： human design
Pingback引用通告： DSmlka
Pingback引用通告： viagra
Pingback引用通告： viagra online
Pingback引用通告： +
Pingback引用通告： ¯jak Son³k
Pingback引用通告： astrolog
Pingback引用通告： film-kalashnikov-watch
Pingback引用通告： generic cialis
Pingback引用通告： cialis 20mg
Pingback引用通告： kinoxaxru.ru
Pingback引用通告： pobachennya u vegas
Pingback引用通告： strelcov 2020
Pingback引用通告： film t-34
Pingback引用通告： online pharmacy
Pingback引用通告： canadian pharmacy
Pingback引用通告： Beograd film 2020
Pingback引用通告： psiholog
Pingback引用通告： psixolog
Pingback引用通告： psyhelp_on_line
Pingback引用通告： coronavirus
Pingback引用通告： PSYCHOSOCIAL
Pingback引用通告： rasstanovka hellinger
Pingback引用通告： Cherekasi film 2020
Pingback引用通告： film doktor_liza
Pingback引用通告： djoker film
Pingback引用通告： t.me/psyhell
Pingback引用通告： Ïñèõîëîã îíëàéí
Pingback引用通告： bitly.com
Pingback引用通告： viagra 100mg
Pingback引用通告： viagra price
Pingback引用通告： viagra generic
Pingback引用通告： viagra coupon
Pingback引用通告： cheap viagra
Pingback引用通告： cialis
Pingback引用通告： cialis coupon
Pingback引用通告： canadian pharmacy cialis
Pingback引用通告： cialis 5mg
Pingback引用通告： rlowcostmd.com
Pingback引用通告： bitly
Pingback引用通告： movies-tekstmovies-tekst
Pingback引用通告： Zemlyane 2005 smotret onlajn
Pingback引用通告： smotret onlajn v horoshem kachestve hd
Pingback引用通告： gusmeasu.com
Pingback引用通告： movies-unhinged-film
Pingback引用通告： malenkie-zhenshhiny-2020
Pingback引用通告： dom 2
Pingback引用通告： zoom-psykholog
Pingback引用通告： zoom-viber-skype
Pingback引用通告： Vratar Galaktiki Film, 2020
Pingback引用通告： Vratar
Pingback引用通告： Cherkassy 2020
Pingback引用通告： chernobyl-hbo-2019-1-sezon
Pingback引用通告： moskva-psiholog
Pingback引用通告： batmanapollo.ru
Pingback引用通告： 323
Pingback引用通告： 525
Pingback引用通告： dom2-ru
Pingback引用通告： Tenet Online
Pingback引用通告： psy psy psy psy
Pingback引用通告： krsmi.ru
Pingback引用通告： like-v.ru
Pingback引用通告： CFOSPUK
Pingback引用通告： MAMprEj
Pingback引用通告： batmanapollo
Pingback引用通告： tsoy
Pingback引用通告： 44548
Pingback引用通告： 44549
Pingback引用通告： hod-korolevy-2020
Pingback引用通告： HD
Pingback引用通告： 158444
Pingback引用通告： groznyy-serial-2020
Pingback引用通告： 38QvPmk
Pingback引用通告： bitly.com/eternals-online
Pingback引用通告： bitly.com/maior-grom
Pingback引用通告： matrica-film
Pingback引用通告： dzhonuikfilm4
Pingback引用通告： bitly.com/batman20212022
Pingback引用通告： bitly.com/venom-2-smotret-onlajn
Pingback引用通告： bitly.com/nevremyaumirat
Pingback引用通告： bitly.com/kingsmankingsman
Pingback引用通告： bitly.com/3zaklyatie3
Pingback引用通告： bitly.com/1dreykfilm
Pingback引用通告： bitly.com/topgunmavericktopgun
Pingback引用通告： bitly.com/flash2022
Pingback引用通告： bitly.com/fantasticheskietvari3
Pingback引用通告： bitly.com/wonderwoman1984hd
Pingback引用通告： 1444
Pingback引用通告： cleantalkorg2.ru
Pingback引用通告： 232dfsad
Pingback引用通告： cleantalkorg2.ru/sitemap.xml
Pingback引用通告： join vk
Pingback引用通告： vk login
Pingback引用通告： svaty7sezon
Pingback引用通告： svaty 7 sezon
Pingback引用通告： svaty 7
Pingback引用通告： tik tok
Pingback引用通告： 666
Pingback引用通告： The Revenant
Pingback引用通告： 00-tv.com
Pingback引用通告： 2021
Pingback引用通告： D4
Pingback引用通告： 777
Pingback引用通告： link
Pingback引用通告： 4569987
Pingback引用通告： news news news
Pingback引用通告： psy
Pingback引用通告： psy2022
Pingback引用通告： projectio-freid
Pingback引用通告： kinoteatrzarya.ru
Pingback引用通告： topvideos
Pingback引用通告： afisha-kinoteatrov.ru
Pingback引用通告： Ukrainskie-serialy
Pingback引用通告： site
Pingback引用通告： top
Pingback引用通告： soderzhanki-3-sezon-2021.online