Käse,
so geht es um einen einzelnen Eintrag auszulesen….
dim ra() as ABRecordMBS
dim p as ABPersonMBS
dim a as ABAddressBookMBS
dim search as ABSearchElementMBS
a= new abAddressbookMBS
search=p.searchElementForProperty(a.kABUIDProperty,"","",uid,a.kABEqual)
ra()=a.recordsMatchingSearchElement(search)
for each r as ABRecordMBS in ra()
if r isa ABPersonMBS then
p = ABPersonMBS(r)
PhoneList.cell(PhoneList.lastIndex,19)=p.valueForProperty(a.kABTitleProperty)
end if
next
Gruß
Stefan
Am 21.10.2011 um 12:08 schrieb Stefan Sicurella:
>
> Ok, es gibt wohl keine andere Möglichkeit an alle Adressbucheinträge zu
> kommen (vCard ist zu langsam)
>
>
> trotzdem ist das auch irgendwie langsam, die uid kommt aus einer db, dann
> kommt eine Schleife mit 300 Adressen.
> Der Code hier verzögert das um 3 Sekunden, ist das normal?
>
>
> pa=a.people
> if pa<>nil then
> for each p as ABPersonMBS in pa
> if p<>nil then
> if p.valueForProperty(a.kABUIDProperty)=uid then
>
> List.cell(PhoneList.lastIndex,9)=p.valueForProperty(a.kABTitleProperty)
> end if
> end if
> next
> end if
>
> Gruß
>
> Stefan
>>
>> Am 21.10.2011 um 09:17 schrieb Stefan Sicurella:
>>
>>> Hi,
>>>
>>> Hat da jemand eine Idee?
>>
>>
>> Die Plugin Klasse bei mir gibt es ja, weil die offiziellen einige Probleme
>> haben...
>>
>> Gruß
>> Christian
>>
>> --
>> Real Studio Database Days in Frankfurt/Main am 3./4. November 2011.
>>
>> Weitere Informationen und Anmeldung auf:
>> http://www.monkeybreadsoftware.de/realbasic/events/frankfurt-2011-event.shtml
>>
>>
>>
>>
>>
>>
>>
>>
>
>
