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
|
#include "stdafx.h"
namespace External
{
HRESULT db_get(DISPPARAMS *pDispParams, VARIANT *pVarResult)
{
if (pDispParams->cArgs < 3)
return E_INVALIDARG;
MCONTACT hContact = pDispParams->rgvarg[2].intVal;
BSTR szModule = pDispParams->rgvarg[1].bstrVal;
BSTR szSetting = pDispParams->rgvarg[0].bstrVal;
DBVARIANT dbv = { 0 };
if (db_get(hContact, _T2A((TCHAR*)szModule), _T2A((TCHAR*)szSetting), &dbv))
return E_FAIL;
if (pVarResult != nullptr)
{
switch (dbv.type)
{
case DBVT_BYTE:
pVarResult->bVal = dbv.bVal;
pVarResult->vt = VT_BOOL;
break;
case DBVT_WCHAR:
pVarResult->vt = VT_BSTR;
pVarResult->bstrVal = ::SysAllocString(dbv.pwszVal);
break;
case DBVT_UTF8:
pVarResult->vt = VT_BSTR;
pVarResult->bstrVal = ::SysAllocString(ptrW(mir_utf8decodeW(dbv.pszVal)));
break;
case DBVT_ASCIIZ:
pVarResult->vt = VT_BSTR;
pVarResult->bstrVal = ::SysAllocString(_A2T(dbv.pszVal));
break;
case DBVT_DWORD:
pVarResult->vt = VT_INT;
pVarResult->intVal = dbv.dVal;
break;
case DBVT_WORD:
pVarResult->vt = VT_I2;
pVarResult->iVal = dbv.dVal;
break;
}
}
db_free(&dbv);
return S_OK;
}
HRESULT db_set(DISPPARAMS *pDispParams, VARIANT *pVarResult)
{
if (pDispParams->cArgs < 4 || pDispParams == nullptr)
return E_INVALIDARG;
MCONTACT hContact = pDispParams->rgvarg[3].intVal;
BSTR szModule = pDispParams->rgvarg[2].bstrVal;
BSTR szSetting = pDispParams->rgvarg[1].bstrVal;
DBVARIANT dbv = { 0 };
VARIANT& pVal = pDispParams->rgvarg[0];
switch (pVal.vt)
{
case VT_BSTR:
dbv.type = DBVT_WCHAR;
dbv.pwszVal = mir_wstrdup(pVal.bstrVal);
break;
case VT_INT:
case VT_I1:
case VT_I2:
case VT_I4:
case VT_I8:
dbv.type = DBVT_DWORD;
dbv.dVal = pVal.intVal;
break;
case VT_BOOL:
dbv.type = DBVT_BYTE;
dbv.bVal = pVal.boolVal;
break;
default:
return E_INVALIDARG;
}
INT_PTR res = ::db_set(hContact, _T2A((TCHAR*)szModule), _T2A((TCHAR*)szSetting), &dbv);
if (pVarResult != nullptr)
{
pVarResult->vt = VT_INT_PTR;
pVarResult->ullVal = (ULONGLONG)res;
}
return S_OK;
}
HRESULT win32_ShellExecute(DISPPARAMS *pDispParams, VARIANT *pVarResult)
{
if (pDispParams->cArgs < 5 || pDispParams == nullptr)
return E_INVALIDARG;
HINSTANCE res = ShellExecuteW(NULL, pDispParams->rgvarg[4].bstrVal, pDispParams->rgvarg[3].bstrVal, pDispParams->rgvarg[2].bstrVal, pDispParams->rgvarg[1].bstrVal, pDispParams->rgvarg[0].intVal);
if (pVarResult != nullptr)
{
pVarResult->vt = VT_HANDLE;
pVarResult->ullVal = (ULONGLONG)res;
}
return S_OK;
}
}
|
