|
13.11.2015, 01:00
#39102503
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
JanexБудеш в Латвие, скажи, с меня пиво/водка/вискии :)
Спасибо за приглашение!
Надеюсь, что код пригодится.
Для Update:
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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
procedure TContactsManager.UpdateContact(const aLookupID, aPhoneNumber,
aDislpayName, aFirstName, aLastName, aEmail: string);
var
ops: JArrayList;
wJDislpayName,
wJFirstName,
wJLastName,
wJPhone,
wJEmail,
wJQueryStr: JString;
wJQueryParams: TJavaObjectArray<JString>;
wSubCursor: JCursor;
wfilter: TJavaObjectArray<JString>;
wDataUri: JNet_URI;
begin
if Trim(aLookupID) = '' then
begin
ShowMessage('Contact ID is null!!!');
Exit;
end;
wJQueryStr := StringToJString('mimetype = ? AND lookup = ?');
wDataUri := TJContactsContract_Data.JavaClass.CONTENT_URI;
// Names
wfilter := TJavaObjectArray<JString>.Create(3);
wfilter[0] := TJCommonDataKinds_StructuredName.JavaClass.DISPLAY_NAME;
wfilter[1] := TJCommonDataKinds_StructuredName.JavaClass.FAMILY_NAME;
wfilter[2] := TJCommonDataKinds_StructuredName.JavaClass.GIVEN_NAME;
wJQueryParams := TJavaObjectArray<JString>.Create(2);
wJQueryParams[0] := TJCommonDataKinds_StructuredName.JavaClass.CONTENT_ITEM_TYPE;
wJQueryParams[1] := StringToJString(aLookupID);
with SharedActivityContext.getContentResolver do
wSubCursor := Query(wDataUri, wfilter, wJQueryStr, wJQueryParams, nil);
try
if wSubCursor.getCount > 0 then
begin
// Getting only first row, as we retrieving only names, a contact can have only one first name, one familyname,
// for phone number for example, we need to loop on each row (while (wSubCursor.moveToNext) do) because a contact can have many phone number
wSubCursor.moveToNext;
wJDislpayName := wSubCursor.getString(0);
wJLastName := wSubCursor.getString(1);
wJFirstName := wSubCursor.getString(2);
end;
finally
wSubCursor.close;
wSubCursor := nil;
end;
if Trim(aDislpayName) <> '' then
wJDislpayName := StringToJString(Trim(aDislpayName));
if Trim(aFirstName) <> '' then
wJFirstName := StringToJString(Trim(aFirstName));
if Trim(aLastName) <> '' then
wJLastName := StringToJString(Trim(aLastName));
ops := TJArrayList.JavaClass.init;
wJQueryParams := TJavaObjectArray<JString>.Create(2);
wJQueryParams[0] := TJCommonDataKinds_StructuredName.JavaClass.CONTENT_ITEM_TYPE;
wJQueryParams[1] := StringToJString(aLookupID);
ops.add
(
TJContentProviderOperation.JavaClass.newUpdate
(
TJContactsContract_Data.JavaClass.CONTENT_URI
).withSelection
(
wJQueryStr, wJQueryParams
).withValue
(
TJCommonDataKinds_StructuredName.JavaClass.DISPLAY_NAME,
wJDislpayName
).withValue
(
TJCommonDataKinds_StructuredName.JavaClass.GIVEN_NAME,
wJFirstName
).withValue
(
TJCommonDataKinds_StructuredName.JavaClass.FAMILY_NAME,
wJLastName
).build
);
// Phone
wfilter := TJavaObjectArray<JString>.Create(1);
wfilter[0] := TJCommonDataKinds_Phone.JavaClass.NUMBER;
wJQueryParams := TJavaObjectArray<JString>.Create(2);
wJQueryParams[0] := TJCommonDataKinds_Phone.JavaClass.CONTENT_ITEM_TYPE;
wJQueryParams[1] := StringToJString(aLookupID);
with SharedActivityContext.getContentResolver do
wSubCursor := Query(wDataUri, wfilter, wJQueryStr, wJQueryParams, nil);
try
if wSubCursor.getCount > 0 then
begin
// Getting only first phone number , a contact can have multiple phone numbers, so if needed,
// we need to loop on each row (while (wSubCursor.moveToNext) do)
wSubCursor.moveToNext;
wJPhone := wSubCursor.getString(0);
end;
finally
wSubCursor.close;
wSubCursor := nil;
end;
if Trim(aPhoneNumber) <> '' then
begin
wJPhone := StringToJString(Trim(aPhoneNumber));
wJQueryParams := TJavaObjectArray<JString>.Create(2);
wJQueryParams[0] := TJCommonDataKinds_Phone.JavaClass.CONTENT_ITEM_TYPE;
wJQueryParams[1] := StringToJString(aLookupID);
ops.add
(
TJContentProviderOperation.JavaClass.newUpdate
(
TJContactsContract_Data.JavaClass.CONTENT_URI
).withSelection
(
wJQueryStr, wJQueryParams
).withValue
(
TJCommonDataKinds_Phone.JavaClass.NUMBER,
wJPhone
).build
);
end;
// E-Mail
wfilter := TJavaObjectArray<JString>.Create(1);
wfilter[0] := TJCommonDataKinds_Email.JavaClass.ADDRESS;
wJQueryParams := TJavaObjectArray<JString>.Create(2);
wJQueryParams[0] := TJCommonDataKinds_Email.JavaClass.CONTENT_ITEM_TYPE;
wJQueryParams[1] := StringToJString(aLookupID);
with SharedActivity.getContentResolver do
wSubCursor := Query(wDataUri, wfilter, wJQueryStr, wJQueryParams, nil);
Try
if wSubCursor.getCount > 0 then
begin
// Getting only first email , a contact can have many emails, so if needed,
// we need to loop on each row (while (wSubCursor.moveToNext) do)
wSubCursor.moveToNext;
wJEmail := wSubCursor.getString(0);
end;
Finally
wSubCursor.close;
wSubCursor := nil;
End;
if Trim(aEmail) <> '' then
begin
wJEmail := StringToJString(Trim(aEmail));
wJQueryParams := TJavaObjectArray<JString>.Create(2);
wJQueryParams[0] := TJCommonDataKinds_Email.JavaClass.CONTENT_ITEM_TYPE;
wJQueryParams[1] := StringToJString(aLookupID);
ops.add
(
TJContentProviderOperation.JavaClass.newUpdate
(
TJContactsContract_Data.JavaClass.CONTENT_URI
).withSelection
(
wJQueryStr, wJQueryParams
).withValue
(
TJCommonDataKinds_Email.JavaClass.ADDRESS,
wJEmail
).build
);
end;
if ops.size > 0 then
try
SharedActivityContext.getContentResolver.applyBatch(TJContactsContract.JavaClass.AUTHORITY, ops);
// TAndroidHelper.Context.getContentResolver.applyBatch(TJContactsContract.JavaClass.AUTHORITY, ops); // DELPHI DX10
except
on E: Exception do
ShowMessage('getContentResolver ApplyBatch for Update error: ' + E.Message);
end;
end;
Взял за основу http://www.fmxexpress.com/access-android-contacts-manager-with-firemonkey-in-delphi-xe5/
Все мои примеры не являются окончательными и требуют доработки, но основное направление дают.
Надеюсь, пригодится. |
|
|
