Исходный код (мой) из которого пытаюсь родить нужную мне dll в соседнем топике:
Получение нестандартных полей (телефон,факс) из Windows Contacts -диалог Select Recipients
Ну или под спойлером (Юникод вариант я таки осилил):
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.
#include <windows.h>
#include <Shlobj.h>
#include <wab.h>
typedef HRESULT (WINAPI *fWABOpen)(LPADRBOOK*,LPWABOBJECT*,LPWAB_PARAM,DWORD);
int main()
{
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) exit(1);
ULONG lpulUIParam = 0;// (ULONG_PTR *)hWnd;
ADRPARM lpAdrParms;
lpAdrParms.cbABContEntryID = 0;
lpAdrParms.lpABContEntryID = NULL;
lpAdrParms.ulFlags = DIALOG_MODAL+MAPI_UNICODE;
lpAdrParms.lpReserved = NULL;
lpAdrParms.ulHelpContext = 0;
lpAdrParms.lpszHelpFileName = NULL;
lpAdrParms.lpfnABSDI = NULL;
lpAdrParms.lpfnDismiss = NULL;
lpAdrParms.lpvDismissContext = NULL;
lpAdrParms.lpszCaption = L"Выбрать получателей";
lpAdrParms.lpszNewEntryTitle = NULL;
lpAdrParms.lpszDestWellsTitle = NULL;
lpAdrParms.cDestFields = 3;
lpAdrParms.nDestFieldFocus = 0;
//lpAdrParms.lppszDestTitles = NULL;
LPTSTR rglpszDestTitles[] = { L"Кому:", L"Копия:", L"Скрытая копия" };
lpAdrParms.lppszDestTitles = rglpszDestTitles;
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;
for(ULONG i=0;i<lppAdrList->cEntries;i++)
{
LPWSTR m_DisplayName = L"";
LPWSTR m_EmailAddress = L"";
ULONG m_ReceipType=0; //1-To,2-CC,3-BCC
LPWSTR m_HomeTelephoneNumber = L"";
LPWSTR m_HomeFaxNumber = L"";
LPWSTR m_BusinessTelephoneNumber = L"";
LPWSTR 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;
}
}
}
}
}
}
wsprintf(buf, L"Display Name: %s\nEmail Address: %s\nReceiptype: %d\nHome Phone: %s\nHome Fax: %s\n\
Office Phone: %s\nOffice Fax: %s",
m_DisplayName,m_EmailAddress,m_ReceipType,m_HomeTelephoneNumber,m_HomeFaxNumber,
m_BusinessTelephoneNumber,m_BusinessFaxNumber);
MessageBox(NULL, buf, L"Recipient info", MB_OK);
lpWABObject->FreeBuffer(lpProps);
}
}
}
FreeLibrary(hinstLib);
return 0;
}
В общем как-то так пока:
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.
typedef struct _RECIPLIST
{
LPWSTR lpszDisplayName;
LPWSTR lpszEmailAddress;
ULONG ulReceipType;
} RECIPLIST, FAR * LPRECIPLIST;
extern "C" {
ULONG __stdcall CPP_AddressBook(ULONG hWnd,
ULONG cDestFields,
LPTSTR lpszCaption,
LPTSTR FAR * lppszDestTitles,
BOOL bAddressOne,
LPRECIPLIST FAR * lppRecipList)
{
ULONG cEntries = 0;
...
hRes = lpAdrBook->Address(&lpulUIParam, &lpAdrParms, &lppAdrList);
if (hRes != S_OK) return 0;
if (lppAdrList==NULL)return 0;
cEntries = lppAdrList->cEntries;
for(ULONG i=0;i<lppAdrList->cEntries;i++)
{
for(ULONG j=0;j<lppAdrList->aEntries[i].cValues;j++)//
{
SPropValue *lpProp = &lppAdrList->aEntries[i].rgPropVals[j];
if (lpProp->ulPropTag == PR_DISPLAY_NAME_W)
lppRecipList[i]->lpszDisplayName = lpProp->Value.lpszW;
if (lpProp->ulPropTag == PR_EMAIL_ADDRESS_W)
lppRecipList[i]->lpszEmailAddress = lpProp->Value.lpszW;
if (lpProp->ulPropTag == PR_RECIPIENT_TYPE) //1-To,2-CC,3-BCC
lppRecipList[i]->ulReceipType = lpProp->Value.ul;
}
}
}
}
return cEntries;
}
}; // extern "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.
...
#include <Shlobj.h>
#include <wab.h>
typedef HRESULT (WINAPI *fWABOpen)(LPADRBOOK*,LPWABOBJECT*,LPWAB_PARAM,DWORD);
typedef struct _RECIPLIST
{
LPWSTR lpszDisplayName;
LPWSTR lpszEmailAddress;
ULONG ulReceipType;
} RECIPLIST, FAR * LPRECIPLIST;
...
extern "C" {
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;
for(ULONG i=0;i<lppAdrList->cEntries;i++)
{
for(ULONG j=0;j<lppAdrList->aEntries[i].cValues;j++)//
{
SPropValue *lpProp = &lppAdrList->aEntries[i].rgPropVals[j];
if (lpProp->ulPropTag == PR_DISPLAY_NAME_W)
lppRecipList[i]->lpszDisplayName = lpProp->Value.lpszW;
if (lpProp->ulPropTag == PR_EMAIL_ADDRESS_W)
lppRecipList[i]->lpszEmailAddress = lpProp->Value.lpszW;
if (lpProp->ulPropTag == PR_RECIPIENT_TYPE) //1-To,2-CC,3-BCC
lppRecipList[i]->ulReceipType = lpProp->Value.ul;
}
}
}
}
return cEntries;
}
}; // extern "C"
Проблема в чем.
Последний аргумент функции LPRECIPLIST FAR * lppRecipList
это типа указатель на массив структур RECIPLIST.
Размерность массива соответствует числу выбранных в диалоге адресной книги получателей, посему заранее (на вызывающей стороне) не известна.
Функция также возвращает число этих самых элементов массива в return cEntries
Пока с lppRecipList не стал играться все работало.
Тест-Код на стороне VB.Net клиента такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Public Declare Unicode Function CPP_AddressBook Lib "testwab32.dll" ( _
ByVal hWnd As IntPtr, _
ByVal cDestFields As UInteger, _
ByVal lpszCaption As String, _
ByVal lppszDestTitles() As String, _
ByVal bAddressOne As Boolean, _
ByRef lppRecipList As IntPtr) As UInteger
Private Sub ButtonTestWab_Click(sender As Object, e As EventArgs) Handles ButtonTestWab.Click
Dim PtrRecipList As IntPtr
MsgBox(CPP_AddressBook( _
Me.Handle, _
3, _
"Выбрать получателей", _
{"Кому:", "Копия:", "Скрытая копия:"}, _
False, _
PtrRecipList))
MsgBox(PtrRecipList)
End Sub
Для начала хочу получить указатель на массив, т.е. PtrRecipList.
Ошибка вылазит:
.NetНеобработанное исключение типа "System.AccessViolationException" в WabTestNet.exe
Дополнительные сведения: Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена.
Что я напортачил в C++? Предполагаю, что не выделил память под элементы массива.
Внутри C кода мне известна размерность lppAdrList->cEntries
И я потом начинаю заполнять элементы
lppRecipList[i]->lpszDisplayName = lpProp->Value.lpszW;
lppRecipList[i]->lpszEmailAddress = lpProp->Value.lpszW;
Или где-то тупо ошибся в "грамматике", делал как бы по образу-подобию чего под руку подвернулось.
В .Net предполагаю сначала получить указатель IntPtr на массив структур,
потом воспользоваться Marshal.PtrToStructure (Ptr)
сдвигая Ptr на размер структуры для получения след. элемента (количество функция возвратит)
