авторИ теперь оно стало глючить случайным образом (чем больше элементов, тем больше вероятность) но уже на стороне .Net (количество возвращает). Все пустые строки вроде забиваю "" вместо NULL
Вылечил заменой
1.
2.
3.
4.
C
* lppRecipList=(LPRECIPLIST)CoTaskMemAlloc(cEntries*sizeof(RECIPLIST));
.NET
Marshal.FreeCoTaskMem(PtrRecipList)
на
1.
2.
3.
4.
5.
C
HGLOBAL hMem = GlobalAlloc(GMEM_ZEROINIT,cEntries*sizeof(RECIPLIST));
* lppRecipList=(LPRECIPLIST) GlobalLock(hMem);
.NET
Marshal.FreeHGlobal(PtrRecipList)
Крашить перестало.
Но при этом глючки остались.
При достаточно большом к-ве элементов.
И исключительно в номерах телефонов и факсов (те поля которые выводятся через lpProps дополнительным кодом) - не везде но вполне стабильные:
1.
2.
3.
4.
5.
1 : Ольга<olga@rus*********.ru> HomeTelephoneNumber=䵓偔㤺〸〶䀶䅍䱉刮Uᔀ耀鏨Ῥᅸ耀SMTP HomeFaxNumber= BusinessTelephoneNumber= BusinessFaxNumber=
1 : Гоша<gm**@rus*********.ru> HomeTelephoneNumber=ComI錊ῂᝎ耀 䟐٭䵓偔䄺䬮协佌䁖䵇⹘佃M HomeFaxNumber= BusinessTelephoneNumber= BusinessFaxNumber=
1 : Молча*** С.Я.<cyn**-s@yandex.ru>; HomeTelephoneNumber=SMTP鏎ᾎ଀耀 ደ٦ HomeFaxNumber= BusinessTelephoneNumber=SMTP BusinessFaxNumber=
1 : Елена Николаевна-Авангард<os******@avangard.ru> HomeTelephoneNumber= HomeFaxNumber= BusinessTelephoneNumber=☐ῳᘺ耀 壸٬4 BusinessFaxNumber= 姨٬1
1 : 3-й спецмаш<z11@mz.perm.ru>; HomeTelephoneNumber= HomeFaxNumber=㠤٨SMTP BusinessTelephoneNumber= BusinessFaxNumber=
(*-ки мои, ???-вопросики-китайские крякозябры вместо набора цифр, не глючат только последние выводимые строки с телефонами)
Глюки для фиксированной большой выборки достаточно стабильны (
одни и те же крякозябры) Ну да, это большой непорядок, именно по телефонам может делаться большая выборка.
Изопропилпреждевременное освобождение памяти
lpWABObject->FreeBuffer(lpProps);
Не уверен, по крайней мере если закомментировать то те же глюки -крякозябры остаются.
lpProps вычисляется каждый раз для заново для каждого контакта - дополнительное рытье на предмет телефонов.
На самом деле не уверен что его надо грохать и именно через lpWABObject->FreeBuffer, эта ф-ция по мсдн должна грохать другой объект &lpWABObject возвращаемый "WabOpen".
IMailUser::GetProps MethodlppPropArray SPropValue
Address of a pointer to a variable of type SPropValue that receives the property values. The variable must be freed by the client.
сказано размыто лишь, что "must be freed by the client" но не сказано чем именно.
lpWABObject->FreeBuffer(lpProps); вято из одного из немногочисленных примеров что удалось найти и не уверен что с этим примером все эквивалентно. Еще где-то видел код где чел делал MapiFreeBuffer(lpProps), но мне кажется это другая опера и чел не прав.
Да, я задумался. Что можно поменять? Есть идеи?
Изопропилкопируй строки, а не ссылки
проще создавать/освобождать SysAllocString/SysFreeString (BSTR внутри будут)
Я знаю что ты любишь BSTR по очень старому топику(тоже делал dll). Если только в лоб покажешь как. Но честно не очень хочу, мне хватило утреннего маразма с * и скобками. И BSTR непонятно как с юникодом соотносится, там же другая ф-ция будет Marshal.ToBSTR ..кажется.
Лучше б допонять как собычными виндовыми LPWSTR указателями допилить до ума.
Тек. полный C-код на всякий случай под спойлером:
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.
typedef struct _RECIPLIST
{
LPTSTR lpszDisplayName;
LPTSTR lpszEmailAddress;
LONG ulReceipType;
LPTSTR lpszHomeTelephoneNumber;
LPTSTR lpszBusinessTelephoneNumber;
LPTSTR lpszBusinessFaxNumber;
LPTSTR lpszHomeFaxNumber;
} RECIPLIST, FAR * LPRECIPLIST;
...
ULONG __stdcall CPP_AddressBook(ULONG hWnd,
ULONG cDestFields,
LPTSTR lpszCaption,
LPTSTR FAR * lppszDestTitles,
BOOL bAddressOne,
LPRECIPLIST FAR * lppRecipList)
{
ULONG cEntries = 0;
HRESULT hRes;
LPADRBOOK lpAdrBook;
LPWABOBJECT lpWABObject;
LPWAB_PARAM lpWABParam = NULL;
DWORD Reserved2 = 0;
HINSTANCE hinstLib;
TCHAR szPath[MAX_PATH];
TCHAR buf[1024];
//CSIDL_PROGRAM_FILES_COMMON -для 32-битного кода все равно укажет на Program Files (x86)
SHGetFolderPath(NULL, CSIDL_PROGRAM_FILES_COMMON, NULL, SHGFP_TYPE_DEFAULT, szPath);
wsprintf(buf, L"%s\\System\\wab32", szPath);
hinstLib = LoadLibrary(buf); //"C:\\Program Files (x86)\\Common Files\\System\\wab32"
fWABOpen procWABOpen;
if (hinstLib != NULL)
{
procWABOpen = (fWABOpen)GetProcAddress(hinstLib, "WABOpen");
if (procWABOpen != NULL)
{
hRes = (procWABOpen)(&lpAdrBook, &lpWABObject, NULL, Reserved2);
if (hRes != S_OK) return 0;
ULONG lpulUIParam = hWnd;
ADRPARM lpAdrParms;
lpAdrParms.cbABContEntryID = 0;
lpAdrParms.lpABContEntryID = NULL;
lpAdrParms.ulFlags = DIALOG_MODAL + MAPI_UNICODE;
if (bAddressOne && (cDestFields == 0))
lpAdrParms.ulFlags = lpAdrParms.ulFlags + ADDRESS_ONE;
lpAdrParms.lpReserved = NULL;
lpAdrParms.ulHelpContext = 0;
lpAdrParms.lpszHelpFileName = NULL;
lpAdrParms.lpfnABSDI = NULL;
lpAdrParms.lpfnDismiss = NULL;
lpAdrParms.lpvDismissContext = NULL;
lpAdrParms.lpszCaption = lpszCaption;
lpAdrParms.lpszNewEntryTitle = NULL;
lpAdrParms.lpszDestWellsTitle = NULL;
lpAdrParms.cDestFields = cDestFields;
lpAdrParms.nDestFieldFocus = 0;
lpAdrParms.lppszDestTitles = lppszDestTitles; // To,CC,BCC
lpAdrParms.lpulDestComps = NULL;
lpAdrParms.lpContRestriction = NULL;
lpAdrParms.lpHierRestriction = NULL;
LPADRLIST lppAdrList = NULL;
hRes = lpAdrBook->Address(&lpulUIParam, &lpAdrParms, &lppAdrList);
if (hRes != S_OK) return 0;
if (lppAdrList==NULL)return 0;
cEntries = lppAdrList->cEntries;
//* lppRecipList=(LPRECIPLIST)CoTaskMemAlloc(cEntries*sizeof(RECIPLIST));
LPWSTR m_DisplayName;
LPWSTR m_EmailAddress;
ULONG m_ReceipType=0; //1-To,2-CC,3-BCC
LPWSTR m_HomeTelephoneNumber;
LPWSTR m_HomeFaxNumber;
LPWSTR m_BusinessTelephoneNumber;
LPWSTR m_BusinessFaxNumber;
HGLOBAL hMem = GlobalAlloc(GMEM_ZEROINIT,cEntries*sizeof(RECIPLIST));
* lppRecipList=(LPRECIPLIST) GlobalLock(hMem);
for(ULONG i=0;i<lppAdrList->cEntries;i++)
{
m_DisplayName = L"";
m_EmailAddress = L"";
m_ReceipType=0; //1-To,2-CC,3-BCC
m_HomeTelephoneNumber = L"";
m_HomeFaxNumber = L"";
m_BusinessTelephoneNumber = L"";
m_BusinessFaxNumber = L"";
ULONG cProps = 0;
LPSPropValue lpProps = NULL;
for(ULONG j=0;j<lppAdrList->aEntries[i].cValues;j++)//
{
SPropValue *lpProp = &lppAdrList->aEntries[i].rgPropVals[j];
if (lpProp->ulPropTag == PR_DISPLAY_NAME_W)
m_DisplayName = lpProp->Value.lpszW;
if (lpProp->ulPropTag == PR_EMAIL_ADDRESS_W)
m_EmailAddress = lpProp->Value.lpszW;
if (lpProp->ulPropTag == PR_RECIPIENT_TYPE) //1-To,2-CC,3-BCC
m_ReceipType = lpProp->Value.ul;
if (lpProp->ulPropTag == PR_ENTRYID){
ULONG ulFlags = 0;//MAPI_BEST_ACCESS;
ULONG ulObjType = NULL;
LPUNKNOWN lpUnk = NULL;
hRes = lpAdrBook->OpenEntry(lpProp->Value.bin.cb,(LPENTRYID)(lpProp->Value.bin.lpb),NULL,ulFlags,&ulObjType,&lpUnk);
if (hRes == S_OK){
ulFlags = NULL;
if (ulObjType == MAPI_MAILUSER){
IMailUser *lpMailUser = static_cast <IMailUser *>(lpUnk);
ulFlags=MAPI_UNICODE;
hRes = lpMailUser->GetProps(NULL,ulFlags,&cProps,&lpProps);
if (hRes == S_OK){
for(ULONG k=0;k<cProps;k++)//
{
if (lpProps[k].ulPropTag == PR_HOME_TELEPHONE_NUMBER_W)
m_HomeTelephoneNumber=lpProps[k].Value.lpszW;
if (lpProps[k].ulPropTag == PR_HOME_FAX_NUMBER_W)
m_HomeFaxNumber=lpProps[k].Value.lpszW;
if (lpProps[k].ulPropTag == PR_BUSINESS_TELEPHONE_NUMBER_W)
m_BusinessTelephoneNumber=lpProps[k].Value.lpszW;
if (lpProps[k].ulPropTag == PR_BUSINESS_FAX_NUMBER_W)
m_BusinessFaxNumber=lpProps[k].Value.lpszW;
} //k++
} //GetProps
} //ulObjType == MAPI_MAILUSER
} //OpenEntry
} //PR_ENTRYID
} //j++
(*lppRecipList)[i].lpszDisplayName = m_DisplayName;
(*lppRecipList)[i].lpszEmailAddress = m_EmailAddress;
(*lppRecipList)[i].ulReceipType = m_ReceipType;
(*lppRecipList)[i].lpszHomeTelephoneNumber = m_HomeTelephoneNumber;
(*lppRecipList)[i].lpszHomeFaxNumber = m_HomeFaxNumber;
(*lppRecipList)[i].lpszBusinessTelephoneNumber = m_BusinessTelephoneNumber;
(*lppRecipList)[i].lpszBusinessFaxNumber = m_BusinessFaxNumber;
lpWABObject->FreeBuffer(lpProps);
} //i++
} //WABOpen
} //LoadLibrary
FreeLibrary(hinstLib);
return cEntries;
}
}; // extern "C"
