wine/dlls/mapi32/prop.c

2551 lines
83 KiB
C

/*
* Property functions
*
* Copyright 2004 Jon Griffiths
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include <stdarg.h>
#define NONAMELESSUNION
#define NONAMELESSSTRUCT
#include "windef.h"
#include "winbase.h"
#include "winreg.h"
#include "winerror.h"
#include "winternl.h"
#include "objbase.h"
#include "shlwapi.h"
#include "wine/list.h"
#include "wine/debug.h"
#include "wine/unicode.h"
#include "mapival.h"
WINE_DEFAULT_DEBUG_CHANNEL(mapi);
BOOL WINAPI FBadRglpszA(LPSTR*,ULONG);
/* Internal: Check if a property value array is invalid */
static inline ULONG PROP_BadArray(LPSPropValue lpProp, size_t elemSize)
{
return IsBadReadPtr(lpProp->Value.MVi.lpi, lpProp->Value.MVi.cValues * elemSize);
}
/*************************************************************************
* PropCopyMore@16 (MAPI32.76)
*
* Copy a property value.
*
* PARAMS
* lpDest [O] Destination for the copied value
* lpSrc [I] Property value to copy to lpDest
* lpMore [I] Linked memory allocation function (pass MAPIAllocateMore())
* lpOrig [I] Original allocation to which memory will be linked
*
* RETURNS
* Success: S_OK. lpDest contains a deep copy of lpSrc.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid,
* MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails.
*
* NOTES
* Any elements within the property returned should not be individually
* freed, as they will be freed when lpOrig is.
*/
SCODE WINAPI PropCopyMore(LPSPropValue lpDest, LPSPropValue lpSrc,
ALLOCATEMORE *lpMore, LPVOID lpOrig)
{
ULONG ulLen, i;
SCODE scode = S_OK;
TRACE("(%p,%p,%p,%p)\n", lpDest, lpSrc, lpMore, lpOrig);
if (!lpDest || IsBadWritePtr(lpDest, sizeof(SPropValue)) ||
FBadProp(lpSrc) || !lpMore)
return MAPI_E_INVALID_PARAMETER;
/* Shallow copy first, this is sufficient for properties without pointers */
*lpDest = *lpSrc;
switch (PROP_TYPE(lpSrc->ulPropTag))
{
case PT_CLSID:
scode = lpMore(sizeof(GUID), lpOrig, (LPVOID*)&lpDest->Value.lpguid);
if (SUCCEEDED(scode))
*lpDest->Value.lpguid = *lpSrc->Value.lpguid;
break;
case PT_STRING8:
ulLen = lstrlenA(lpSrc->Value.lpszA) + 1u;
scode = lpMore(ulLen, lpOrig, (LPVOID*)&lpDest->Value.lpszA);
if (SUCCEEDED(scode))
memcpy(lpDest->Value.lpszA, lpSrc->Value.lpszA, ulLen);
break;
case PT_UNICODE:
ulLen = (strlenW(lpSrc->Value.lpszW) + 1u) * sizeof(WCHAR);
scode = lpMore(ulLen, lpOrig, (LPVOID*)&lpDest->Value.lpszW);
if (SUCCEEDED(scode))
memcpy(lpDest->Value.lpszW, lpSrc->Value.lpszW, ulLen);
break;
case PT_BINARY:
scode = lpMore(lpSrc->Value.bin.cb, lpOrig, (LPVOID*)&lpDest->Value.bin.lpb);
if (SUCCEEDED(scode))
memcpy(lpDest->Value.bin.lpb, lpSrc->Value.bin.lpb, lpSrc->Value.bin.cb);
break;
default:
if (lpSrc->ulPropTag & MV_FLAG)
{
ulLen = UlPropSize(lpSrc);
if (PROP_TYPE(lpSrc->ulPropTag) == PT_MV_STRING8 ||
PROP_TYPE(lpSrc->ulPropTag) == PT_MV_UNICODE)
{
/* UlPropSize doesn't account for the string pointers */
ulLen += lpSrc->Value.MVszA.cValues * sizeof(char*);
}
else if (PROP_TYPE(lpSrc->ulPropTag) == PT_MV_BINARY)
{
/* UlPropSize doesn't account for the SBinary structs */
ulLen += lpSrc->Value.MVbin.cValues * sizeof(SBinary);
}
lpDest->Value.MVi.cValues = lpSrc->Value.MVi.cValues;
scode = lpMore(ulLen, lpOrig, (LPVOID*)&lpDest->Value.MVi.lpi);
if (FAILED(scode))
break;
/* Note that we could allocate the memory for each value in a
* multi-value property separately, however if an allocation failed
* we would be left with a bunch of allocated memory, which (while
* not really leaked) is unusable until lpOrig is freed. So for
* strings and binary arrays we make a single allocation for all
* of the data. This is consistent since individual elements can't
* be freed anyway.
*/
switch (PROP_TYPE(lpSrc->ulPropTag))
{
case PT_MV_STRING8:
{
char *lpNextStr = (char*)(lpDest->Value.MVszA.lppszA +
lpDest->Value.MVszA.cValues);
for (i = 0; i < lpSrc->Value.MVszA.cValues; i++)
{
ULONG ulStrLen = lstrlenA(lpSrc->Value.MVszA.lppszA[i]) + 1u;
lpDest->Value.MVszA.lppszA[i] = lpNextStr;
memcpy(lpNextStr, lpSrc->Value.MVszA.lppszA[i], ulStrLen);
lpNextStr += ulStrLen;
}
break;
}
case PT_MV_UNICODE:
{
WCHAR *lpNextStr = (WCHAR*)(lpDest->Value.MVszW.lppszW +
lpDest->Value.MVszW.cValues);
for (i = 0; i < lpSrc->Value.MVszW.cValues; i++)
{
ULONG ulStrLen = strlenW(lpSrc->Value.MVszW.lppszW[i]) + 1u;
lpDest->Value.MVszW.lppszW[i] = lpNextStr;
memcpy(lpNextStr, lpSrc->Value.MVszW.lppszW[i], ulStrLen * sizeof(WCHAR));
lpNextStr += ulStrLen;
}
break;
}
case PT_MV_BINARY:
{
LPBYTE lpNext = (LPBYTE)(lpDest->Value.MVbin.lpbin +
lpDest->Value.MVbin.cValues);
for (i = 0; i < lpSrc->Value.MVszW.cValues; i++)
{
lpDest->Value.MVbin.lpbin[i].cb = lpSrc->Value.MVbin.lpbin[i].cb;
lpDest->Value.MVbin.lpbin[i].lpb = lpNext;
memcpy(lpNext, lpSrc->Value.MVbin.lpbin[i].lpb, lpDest->Value.MVbin.lpbin[i].cb);
lpNext += lpDest->Value.MVbin.lpbin[i].cb;
}
break;
}
default:
/* No embedded pointers, just copy the data over */
memcpy(lpDest->Value.MVi.lpi, lpSrc->Value.MVi.lpi, ulLen);
break;
}
break;
}
}
return scode;
}
/*************************************************************************
* UlPropSize@4 (MAPI32.77)
*
* Determine the size of a property in bytes.
*
* PARAMS
* lpProp [I] Property to determine the size of
*
* RETURNS
* Success: The size of the value in lpProp.
* Failure: 0, if a multi-value (array) property is invalid or the type of lpProp
* is unknown.
*
* NOTES
* - The size returned does not include the size of the SPropValue struct
* or the size of the array of pointers for multi-valued properties that
* contain pointers (such as PT_MV_STRING8 or PT-MV_UNICODE).
* - MSDN incorrectly states that this function returns MAPI_E_CALL_FAILED if
* lpProp is invalid. In reality no checking is performed and this function
* will crash if passed an invalid property, or return 0 if the property
* type is PT_OBJECT or is unknown.
*/
ULONG WINAPI UlPropSize(LPSPropValue lpProp)
{
ULONG ulRet = 1u, i;
TRACE("(%p)\n", lpProp);
switch (PROP_TYPE(lpProp->ulPropTag))
{
case PT_MV_I2: ulRet = lpProp->Value.MVi.cValues;
case PT_BOOLEAN:
case PT_I2: ulRet *= sizeof(USHORT);
break;
case PT_MV_I4: ulRet = lpProp->Value.MVl.cValues;
case PT_ERROR:
case PT_I4: ulRet *= sizeof(LONG);
break;
case PT_MV_I8: ulRet = lpProp->Value.MVli.cValues;
case PT_I8: ulRet *= sizeof(LONG64);
break;
case PT_MV_R4: ulRet = lpProp->Value.MVflt.cValues;
case PT_R4: ulRet *= sizeof(float);
break;
case PT_MV_APPTIME:
case PT_MV_R8: ulRet = lpProp->Value.MVdbl.cValues;
case PT_APPTIME:
case PT_R8: ulRet *= sizeof(double);
break;
case PT_MV_CURRENCY: ulRet = lpProp->Value.MVcur.cValues;
case PT_CURRENCY: ulRet *= sizeof(CY);
break;
case PT_MV_SYSTIME: ulRet = lpProp->Value.MVft.cValues;
case PT_SYSTIME: ulRet *= sizeof(FILETIME);
break;
case PT_MV_CLSID: ulRet = lpProp->Value.MVguid.cValues;
case PT_CLSID: ulRet *= sizeof(GUID);
break;
case PT_MV_STRING8: ulRet = 0u;
for (i = 0; i < lpProp->Value.MVszA.cValues; i++)
ulRet += (lstrlenA(lpProp->Value.MVszA.lppszA[i]) + 1u);
break;
case PT_STRING8: ulRet = lstrlenA(lpProp->Value.lpszA) + 1u;
break;
case PT_MV_UNICODE: ulRet = 0u;
for (i = 0; i < lpProp->Value.MVszW.cValues; i++)
ulRet += (strlenW(lpProp->Value.MVszW.lppszW[i]) + 1u);
ulRet *= sizeof(WCHAR);
break;
case PT_UNICODE: ulRet = (lstrlenW(lpProp->Value.lpszW) + 1u) * sizeof(WCHAR);
break;
case PT_MV_BINARY: ulRet = 0u;
for (i = 0; i < lpProp->Value.MVbin.cValues; i++)
ulRet += lpProp->Value.MVbin.lpbin[i].cb;
break;
case PT_BINARY: ulRet = lpProp->Value.bin.cb;
break;
case PT_OBJECT:
default: ulRet = 0u;
break;
}
return ulRet;
}
/*************************************************************************
* FPropContainsProp@12 (MAPI32.78)
*
* Find a property with a given property tag in a property array.
*
* PARAMS
* lpHaystack [I] Property to match to
* lpNeedle [I] Property to find in lpHaystack
* ulFuzzy [I] Flags controlling match type and strictness (FL_* flags from "mapidefs.h")
*
* RETURNS
* TRUE, if lpNeedle matches lpHaystack according to the criteria of ulFuzzy.
*
* NOTES
* Only property types of PT_STRING8 and PT_BINARY are handled by this function.
*/
BOOL WINAPI FPropContainsProp(LPSPropValue lpHaystack, LPSPropValue lpNeedle, ULONG ulFuzzy)
{
TRACE("(%p,%p,0x%08x)\n", lpHaystack, lpNeedle, ulFuzzy);
if (FBadProp(lpHaystack) || FBadProp(lpNeedle) ||
PROP_TYPE(lpHaystack->ulPropTag) != PROP_TYPE(lpNeedle->ulPropTag))
return FALSE;
/* FIXME: Do later versions support Unicode as well? */
if (PROP_TYPE(lpHaystack->ulPropTag) == PT_STRING8)
{
DWORD dwFlags = 0, dwNeedleLen, dwHaystackLen;
if (ulFuzzy & FL_IGNORECASE)
dwFlags |= NORM_IGNORECASE;
if (ulFuzzy & FL_IGNORENONSPACE)
dwFlags |= NORM_IGNORENONSPACE;
if (ulFuzzy & FL_LOOSE)
dwFlags |= (NORM_IGNORECASE|NORM_IGNORENONSPACE|NORM_IGNORESYMBOLS);
dwNeedleLen = lstrlenA(lpNeedle->Value.lpszA);
dwHaystackLen = lstrlenA(lpHaystack->Value.lpszA);
if ((ulFuzzy & (FL_SUBSTRING|FL_PREFIX)) == FL_PREFIX)
{
if (dwNeedleLen <= dwHaystackLen &&
CompareStringA(LOCALE_USER_DEFAULT, dwFlags,
lpHaystack->Value.lpszA, dwNeedleLen,
lpNeedle->Value.lpszA, dwNeedleLen) == CSTR_EQUAL)
return TRUE; /* needle is a prefix of haystack */
}
else if ((ulFuzzy & (FL_SUBSTRING|FL_PREFIX)) == FL_SUBSTRING)
{
LPSTR (WINAPI *pStrChrFn)(LPCSTR,WORD) = StrChrA;
LPSTR lpStr = lpHaystack->Value.lpszA;
if (dwFlags & NORM_IGNORECASE)
pStrChrFn = StrChrIA;
while ((lpStr = pStrChrFn(lpStr, *lpNeedle->Value.lpszA)) != NULL)
{
dwHaystackLen -= (lpStr - lpHaystack->Value.lpszA);
if (dwNeedleLen <= dwHaystackLen &&
CompareStringA(LOCALE_USER_DEFAULT, dwFlags,
lpStr, dwNeedleLen,
lpNeedle->Value.lpszA, dwNeedleLen) == CSTR_EQUAL)
return TRUE; /* needle is a substring of haystack */
lpStr++;
}
}
else if (CompareStringA(LOCALE_USER_DEFAULT, dwFlags,
lpHaystack->Value.lpszA, dwHaystackLen,
lpNeedle->Value.lpszA, dwNeedleLen) == CSTR_EQUAL)
return TRUE; /* full string match */
}
else if (PROP_TYPE(lpHaystack->ulPropTag) == PT_BINARY)
{
if ((ulFuzzy & (FL_SUBSTRING|FL_PREFIX)) == FL_PREFIX)
{
if (lpNeedle->Value.bin.cb <= lpHaystack->Value.bin.cb &&
!memcmp(lpNeedle->Value.bin.lpb, lpHaystack->Value.bin.lpb,
lpNeedle->Value.bin.cb))
return TRUE; /* needle is a prefix of haystack */
}
else if ((ulFuzzy & (FL_SUBSTRING|FL_PREFIX)) == FL_SUBSTRING)
{
ULONG ulLen = lpHaystack->Value.bin.cb;
LPBYTE lpb = lpHaystack->Value.bin.lpb;
while ((lpb = memchr(lpb, *lpNeedle->Value.bin.lpb, ulLen)) != NULL)
{
ulLen = lpHaystack->Value.bin.cb - (lpb - lpHaystack->Value.bin.lpb);
if (lpNeedle->Value.bin.cb <= ulLen &&
!memcmp(lpNeedle->Value.bin.lpb, lpb, lpNeedle->Value.bin.cb))
return TRUE; /* needle is a substring of haystack */
lpb++;
}
}
else if (!LPropCompareProp(lpHaystack, lpNeedle))
return TRUE; /* needle is an exact match with haystack */
}
return FALSE;
}
/*************************************************************************
* FPropCompareProp@12 (MAPI32.79)
*
* Compare two properties.
*
* PARAMS
* lpPropLeft [I] Left hand property to compare to lpPropRight
* ulOp [I] Comparison operator (RELOP_* enum from "mapidefs.h")
* lpPropRight [I] Right hand property to compare to lpPropLeft
*
* RETURNS
* TRUE, if the comparison is true, FALSE otherwise.
*/
BOOL WINAPI FPropCompareProp(LPSPropValue lpPropLeft, ULONG ulOp, LPSPropValue lpPropRight)
{
LONG iCmp;
TRACE("(%p,%d,%p)\n", lpPropLeft, ulOp, lpPropRight);
if (ulOp > RELOP_RE || FBadProp(lpPropLeft) || FBadProp(lpPropRight))
return FALSE;
if (ulOp == RELOP_RE)
{
FIXME("Comparison operator RELOP_RE not yet implemented!\n");
return FALSE;
}
iCmp = LPropCompareProp(lpPropLeft, lpPropRight);
switch (ulOp)
{
case RELOP_LT: return iCmp < 0 ? TRUE : FALSE;
case RELOP_LE: return iCmp <= 0 ? TRUE : FALSE;
case RELOP_GT: return iCmp > 0 ? TRUE : FALSE;
case RELOP_GE: return iCmp >= 0 ? TRUE : FALSE;
case RELOP_EQ: return iCmp == 0 ? TRUE : FALSE;
case RELOP_NE: return iCmp != 0 ? TRUE : FALSE;
}
return FALSE;
}
/*************************************************************************
* LPropCompareProp@8 (MAPI32.80)
*
* Compare two properties.
*
* PARAMS
* lpPropLeft [I] Left hand property to compare to lpPropRight
* lpPropRight [I] Right hand property to compare to lpPropLeft
*
* RETURNS
* An integer less than, equal to or greater than 0, indicating that
* lpszStr is less than, the same, or greater than lpszComp.
*/
LONG WINAPI LPropCompareProp(LPSPropValue lpPropLeft, LPSPropValue lpPropRight)
{
LONG iRet;
TRACE("(%p->0x%08x,%p->0x%08x)\n", lpPropLeft, lpPropLeft->ulPropTag,
lpPropRight, lpPropRight->ulPropTag);
/* If the properties are not the same, sort by property type */
if (PROP_TYPE(lpPropLeft->ulPropTag) != PROP_TYPE(lpPropRight->ulPropTag))
return (LONG)PROP_TYPE(lpPropLeft->ulPropTag) - (LONG)PROP_TYPE(lpPropRight->ulPropTag);
switch (PROP_TYPE(lpPropLeft->ulPropTag))
{
case PT_UNSPECIFIED:
case PT_NULL:
return 0; /* NULLs are equal */
case PT_I2:
return lpPropLeft->Value.i - lpPropRight->Value.i;
case PT_I4:
return lpPropLeft->Value.l - lpPropRight->Value.l;
case PT_I8:
if (lpPropLeft->Value.li.QuadPart > lpPropRight->Value.li.QuadPart)
return 1;
if (lpPropLeft->Value.li.QuadPart == lpPropRight->Value.li.QuadPart)
return 0;
return -1;
case PT_R4:
if (lpPropLeft->Value.flt > lpPropRight->Value.flt)
return 1;
if (lpPropLeft->Value.flt == lpPropRight->Value.flt)
return 0;
return -1;
case PT_APPTIME:
case PT_R8:
if (lpPropLeft->Value.dbl > lpPropRight->Value.dbl)
return 1;
if (lpPropLeft->Value.dbl == lpPropRight->Value.dbl)
return 0;
return -1;
case PT_CURRENCY:
if (lpPropLeft->Value.cur.int64 > lpPropRight->Value.cur.int64)
return 1;
if (lpPropLeft->Value.cur.int64 == lpPropRight->Value.cur.int64)
return 0;
return -1;
case PT_SYSTIME:
return CompareFileTime(&lpPropLeft->Value.ft, &lpPropRight->Value.ft);
case PT_BOOLEAN:
return (lpPropLeft->Value.b ? 1 : 0) - (lpPropRight->Value.b ? 1 : 0);
case PT_BINARY:
if (lpPropLeft->Value.bin.cb == lpPropRight->Value.bin.cb)
iRet = memcmp(lpPropLeft->Value.bin.lpb, lpPropRight->Value.bin.lpb,
lpPropLeft->Value.bin.cb);
else
{
iRet = memcmp(lpPropLeft->Value.bin.lpb, lpPropRight->Value.bin.lpb,
min(lpPropLeft->Value.bin.cb, lpPropRight->Value.bin.cb));
if (!iRet)
iRet = lpPropLeft->Value.bin.cb - lpPropRight->Value.bin.cb;
}
return iRet;
case PT_STRING8:
return lstrcmpA(lpPropLeft->Value.lpszA, lpPropRight->Value.lpszA);
case PT_UNICODE:
return strcmpW(lpPropLeft->Value.lpszW, lpPropRight->Value.lpszW);
case PT_ERROR:
if (lpPropLeft->Value.err > lpPropRight->Value.err)
return 1;
if (lpPropLeft->Value.err == lpPropRight->Value.err)
return 0;
return -1;
case PT_CLSID:
return memcmp(lpPropLeft->Value.lpguid, lpPropRight->Value.lpguid,
sizeof(GUID));
}
FIXME("Unhandled property type %d\n", PROP_TYPE(lpPropLeft->ulPropTag));
return 0;
}
/*************************************************************************
* HrGetOneProp@8 (MAPI32.135)
*
* Get a property value from an IMAPIProp object.
*
* PARAMS
* lpIProp [I] IMAPIProp object to get the property value in
* ulPropTag [I] Property tag of the property to get
* lppProp [O] Destination for the returned property
*
* RETURNS
* Success: S_OK. *lppProp contains the property value requested.
* Failure: MAPI_E_NOT_FOUND, if no property value has the tag given by ulPropTag.
*/
HRESULT WINAPI HrGetOneProp(LPMAPIPROP lpIProp, ULONG ulPropTag, LPSPropValue *lppProp)
{
SPropTagArray pta;
ULONG ulCount;
HRESULT hRet;
TRACE("(%p,%d,%p)\n", lpIProp, ulPropTag, lppProp);
pta.cValues = 1u;
pta.aulPropTag[0] = ulPropTag;
hRet = IMAPIProp_GetProps(lpIProp, &pta, 0u, &ulCount, lppProp);
if (hRet == MAPI_W_ERRORS_RETURNED)
{
MAPIFreeBuffer(*lppProp);
*lppProp = NULL;
hRet = MAPI_E_NOT_FOUND;
}
return hRet;
}
/*************************************************************************
* HrSetOneProp@8 (MAPI32.136)
*
* Set a property value in an IMAPIProp object.
*
* PARAMS
* lpIProp [I] IMAPIProp object to set the property value in
* lpProp [I] Property value to set
*
* RETURNS
* Success: S_OK. The value in lpProp is set in lpIProp.
* Failure: An error result from IMAPIProp_SetProps().
*/
HRESULT WINAPI HrSetOneProp(LPMAPIPROP lpIProp, LPSPropValue lpProp)
{
TRACE("(%p,%p)\n", lpIProp, lpProp);
return IMAPIProp_SetProps(lpIProp, 1u, lpProp, NULL);
}
/*************************************************************************
* FPropExists@8 (MAPI32.137)
*
* Find a property with a given property tag in an IMAPIProp object.
*
* PARAMS
* lpIProp [I] IMAPIProp object to find the property tag in
* ulPropTag [I] Property tag to find
*
* RETURNS
* TRUE, if ulPropTag matches a property held in lpIProp,
* FALSE, otherwise.
*
* NOTES
* if ulPropTag has a property type of PT_UNSPECIFIED, then only the property
* Ids need to match for a successful match to occur.
*/
BOOL WINAPI FPropExists(LPMAPIPROP lpIProp, ULONG ulPropTag)
{
BOOL bRet = FALSE;
TRACE("(%p,%d)\n", lpIProp, ulPropTag);
if (lpIProp)
{
LPSPropTagArray lpTags;
ULONG i;
if (FAILED(IMAPIProp_GetPropList(lpIProp, 0u, &lpTags)))
return FALSE;
for (i = 0; i < lpTags->cValues; i++)
{
if (!FBadPropTag(lpTags->aulPropTag[i]) &&
(lpTags->aulPropTag[i] == ulPropTag ||
(PROP_TYPE(ulPropTag) == PT_UNSPECIFIED &&
PROP_ID(lpTags->aulPropTag[i]) == lpTags->aulPropTag[i])))
{
bRet = TRUE;
break;
}
}
MAPIFreeBuffer(lpTags);
}
return bRet;
}
/*************************************************************************
* PpropFindProp@12 (MAPI32.138)
*
* Find a property with a given property tag in a property array.
*
* PARAMS
* lpProps [I] Property array to search
* cValues [I] Number of properties in lpProps
* ulPropTag [I] Property tag to find
*
* RETURNS
* A pointer to the matching property, or NULL if none was found.
*
* NOTES
* if ulPropTag has a property type of PT_UNSPECIFIED, then only the property
* Ids need to match for a successful match to occur.
*/
LPSPropValue WINAPI PpropFindProp(LPSPropValue lpProps, ULONG cValues, ULONG ulPropTag)
{
TRACE("(%p,%d,%d)\n", lpProps, cValues, ulPropTag);
if (lpProps && cValues)
{
ULONG i;
for (i = 0; i < cValues; i++)
{
if (!FBadPropTag(lpProps[i].ulPropTag) &&
(lpProps[i].ulPropTag == ulPropTag ||
(PROP_TYPE(ulPropTag) == PT_UNSPECIFIED &&
PROP_ID(lpProps[i].ulPropTag) == PROP_ID(ulPropTag))))
return &lpProps[i];
}
}
return NULL;
}
/*************************************************************************
* FreePadrlist@4 (MAPI32.139)
*
* Free the memory used by an address book list.
*
* PARAMS
* lpAddrs [I] Address book list to free
*
* RETURNS
* Nothing.
*/
VOID WINAPI FreePadrlist(LPADRLIST lpAddrs)
{
TRACE("(%p)\n", lpAddrs);
/* Structures are binary compatible; use the same implementation */
FreeProws((LPSRowSet)lpAddrs);
}
/*************************************************************************
* FreeProws@4 (MAPI32.140)
*
* Free the memory used by a row set.
*
* PARAMS
* lpRowSet [I] Row set to free
*
* RETURNS
* Nothing.
*/
VOID WINAPI FreeProws(LPSRowSet lpRowSet)
{
TRACE("(%p)\n", lpRowSet);
if (lpRowSet)
{
ULONG i;
for (i = 0; i < lpRowSet->cRows; i++)
MAPIFreeBuffer(lpRowSet->aRow[i].lpProps);
MAPIFreeBuffer(lpRowSet);
}
}
/*************************************************************************
* ScCountProps@12 (MAPI32.170)
*
* Validate and determine the length of an array of properties.
*
* PARAMS
* iCount [I] Length of the lpProps array
* lpProps [I] Array of properties to validate/size
* pcBytes [O] If non-NULL, destination for the size of the property array
*
* RETURNS
* Success: S_OK. If pcBytes is non-NULL, it contains the size of the propery array.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid or validation
* of the property array fails.
*/
SCODE WINAPI ScCountProps(INT iCount, LPSPropValue lpProps, ULONG *pcBytes)
{
ULONG i, ulCount = iCount, ulBytes = 0;
TRACE("(%d,%p,%p)\n", iCount, lpProps, pcBytes);
if (iCount <= 0 || !lpProps ||
IsBadReadPtr(lpProps, iCount * sizeof(SPropValue)))
return MAPI_E_INVALID_PARAMETER;
for (i = 0; i < ulCount; i++)
{
ULONG ulPropSize = 0;
if (FBadProp(&lpProps[i]) || lpProps[i].ulPropTag == PROP_ID_NULL ||
lpProps[i].ulPropTag == PROP_ID_INVALID)
return MAPI_E_INVALID_PARAMETER;
if (PROP_TYPE(lpProps[i].ulPropTag) != PT_OBJECT)
{
ulPropSize = UlPropSize(&lpProps[i]);
if (!ulPropSize)
return MAPI_E_INVALID_PARAMETER;
}
switch (PROP_TYPE(lpProps[i].ulPropTag))
{
case PT_STRING8:
case PT_UNICODE:
case PT_CLSID:
case PT_BINARY:
case PT_MV_I2:
case PT_MV_I4:
case PT_MV_I8:
case PT_MV_R4:
case PT_MV_R8:
case PT_MV_CURRENCY:
case PT_MV_SYSTIME:
case PT_MV_APPTIME:
ulPropSize += sizeof(SPropValue);
break;
case PT_MV_CLSID:
ulPropSize += lpProps[i].Value.MVszA.cValues * sizeof(char*) + sizeof(SPropValue);
break;
case PT_MV_STRING8:
case PT_MV_UNICODE:
ulPropSize += lpProps[i].Value.MVszA.cValues * sizeof(char*) + sizeof(SPropValue);
break;
case PT_MV_BINARY:
ulPropSize += lpProps[i].Value.MVbin.cValues * sizeof(SBinary) + sizeof(SPropValue);
break;
default:
ulPropSize = sizeof(SPropValue);
break;
}
ulBytes += ulPropSize;
}
if (pcBytes)
*pcBytes = ulBytes;
return S_OK;
}
/*************************************************************************
* ScCopyProps@16 (MAPI32.171)
*
* Copy an array of property values into a buffer suited for serialisation.
*
* PARAMS
* cValues [I] Number of properties in lpProps
* lpProps [I] Property array to copy
* lpDst [O] Destination for the serialised data
* lpCount [O] If non-NULL, destination for the number of bytes of data written to lpDst
*
* RETURNS
* Success: S_OK. lpDst contains the serialised data from lpProps.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
*
* NOTES
* The resulting property value array is stored in a contiguous block starting at lpDst.
*/
SCODE WINAPI ScCopyProps(int cValues, LPSPropValue lpProps, LPVOID lpDst, ULONG *lpCount)
{
LPSPropValue lpDest = (LPSPropValue)lpDst;
char *lpDataDest = (char *)(lpDest + cValues);
ULONG ulLen, i;
int iter;
TRACE("(%d,%p,%p,%p)\n", cValues, lpProps, lpDst, lpCount);
if (!lpProps || cValues < 0 || !lpDest)
return MAPI_E_INVALID_PARAMETER;
memcpy(lpDst, lpProps, cValues * sizeof(SPropValue));
for (iter = 0; iter < cValues; iter++)
{
switch (PROP_TYPE(lpProps->ulPropTag))
{
case PT_CLSID:
lpDest->Value.lpguid = (LPGUID)lpDataDest;
*lpDest->Value.lpguid = *lpProps->Value.lpguid;
lpDataDest += sizeof(GUID);
break;
case PT_STRING8:
ulLen = lstrlenA(lpProps->Value.lpszA) + 1u;
lpDest->Value.lpszA = lpDataDest;
memcpy(lpDest->Value.lpszA, lpProps->Value.lpszA, ulLen);
lpDataDest += ulLen;
break;
case PT_UNICODE:
ulLen = (strlenW(lpProps->Value.lpszW) + 1u) * sizeof(WCHAR);
lpDest->Value.lpszW = (LPWSTR)lpDataDest;
memcpy(lpDest->Value.lpszW, lpProps->Value.lpszW, ulLen);
lpDataDest += ulLen;
break;
case PT_BINARY:
lpDest->Value.bin.lpb = (LPBYTE)lpDataDest;
memcpy(lpDest->Value.bin.lpb, lpProps->Value.bin.lpb, lpProps->Value.bin.cb);
lpDataDest += lpProps->Value.bin.cb;
break;
default:
if (lpProps->ulPropTag & MV_FLAG)
{
lpDest->Value.MVi.cValues = lpProps->Value.MVi.cValues;
/* Note: Assignment uses lppszA but covers all cases by union aliasing */
lpDest->Value.MVszA.lppszA = (char**)lpDataDest;
switch (PROP_TYPE(lpProps->ulPropTag))
{
case PT_MV_STRING8:
{
lpDataDest += lpProps->Value.MVszA.cValues * sizeof(char *);
for (i = 0; i < lpProps->Value.MVszA.cValues; i++)
{
ULONG ulStrLen = lstrlenA(lpProps->Value.MVszA.lppszA[i]) + 1u;
lpDest->Value.MVszA.lppszA[i] = lpDataDest;
memcpy(lpDataDest, lpProps->Value.MVszA.lppszA[i], ulStrLen);
lpDataDest += ulStrLen;
}
break;
}
case PT_MV_UNICODE:
{
lpDataDest += lpProps->Value.MVszW.cValues * sizeof(WCHAR *);
for (i = 0; i < lpProps->Value.MVszW.cValues; i++)
{
ULONG ulStrLen = (strlenW(lpProps->Value.MVszW.lppszW[i]) + 1u) * sizeof(WCHAR);
lpDest->Value.MVszW.lppszW[i] = (LPWSTR)lpDataDest;
memcpy(lpDataDest, lpProps->Value.MVszW.lppszW[i], ulStrLen);
lpDataDest += ulStrLen;
}
break;
}
case PT_MV_BINARY:
{
lpDataDest += lpProps->Value.MVszW.cValues * sizeof(SBinary);
for (i = 0; i < lpProps->Value.MVszW.cValues; i++)
{
lpDest->Value.MVbin.lpbin[i].cb = lpProps->Value.MVbin.lpbin[i].cb;
lpDest->Value.MVbin.lpbin[i].lpb = (LPBYTE)lpDataDest;
memcpy(lpDataDest, lpProps->Value.MVbin.lpbin[i].lpb, lpDest->Value.MVbin.lpbin[i].cb);
lpDataDest += lpDest->Value.MVbin.lpbin[i].cb;
}
break;
}
default:
/* No embedded pointers, just copy the data over */
ulLen = UlPropSize(lpProps);
memcpy(lpDest->Value.MVi.lpi, lpProps->Value.MVi.lpi, ulLen);
lpDataDest += ulLen;
break;
}
break;
}
}
lpDest++;
lpProps++;
}
if (lpCount)
*lpCount = lpDataDest - (char *)lpDst;
return S_OK;
}
/*************************************************************************
* ScRelocProps@20 (MAPI32.172)
*
* Relocate the pointers in an array of property values after it has been copied.
*
* PARAMS
* cValues [I] Number of properties in lpProps
* lpProps [O] Property array to relocate the pointers in.
* lpOld [I] Position where the data was copied from
* lpNew [I] Position where the data was copied to
* lpCount [O] If non-NULL, destination for the number of bytes of data at lpDst
*
* RETURNS
* Success: S_OK. Any pointers in lpProps are relocated.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
*
* NOTES
* MSDN states that this function can be used for serialisation by passing
* NULL as either lpOld or lpNew, thus converting any pointers in lpProps
* between offsets and pointers. This does not work in native (it crashes),
* and cannot be made to work in Wine because the original interface design
* is deficient. The only use left for this function is to remap pointers
* in a contiguous property array that has been copied with memcpy() to
* another memory location.
*/
SCODE WINAPI ScRelocProps(int cValues, LPSPropValue lpProps, LPVOID lpOld,
LPVOID lpNew, ULONG *lpCount)
{
static const BOOL bBadPtr = TRUE; /* Windows bug - Assumes source is bad */
LPSPropValue lpDest = lpProps;
ULONG ulCount = cValues * sizeof(SPropValue);
ULONG ulLen, i;
int iter;
TRACE("(%d,%p,%p,%p,%p)\n", cValues, lpProps, lpOld, lpNew, lpCount);
if (!lpProps || cValues < 0 || !lpOld || !lpNew)
return MAPI_E_INVALID_PARAMETER;
/* The reason native doesn't work as MSDN states is that it assumes that
* the lpProps pointer contains valid pointers. This is obviously not
* true if the array is being read back from serialisation (the pointers
* are just offsets). Native can't actually work converting the pointers to
* offsets either, because it converts any array pointers to offsets then
* _dereferences the offset_ in order to convert the array elements!
*
* The code below would handle both cases except that the design of this
* function makes it impossible to know when the pointers in lpProps are
* valid. If both lpOld and lpNew are non-NULL, native reads the pointers
* after converting them, so we must do the same. It seems this
* functionality was never tested by MS.
*/
#define RELOC_PTR(p) (((char*)(p)) - (char*)lpOld + (char*)lpNew)
for (iter = 0; iter < cValues; iter++)
{
switch (PROP_TYPE(lpDest->ulPropTag))
{
case PT_CLSID:
lpDest->Value.lpguid = (LPGUID)RELOC_PTR(lpDest->Value.lpguid);
ulCount += sizeof(GUID);
break;
case PT_STRING8:
ulLen = bBadPtr ? 0 : lstrlenA(lpDest->Value.lpszA) + 1u;
lpDest->Value.lpszA = RELOC_PTR(lpDest->Value.lpszA);
if (bBadPtr)
ulLen = lstrlenA(lpDest->Value.lpszA) + 1u;
ulCount += ulLen;
break;
case PT_UNICODE:
ulLen = bBadPtr ? 0 : (lstrlenW(lpDest->Value.lpszW) + 1u) * sizeof(WCHAR);
lpDest->Value.lpszW = (LPWSTR)RELOC_PTR(lpDest->Value.lpszW);
if (bBadPtr)
ulLen = (strlenW(lpDest->Value.lpszW) + 1u) * sizeof(WCHAR);
ulCount += ulLen;
break;
case PT_BINARY:
lpDest->Value.bin.lpb = (LPBYTE)RELOC_PTR(lpDest->Value.bin.lpb);
ulCount += lpDest->Value.bin.cb;
break;
default:
if (lpDest->ulPropTag & MV_FLAG)
{
/* Since we have to access the array elements, don't map the
* array unless it is invalid (otherwise, map it at the end)
*/
if (bBadPtr)
lpDest->Value.MVszA.lppszA = (LPSTR*)RELOC_PTR(lpDest->Value.MVszA.lppszA);
switch (PROP_TYPE(lpProps->ulPropTag))
{
case PT_MV_STRING8:
{
ulCount += lpDest->Value.MVszA.cValues * sizeof(char *);
for (i = 0; i < lpDest->Value.MVszA.cValues; i++)
{
ULONG ulStrLen = bBadPtr ? 0 : lstrlenA(lpDest->Value.MVszA.lppszA[i]) + 1u;
lpDest->Value.MVszA.lppszA[i] = RELOC_PTR(lpDest->Value.MVszA.lppszA[i]);
if (bBadPtr)
ulStrLen = lstrlenA(lpDest->Value.MVszA.lppszA[i]) + 1u;
ulCount += ulStrLen;
}
break;
}
case PT_MV_UNICODE:
{
ulCount += lpDest->Value.MVszW.cValues * sizeof(WCHAR *);
for (i = 0; i < lpDest->Value.MVszW.cValues; i++)
{
ULONG ulStrLen = bBadPtr ? 0 : (strlenW(lpDest->Value.MVszW.lppszW[i]) + 1u) * sizeof(WCHAR);
lpDest->Value.MVszW.lppszW[i] = (LPWSTR)RELOC_PTR(lpDest->Value.MVszW.lppszW[i]);
if (bBadPtr)
ulStrLen = (strlenW(lpDest->Value.MVszW.lppszW[i]) + 1u) * sizeof(WCHAR);
ulCount += ulStrLen;
}
break;
}
case PT_MV_BINARY:
{
ulCount += lpDest->Value.MVszW.cValues * sizeof(SBinary);
for (i = 0; i < lpDest->Value.MVszW.cValues; i++)
{
lpDest->Value.MVbin.lpbin[i].lpb = (LPBYTE)RELOC_PTR(lpDest->Value.MVbin.lpbin[i].lpb);
ulCount += lpDest->Value.MVbin.lpbin[i].cb;
}
break;
}
default:
ulCount += UlPropSize(lpDest);
break;
}
if (!bBadPtr)
lpDest->Value.MVszA.lppszA = (LPSTR*)RELOC_PTR(lpDest->Value.MVszA.lppszA);
break;
}
}
lpDest++;
}
if (lpCount)
*lpCount = ulCount;
return S_OK;
}
/*************************************************************************
* LpValFindProp@12 (MAPI32.173)
*
* Find a property with a given property id in a property array.
*
* PARAMS
* ulPropTag [I] Property tag containing property id to find
* cValues [I] Number of properties in lpProps
* lpProps [I] Property array to search
*
* RETURNS
* A pointer to the matching property, or NULL if none was found.
*
* NOTES
* This function matches only on the property id and does not care if the
* property types differ.
*/
LPSPropValue WINAPI LpValFindProp(ULONG ulPropTag, ULONG cValues, LPSPropValue lpProps)
{
TRACE("(%d,%d,%p)\n", ulPropTag, cValues, lpProps);
if (lpProps && cValues)
{
ULONG i;
for (i = 0; i < cValues; i++)
{
if (PROP_ID(ulPropTag) == PROP_ID(lpProps[i].ulPropTag))
return &lpProps[i];
}
}
return NULL;
}
/*************************************************************************
* ScDupPropset@16 (MAPI32.174)
*
* Duplicate a property value array into a contiguous block of memory.
*
* PARAMS
* cValues [I] Number of properties in lpProps
* lpProps [I] Property array to duplicate
* lpAlloc [I] Memory allocation function, use MAPIAllocateBuffer()
* lpNewProp [O] Destination for the newly duplicated property value array
*
* RETURNS
* Success: S_OK. *lpNewProp contains the duplicated array.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid,
* MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails.
*/
SCODE WINAPI ScDupPropset(int cValues, LPSPropValue lpProps,
LPALLOCATEBUFFER lpAlloc, LPSPropValue *lpNewProp)
{
ULONG ulCount;
SCODE sc;
TRACE("(%d,%p,%p,%p)\n", cValues, lpProps, lpAlloc, lpNewProp);
sc = ScCountProps(cValues, lpProps, &ulCount);
if (SUCCEEDED(sc))
{
sc = lpAlloc(ulCount, (LPVOID*)lpNewProp);
if (SUCCEEDED(sc))
sc = ScCopyProps(cValues, lpProps, *lpNewProp, &ulCount);
}
return sc;
}
/*************************************************************************
* FBadRglpszA@8 (MAPI32.175)
*
* Determine if an array of strings is invalid
*
* PARAMS
* lppszStrs [I] Array of strings to check
* ulCount [I] Number of strings in lppszStrs
*
* RETURNS
* TRUE, if lppszStrs is invalid, FALSE otherwise.
*/
BOOL WINAPI FBadRglpszA(LPSTR *lppszStrs, ULONG ulCount)
{
ULONG i;
TRACE("(%p,%d)\n", lppszStrs, ulCount);
if (!ulCount)
return FALSE;
if (!lppszStrs || IsBadReadPtr(lppszStrs, ulCount * sizeof(LPWSTR)))
return TRUE;
for (i = 0; i < ulCount; i++)
{
if (!lppszStrs[i] || IsBadStringPtrA(lppszStrs[i], -1))
return TRUE;
}
return FALSE;
}
/*************************************************************************
* FBadRglpszW@8 (MAPI32.176)
*
* See FBadRglpszA.
*/
BOOL WINAPI FBadRglpszW(LPWSTR *lppszStrs, ULONG ulCount)
{
ULONG i;
TRACE("(%p,%d)\n", lppszStrs, ulCount);
if (!ulCount)
return FALSE;
if (!lppszStrs || IsBadReadPtr(lppszStrs, ulCount * sizeof(LPWSTR)))
return TRUE;
for (i = 0; i < ulCount; i++)
{
if (!lppszStrs[i] || IsBadStringPtrW(lppszStrs[i], -1))
return TRUE;
}
return FALSE;
}
/*************************************************************************
* FBadRowSet@4 (MAPI32.177)
*
* Determine if a row is invalid
*
* PARAMS
* lpRow [I] Row to check
*
* RETURNS
* TRUE, if lpRow is invalid, FALSE otherwise.
*/
BOOL WINAPI FBadRowSet(LPSRowSet lpRowSet)
{
ULONG i;
TRACE("(%p)\n", lpRowSet);
if (!lpRowSet || IsBadReadPtr(lpRowSet, CbSRowSet(lpRowSet)))
return TRUE;
for (i = 0; i < lpRowSet->cRows; i++)
{
if (FBadRow(&lpRowSet->aRow[i]))
return TRUE;
}
return FALSE;
}
/*************************************************************************
* FBadPropTag@4 (MAPI32.179)
*
* Determine if a property tag is invalid
*
* PARAMS
* ulPropTag [I] Property tag to check
*
* RETURNS
* TRUE, if ulPropTag is invalid, FALSE otherwise.
*/
ULONG WINAPI FBadPropTag(ULONG ulPropTag)
{
TRACE("(0x%08x)\n", ulPropTag);
switch (ulPropTag & (~MV_FLAG & PROP_TYPE_MASK))
{
case PT_UNSPECIFIED:
case PT_NULL:
case PT_I2:
case PT_LONG:
case PT_R4:
case PT_DOUBLE:
case PT_CURRENCY:
case PT_APPTIME:
case PT_ERROR:
case PT_BOOLEAN:
case PT_OBJECT:
case PT_I8:
case PT_STRING8:
case PT_UNICODE:
case PT_SYSTIME:
case PT_CLSID:
case PT_BINARY:
return FALSE;
}
return TRUE;
}
/*************************************************************************
* FBadRow@4 (MAPI32.180)
*
* Determine if a row is invalid
*
* PARAMS
* lpRow [I] Row to check
*
* RETURNS
* TRUE, if lpRow is invalid, FALSE otherwise.
*/
ULONG WINAPI FBadRow(LPSRow lpRow)
{
ULONG i;
TRACE("(%p)\n", lpRow);
if (!lpRow || IsBadReadPtr(lpRow, sizeof(SRow)) || !lpRow->lpProps ||
IsBadReadPtr(lpRow->lpProps, lpRow->cValues * sizeof(SPropValue)))
return TRUE;
for (i = 0; i < lpRow->cValues; i++)
{
if (FBadProp(&lpRow->lpProps[i]))
return TRUE;
}
return FALSE;
}
/*************************************************************************
* FBadProp@4 (MAPI32.181)
*
* Determine if a property is invalid
*
* PARAMS
* lpProp [I] Property to check
*
* RETURNS
* TRUE, if lpProp is invalid, FALSE otherwise.
*/
ULONG WINAPI FBadProp(LPSPropValue lpProp)
{
if (!lpProp || IsBadReadPtr(lpProp, sizeof(SPropValue)) ||
FBadPropTag(lpProp->ulPropTag))
return TRUE;
switch (PROP_TYPE(lpProp->ulPropTag))
{
/* Single value properties containing pointers */
case PT_STRING8:
if (!lpProp->Value.lpszA || IsBadStringPtrA(lpProp->Value.lpszA, -1))
return TRUE;
break;
case PT_UNICODE:
if (!lpProp->Value.lpszW || IsBadStringPtrW(lpProp->Value.lpszW, -1))
return TRUE;
break;
case PT_BINARY:
if (IsBadReadPtr(lpProp->Value.bin.lpb, lpProp->Value.bin.cb))
return TRUE;
break;
case PT_CLSID:
if (IsBadReadPtr(lpProp->Value.lpguid, sizeof(GUID)))
return TRUE;
break;
/* Multiple value properties (arrays) containing no pointers */
case PT_MV_I2:
return PROP_BadArray(lpProp, sizeof(SHORT));
case PT_MV_LONG:
return PROP_BadArray(lpProp, sizeof(LONG));
case PT_MV_LONGLONG:
return PROP_BadArray(lpProp, sizeof(LONG64));
case PT_MV_FLOAT:
return PROP_BadArray(lpProp, sizeof(float));
case PT_MV_SYSTIME:
return PROP_BadArray(lpProp, sizeof(FILETIME));
case PT_MV_APPTIME:
case PT_MV_DOUBLE:
return PROP_BadArray(lpProp, sizeof(double));
case PT_MV_CURRENCY:
return PROP_BadArray(lpProp, sizeof(CY));
case PT_MV_CLSID:
return PROP_BadArray(lpProp, sizeof(GUID));
/* Multiple value properties containing pointers */
case PT_MV_STRING8:
return FBadRglpszA(lpProp->Value.MVszA.lppszA,
lpProp->Value.MVszA.cValues);
case PT_MV_UNICODE:
return FBadRglpszW(lpProp->Value.MVszW.lppszW,
lpProp->Value.MVszW.cValues);
case PT_MV_BINARY:
return FBadEntryList(&lpProp->Value.MVbin);
}
return FALSE;
}
/*************************************************************************
* FBadColumnSet@4 (MAPI32.182)
*
* Determine if an array of property tags is invalid
*
* PARAMS
* lpCols [I] Property tag array to check
*
* RETURNS
* TRUE, if lpCols is invalid, FALSE otherwise.
*/
ULONG WINAPI FBadColumnSet(LPSPropTagArray lpCols)
{
ULONG ulRet = FALSE, i;
TRACE("(%p)\n", lpCols);
if (!lpCols || IsBadReadPtr(lpCols, CbSPropTagArray(lpCols)))
ulRet = TRUE;
else
{
for (i = 0; i < lpCols->cValues; i++)
{
if ((lpCols->aulPropTag[i] & PROP_TYPE_MASK) == PT_ERROR ||
FBadPropTag(lpCols->aulPropTag[i]))
{
ulRet = TRUE;
break;
}
}
}
TRACE("Returning %s\n", ulRet ? "TRUE" : "FALSE");
return ulRet;
}
/**************************************************************************
* IMAPIProp {MAPI32}
*
* The default Mapi interface for manipulating object properties.
*
* DESCRIPTION
* This object provides an interface to an objects properties. It is exposed
* by several types of Mapi objects in order to simplify the querying and
* modification of properties.
*
* METHODS
*/
/* A single property in a property data collection */
typedef struct
{
struct list entry;
ULONG ulAccess; /* The property value access level */
LPSPropValue value; /* The property value */
} IPropDataItem, *LPIPropDataItem;
/* The main property data collection structure */
typedef struct
{
const IPropDataVtbl *lpVtbl;
LONG lRef; /* Reference count */
ALLOCATEBUFFER *lpAlloc; /* Memory allocation routine */
ALLOCATEMORE *lpMore; /* Linked memory allocation routine */
FREEBUFFER *lpFree; /* Memory free routine */
ULONG ulObjAccess; /* Object access level */
ULONG ulNumValues; /* Number of items in values list */
struct list values; /* List of property values */
CRITICAL_SECTION cs; /* Lock for thread safety */
} IPropDataImpl;
/* Internal - Get a property value, assumes lock is held */
static IPropDataItem *IMAPIPROP_GetValue(IPropDataImpl *This, ULONG ulPropTag)
{
struct list *cursor;
LIST_FOR_EACH(cursor, &This->values)
{
LPIPropDataItem current = LIST_ENTRY(cursor, IPropDataItem, entry);
/* Note that propery types don't have to match, just Id's */
if (PROP_ID(current->value->ulPropTag) == PROP_ID(ulPropTag))
return current;
}
return NULL;
}
/* Internal - Add a new property value, assumes lock is held */
static IPropDataItem *IMAPIPROP_AddValue(IPropDataImpl *This,
LPSPropValue lpProp)
{
LPVOID lpMem;
LPIPropDataItem lpNew;
HRESULT hRet;
hRet = This->lpAlloc(sizeof(IPropDataItem), &lpMem);
if (SUCCEEDED(hRet))
{
lpNew = lpMem;
lpNew->ulAccess = IPROP_READWRITE;
/* Allocate the value separately so we can update it easily */
lpMem = NULL;
hRet = This->lpAlloc(sizeof(SPropValue), &lpMem);
if (SUCCEEDED(hRet))
{
lpNew->value = lpMem;
hRet = PropCopyMore(lpNew->value, lpProp, This->lpMore, lpMem);
if (SUCCEEDED(hRet))
{
list_add_tail(&This->values, &lpNew->entry);
This->ulNumValues++;
return lpNew;
}
This->lpFree(lpNew->value);
}
This->lpFree(lpNew);
}
return NULL;
}
/* Internal - Lock an IPropData object */
static inline void IMAPIPROP_Lock(IPropDataImpl *This)
{
EnterCriticalSection(&This->cs);
}
/* Internal - Unlock an IPropData object */
static inline void IMAPIPROP_Unlock(IPropDataImpl *This)
{
LeaveCriticalSection(&This->cs);
}
/* This one seems to be missing from mapidefs.h */
#define CbNewSPropProblemArray(c) \
(offsetof(SPropProblemArray,aProblem)+(c)*sizeof(SPropProblem))
/**************************************************************************
* IMAPIProp_QueryInterface {MAPI32}
*
* Inherited method from the IUnknown Interface.
* See IUnknown_QueryInterface.
*
* NOTES
* This object exposes the following interfaces:
* - IUnknown() : The default interface for all COM-Objects.
* - IMAPIProp() : The default Mapi interface for manipulating object properties.
*/
static inline HRESULT IMAPIProp_fnQueryInterface(LPMAPIPROP iface, REFIID riid, LPVOID *ppvObj)
{
IPropDataImpl *This = (IPropDataImpl*)iface;
TRACE("(%p,%s,%p)\n", This, debugstr_guid(riid), ppvObj);
if (!ppvObj || !riid)
return MAPI_E_INVALID_PARAMETER;
*ppvObj = NULL;
if(IsEqualIID(riid, &IID_IUnknown) ||
IsEqualIID(riid, &IID_IMAPIProp) ||
IsEqualIID(riid, &IID_IMAPIPropData))
{
*ppvObj = This;
IPropData_AddRef(iface);
TRACE("returning %p\n", *ppvObj);
return S_OK;
}
TRACE("returning E_NOINTERFACE\n");
return MAPI_E_INTERFACE_NOT_SUPPORTED;
}
/**************************************************************************
* IMAPIProp_AddRef {MAPI32}
*
* Inherited method from the IUnknown Interface.
* See IUnknown_AddRef.
*/
static inline ULONG IMAPIProp_fnAddRef(LPMAPIPROP iface)
{
IPropDataImpl *This = (IPropDataImpl*)iface;
TRACE("(%p)->(count before=%u)\n", This, This->lRef);
return InterlockedIncrement(&This->lRef);
}
/**************************************************************************
* IMAPIProp_Release {MAPI32}
*
* Inherited method from the IUnknown Interface.
* See IUnknown_Release.
*/
static inline ULONG IMAPIProp_fnRelease(LPMAPIPROP iface)
{
IPropDataImpl *This = (IPropDataImpl*)iface;
LONG lRef;
TRACE("(%p)->(count before=%u)\n", This, This->lRef);
lRef = InterlockedDecrement(&This->lRef);
if (!lRef)
{
TRACE("Destroying IPropData (%p)\n",This);
/* Note: No need to lock, since no other thread is referencing iface */
while (!list_empty(&This->values))
{
struct list *head = list_head(&This->values);
LPIPropDataItem current = LIST_ENTRY(head, IPropDataItem, entry);
list_remove(head);
This->lpFree(current->value);
This->lpFree(current);
}
This->cs.DebugInfo->Spare[0] = 0;
DeleteCriticalSection(&This->cs);
This->lpFree(This);
}
return (ULONG)lRef;
}
/**************************************************************************
* IMAPIProp_GetLastError {MAPI32}
*
* Get information about the last error that occurred in an IMAPIProp object.
*
* PARAMS
* iface [I] IMAPIProp object that experienced the error
* hRes [I] Result of the call that returned an error
* ulFlags [I] 0=return Ascii strings, MAPI_UNICODE=return Unicode strings
* lppError [O] Destination for detailed error information
*
* RETURNS
* Success: S_OK. *lppError contains details about the last error.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid,
* MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails.
*
* NOTES
* - If this function succeeds, the returned information in *lppError must be
* freed using MAPIFreeBuffer() once the caller is finished with it.
* - It is possible for this function to succeed and set *lppError to NULL,
* if there is no further information to report about hRes.
*/
static inline HRESULT
IMAPIProp_fnGetLastError(LPMAPIPROP iface, HRESULT hRes,
ULONG ulFlags, LPMAPIERROR *lppError)
{
TRACE("(%p,0x%08X,0x%08X,%p)\n", iface, hRes, ulFlags, lppError);
if (!lppError || SUCCEEDED(hRes) || (ulFlags & ~MAPI_UNICODE))
return MAPI_E_INVALID_PARAMETER;
*lppError = NULL;
return S_OK;
}
/**************************************************************************
* IMAPIProp_SaveChanges {MAPI32}
*
* Update any changes made to a transactional IMAPIProp object.
*
* PARAMS
* iface [I] IMAPIProp object to update
* ulFlags [I] Flags controlling the update.
*
* RETURNS
* Success: S_OK. Any outstanding changes are committed to the object.
* Failure: An HRESULT error code describing the error.
*/
static inline HRESULT
IMAPIProp_fnSaveChanges(LPMAPIPROP iface, ULONG ulFlags)
{
TRACE("(%p,0x%08X)\n", iface, ulFlags);
/* Since this object is not transacted we do not need to implement this */
/* FIXME: Should we set the access levels to clean? */
return S_OK;
}
/**************************************************************************
* IMAPIProp_GetProps {MAPI32}
*
* Get property values from an IMAPIProp object.
*
* PARAMS
* iface [I] IMAPIProp object to get the property values from
* lpTags [I] Property tage of property values to be retrieved
* ulFlags [I] Return 0=Ascii MAPI_UNICODE=Unicode strings for
* unspecified types
* lpCount [O] Destination for number of properties returned
* lppProps [O] Destination for returned property values
*
* RETURNS
* Success: S_OK. *lppProps and *lpCount are updated.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
* MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails, or
* MAPI_W_ERRORS_RETURNED if not all properties were retrieved
* successfully.
* NOTES
* - If MAPI_W_ERRORS_RETURNED is returned, any properties that could not be
* retrieved from iface are present in lppProps with their type
* changed to PT_ERROR and Id unchanged.
*/
static inline HRESULT
IMAPIProp_fnGetProps(LPMAPIPROP iface, LPSPropTagArray lpTags,
ULONG ulFlags, ULONG *lpCount, LPSPropValue *lppProps)
{
ULONG i;
HRESULT hRet = S_OK;
IPropDataImpl *This = (IPropDataImpl*)iface;
TRACE("(%p,%p,0x%08x,%p,%p) stub\n", iface, lpTags, ulFlags,
lpCount, lppProps);
if (!iface || ulFlags & ~MAPI_UNICODE || !lpTags || *lpCount || !lppProps)
return MAPI_E_INVALID_PARAMETER;
FIXME("semi-stub, flags not supported\n");
*lpCount = lpTags->cValues;
*lppProps = NULL;
if (*lpCount)
{
hRet = MAPIAllocateBuffer(*lpCount * sizeof(SPropValue), (LPVOID*)lppProps);
if (FAILED(hRet))
return hRet;
IMAPIPROP_Lock(This);
for (i = 0; i < lpTags->cValues; i++)
{
HRESULT hRetTmp = E_INVALIDARG;
LPIPropDataItem item;
item = IMAPIPROP_GetValue(This, lpTags->aulPropTag[i]);
if (item)
hRetTmp = PropCopyMore(&(*lppProps)[i], item->value,
This->lpMore, *lppProps);
if (FAILED(hRetTmp))
{
hRet = MAPI_W_ERRORS_RETURNED;
(*lppProps)[i].ulPropTag =
CHANGE_PROP_TYPE(lpTags->aulPropTag[i], PT_ERROR);
}
}
IMAPIPROP_Unlock(This);
}
return hRet;
}
/**************************************************************************
* MAPIProp_GetPropList {MAPI32}
*
* Get the list of property tags for all values in an IMAPIProp object.
*
* PARAMS
* iface [I] IMAPIProp object to get the property tag list from
* ulFlags [I] Return 0=Ascii MAPI_UNICODE=Unicode strings for
* unspecified types
* lppTags [O] Destination for the retrieved property tag list
*
* RETURNS
* Success: S_OK. *lppTags contains the tags for all available properties.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
* MAPI_E_BAD_CHARWIDTH, if Ascii or Unicode strings are requested
* and that type of string is not supported.
*/
static inline HRESULT
IMAPIProp_fnGetPropList(LPMAPIPROP iface, ULONG ulFlags,
LPSPropTagArray *lppTags)
{
IPropDataImpl *This = (IPropDataImpl*)iface;
ULONG i;
HRESULT hRet;
TRACE("(%p,0x%08x,%p) stub\n", iface, ulFlags, lppTags);
if (!iface || ulFlags & ~MAPI_UNICODE || !lppTags)
return MAPI_E_INVALID_PARAMETER;
FIXME("semi-stub, flags not supported\n");
*lppTags = NULL;
IMAPIPROP_Lock(This);
hRet = MAPIAllocateBuffer(CbNewSPropTagArray(This->ulNumValues),
(LPVOID*)lppTags);
if (SUCCEEDED(hRet))
{
struct list *cursor;
i = 0;
LIST_FOR_EACH(cursor, &This->values)
{
LPIPropDataItem current = LIST_ENTRY(cursor, IPropDataItem, entry);
(*lppTags)->aulPropTag[i] = current->value->ulPropTag;
i++;
}
(*lppTags)->cValues = This->ulNumValues;
}
IMAPIPROP_Unlock(This);
return hRet;
}
/**************************************************************************
* IMAPIProp_OpenProperty {MAPI32}
*
* Not documented at this time.
*
* RETURNS
* An HRESULT success/failure code.
*/
static inline HRESULT
IMAPIProp_fnOpenProperty(LPMAPIPROP iface, ULONG ulPropTag, LPCIID iid,
ULONG ulOpts, ULONG ulFlags, LPUNKNOWN *lpUnk)
{
FIXME("(%p,%u,%s,%u,0x%08x,%p) stub\n", iface, ulPropTag,
debugstr_guid(iid), ulOpts, ulFlags, lpUnk);
return MAPI_E_NO_SUPPORT;
}
/**************************************************************************
* IMAPIProp_SetProps {MAPI32}
*
* Add or edit the property values in an IMAPIProp object.
*
* PARAMS
* iface [I] IMAPIProp object to get the property tag list from
* ulValues [I] Number of properties in lpProps
* lpProps [I] Property values to set
* lppProbs [O] Optional destination for any problems that occurred
*
* RETURNS
* Success: S_OK. The properties in lpProps are added to iface if they don't
* exist, or changed to the values in lpProps if they do
* Failure: An HRESULT error code describing the error
*/
static inline HRESULT
IMAPIProp_fnSetProps(LPMAPIPROP iface, ULONG ulValues,
LPSPropValue lpProps, LPSPropProblemArray *lppProbs)
{
IPropDataImpl *This = (IPropDataImpl*)iface;
HRESULT hRet = S_OK;
ULONG i;
TRACE("(%p,%u,%p,%p)\n", iface, ulValues, lpProps, lppProbs);
if (!iface || !lpProps)
return MAPI_E_INVALID_PARAMETER;
for (i = 0; i < ulValues; i++)
{
if (FBadProp(&lpProps[i]) ||
PROP_TYPE(lpProps[i].ulPropTag) == PT_OBJECT ||
PROP_TYPE(lpProps[i].ulPropTag) == PT_NULL)
return MAPI_E_INVALID_PARAMETER;
}
IMAPIPROP_Lock(This);
/* FIXME: Under what circumstances is lpProbs created? */
for (i = 0; i < ulValues; i++)
{
LPIPropDataItem item = IMAPIPROP_GetValue(This, lpProps[i].ulPropTag);
if (item)
{
HRESULT hRetTmp;
LPVOID lpMem = NULL;
/* Found, so update the existing value */
if (item->value->ulPropTag != lpProps[i].ulPropTag)
FIXME("semi-stub, overwriting type (not coercing)\n");
hRetTmp = This->lpAlloc(sizeof(SPropValue), &lpMem);
if (SUCCEEDED(hRetTmp))
{
hRetTmp = PropCopyMore(lpMem, &lpProps[i], This->lpMore, lpMem);
if (SUCCEEDED(hRetTmp))
{
This->lpFree(item->value);
item->value = lpMem;
continue;
}
This->lpFree(lpMem);
}
hRet = hRetTmp;
}
else
{
/* Add new value */
if (!(item = IMAPIPROP_AddValue(This, &lpProps[i])))
hRet = MAPI_E_NOT_ENOUGH_MEMORY;
}
}
IMAPIPROP_Unlock(This);
return hRet;
}
/**************************************************************************
* IMAPIProp_DeleteProps {MAPI32}
*
* Delete one or more property values from an IMAPIProp object.
*
* PARAMS
* iface [I] IMAPIProp object to remove property values from.
* lpTags [I] Collection of property Id's to remove from iface.
* lppProbs [O] Destination for problems encountered, if any.
*
* RETURNS
* Success: S_OK. Any properties in iface matching property Id's in lpTags have
* been deleted. If lppProbs is non-NULL it contains details of any
* errors that occurred.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
* E_ACCESSDENIED, if this object was created using CreateIProp() and
* a subsequent call to IPropData_SetObjAcess() was made specifying
* IPROP_READONLY as the access type.
*
* NOTES
* - lppProbs will not be populated for cases where a property Id is present
* in lpTags but not in iface.
* - lppProbs should be deleted with MAPIFreeBuffer() if returned.
*/
static inline HRESULT
IMAPIProp_fnDeleteProps(LPMAPIPROP iface, LPSPropTagArray lpTags,
LPSPropProblemArray *lppProbs)
{
IPropDataImpl *This = (IPropDataImpl*)iface;
ULONG i, numProbs = 0;
HRESULT hRet = S_OK;
TRACE("(%p,%p,%p)\n", iface, lpTags, lppProbs);
if (!iface || !lpTags)
return MAPI_E_INVALID_PARAMETER;
if (lppProbs)
*lppProbs = NULL;
for (i = 0; i < lpTags->cValues; i++)
{
if (FBadPropTag(lpTags->aulPropTag[i]) ||
PROP_TYPE(lpTags->aulPropTag[i]) == PT_OBJECT ||
PROP_TYPE(lpTags->aulPropTag[i]) == PT_NULL)
return MAPI_E_INVALID_PARAMETER;
}
IMAPIPROP_Lock(This);
if (This->ulObjAccess != IPROP_READWRITE)
{
IMAPIPROP_Unlock(This);
return E_ACCESSDENIED;
}
for (i = 0; i < lpTags->cValues; i++)
{
LPIPropDataItem item = IMAPIPROP_GetValue(This, lpTags->aulPropTag[i]);
if (item)
{
if (item->ulAccess & IPROP_READWRITE)
{
/* Everything hunky-dory, remove the item */
list_remove(&item->entry);
This->lpFree(item->value); /* Also frees value pointers */
This->lpFree(item);
This->ulNumValues--;
}
else if (lppProbs)
{
/* Can't write the value. Create/populate problems array */
if (!*lppProbs)
{
/* Create problems array */
ULONG ulSize = CbNewSPropProblemArray(lpTags->cValues - i);
HRESULT hRetTmp = MAPIAllocateBuffer(ulSize, (LPVOID*)lppProbs);
if (FAILED(hRetTmp))
hRet = hRetTmp;
}
if (*lppProbs)
{
LPSPropProblem lpProb = &(*lppProbs)->aProblem[numProbs];
lpProb->ulIndex = i;
lpProb->ulPropTag = lpTags->aulPropTag[i];
lpProb->scode = E_ACCESSDENIED;
numProbs++;
}
}
}
}
if (lppProbs && *lppProbs)
(*lppProbs)->cProblem = numProbs;
IMAPIPROP_Unlock(This);
return hRet;
}
/**************************************************************************
* IMAPIProp_CopyTo {MAPI32}
*
* Not documented at this time.
*
* RETURNS
* An HRESULT success/failure code.
*/
static inline HRESULT
IMAPIProp_fnCopyTo(LPMAPIPROP iface, ULONG niids, LPCIID lpiidExcl,
LPSPropTagArray lpPropsExcl, ULONG ulParam,
LPMAPIPROGRESS lpIProgress, LPCIID lpIfaceIid, LPVOID lpDstObj,
ULONG ulFlags, LPSPropProblemArray *lppProbs)
{
FIXME("(%p,%u,%p,%p,%x,%p,%s,%p,0x%08X,%p) stub\n", iface, niids,
lpiidExcl, lpPropsExcl, ulParam, lpIProgress,
debugstr_guid(lpIfaceIid), lpDstObj, ulFlags, lppProbs);
return MAPI_E_NO_SUPPORT;
}
/**************************************************************************
* IMAPIProp_CopyProps {MAPI32}
*
* Not documented at this time.
*
* RETURNS
* An HRESULT success/failure code.
*/
static inline HRESULT
IMAPIProp_fnCopyProps(LPMAPIPROP iface, LPSPropTagArray lpInclProps,
ULONG ulParam, LPMAPIPROGRESS lpIProgress, LPCIID lpIface,
LPVOID lpDstObj, ULONG ulFlags,
LPSPropProblemArray *lppProbs)
{
FIXME("(%p,%p,%x,%p,%s,%p,0x%08X,%p) stub\n", iface, lpInclProps,
ulParam, lpIProgress, debugstr_guid(lpIface), lpDstObj, ulFlags,
lppProbs);
return MAPI_E_NO_SUPPORT;
}
/**************************************************************************
* IMAPIProp_GetNamesFromIDs {MAPI32}
*
* Get the names of properties from their identifiers.
*
* PARAMS
* iface [I] IMAPIProp object to operate on
* lppPropTags [I/O] Property identifiers to get the names for, or NULL to
* get all names
* iid [I] Property set identifier, or NULL
* ulFlags [I] MAPI_NO_IDS=Don't return numeric named properties,
* or MAPI_NO_STRINGS=Don't return strings
* lpCount [O] Destination for number of properties returned
* lpppNames [O] Destination for returned names
*
* RETURNS
* Success: S_OK. *lppPropTags and lpppNames contain the returned
* name/identifiers.
* Failure: MAPI_E_NO_SUPPORT, if the object does not support named properties,
* MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails, or
* MAPI_W_ERRORS_RETURNED if not all properties were retrieved
* successfully.
*/
static inline HRESULT
IMAPIProp_fnGetNamesFromIDs(LPMAPIPROP iface, LPSPropTagArray *lppPropTags,
LPGUID iid, ULONG ulFlags, ULONG *lpCount,
LPMAPINAMEID **lpppNames)
{
FIXME("(%p,%p,%s,0x%08X,%p,%p) stub\n", iface, lppPropTags,
debugstr_guid(iid), ulFlags, lpCount, lpppNames);
return MAPI_E_NO_SUPPORT;
}
/**************************************************************************
* IMAPIProp_GetIDsFromNames {MAPI32}
*
* Get property identifiers associated with one or more named properties.
*
* PARAMS
* iface [I] IMAPIProp object to operate on
* ulNames [I] Number of names in lppNames
* lppNames [I] Names to query or create, or NULL to query all names
* ulFlags [I] Pass MAPI_CREATE to create new named properties
* lppPropTags [O] Destination for queried or created property identifiers
*
* RETURNS
* Success: S_OK. *lppPropTags contains the property tags created or requested.
* Failure: MAPI_E_NO_SUPPORT, if the object does not support named properties,
* MAPI_E_TOO_BIG, if the object cannot process the number of
* properties involved.
* MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails, or
* MAPI_W_ERRORS_RETURNED if not all properties were retrieved
* successfully.
*/
static inline HRESULT
IMAPIProp_fnGetIDsFromNames(LPMAPIPROP iface, ULONG ulNames,
LPMAPINAMEID *lppNames, ULONG ulFlags,
LPSPropTagArray *lppPropTags)
{
FIXME("(%p,%d,%p,0x%08X,%p) stub\n",
iface, ulNames, lppNames, ulFlags, lppPropTags);
return MAPI_E_NO_SUPPORT;
}
/**************************************************************************
* IPropData {MAPI32}
*
* A default Mapi interface to provide manipulation of object properties.
*
* DESCRIPTION
* This object provides a default interface suitable in some cases as an
* implementation of the IMAPIProp interface (which has no default
* implementation). In addition to the IMAPIProp() methods inherited, this
* interface allows read/write control over access to the object and its
* individual properties.
*
* To obtain the default implementation of this interface from Mapi, call
* CreateIProp().
*
* METHODS
*/
/**************************************************************************
* IPropData_QueryInterface {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_QueryInterface.
*/
static HRESULT WINAPI
IPropData_fnQueryInterface(LPPROPDATA iface, REFIID riid, LPVOID *ppvObj)
{
return IMAPIProp_fnQueryInterface((LPMAPIPROP)iface, riid, ppvObj);
}
/**************************************************************************
* IPropData_AddRef {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_AddRef.
*/
static ULONG WINAPI
IPropData_fnAddRef(LPPROPDATA iface)
{
return IMAPIProp_fnAddRef((LPMAPIPROP)iface);
}
/**************************************************************************
* IPropData_Release {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_Release.
*/
static ULONG WINAPI
IPropData_fnRelease(LPPROPDATA iface)
{
return IMAPIProp_fnRelease((LPMAPIPROP)iface);
}
/**************************************************************************
* IPropData_GetLastError {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_GetLastError.
*/
static HRESULT WINAPI
IPropData_fnGetLastError(LPPROPDATA iface, HRESULT hRes, ULONG ulFlags,
LPMAPIERROR *lppError)
{
return IMAPIProp_fnGetLastError((LPMAPIPROP)iface, hRes, ulFlags, lppError);
}
/**************************************************************************
* IPropData_SaveChanges {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_SaveChanges.
*/
static HRESULT WINAPI
IPropData_fnSaveChanges(LPPROPDATA iface, ULONG ulFlags)
{
return IMAPIProp_fnSaveChanges((LPMAPIPROP)iface, ulFlags);
}
/**************************************************************************
* IPropData_GetProps {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_GetProps.
*/
static HRESULT WINAPI
IPropData_fnGetProps(LPPROPDATA iface, LPSPropTagArray lpPropTags,
ULONG ulFlags, ULONG *lpCount, LPSPropValue *lppProps)
{
return IMAPIProp_fnGetProps((LPMAPIPROP)iface, lpPropTags, ulFlags,
lpCount, lppProps);
}
/**************************************************************************
* IPropData_GetPropList {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_GetPropList.
*/
static HRESULT WINAPI
IPropData_fnGetPropList(LPPROPDATA iface, ULONG ulFlags,
LPSPropTagArray *lppPropTags)
{
return IMAPIProp_fnGetPropList((LPMAPIPROP)iface, ulFlags, lppPropTags);
}
/**************************************************************************
* IPropData_OpenProperty {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_OpenProperty.
*/
static HRESULT WINAPI
IPropData_fnOpenProperty(LPPROPDATA iface, ULONG ulPropTag, LPCIID iid,
ULONG ulOpts, ULONG ulFlags, LPUNKNOWN *lpUnk)
{
return IMAPIProp_fnOpenProperty((LPMAPIPROP)iface, ulPropTag, iid,
ulOpts, ulFlags, lpUnk);
}
/**************************************************************************
* IPropData_SetProps {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_SetProps.
*/
static HRESULT WINAPI
IPropData_fnSetProps(LPPROPDATA iface, ULONG cValues, LPSPropValue lpProps,
LPSPropProblemArray *lppProbs)
{
return IMAPIProp_fnSetProps((LPMAPIPROP)iface, cValues, lpProps, lppProbs);
}
/**************************************************************************
* IPropData_DeleteProps {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_DeleteProps.
*/
static HRESULT WINAPI
IPropData_fnDeleteProps(LPPROPDATA iface, LPSPropTagArray lpPropTags,
LPSPropProblemArray *lppProbs)
{
return IMAPIProp_fnDeleteProps((LPMAPIPROP)iface, lpPropTags, lppProbs);
}
/**************************************************************************
* IPropData_CopyTo {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_CopyTo.
*/
static HRESULT WINAPI
IPropData_fnCopyTo(LPPROPDATA iface, ULONG ciidExclude, LPCIID lpIid,
LPSPropTagArray lpProps, ULONG ulParam,
LPMAPIPROGRESS lpProgress, LPCIID lpIface, LPVOID lpDst,
ULONG ulFlags, LPSPropProblemArray *lppProbs)
{
return IMAPIProp_fnCopyTo((LPMAPIPROP)iface, ciidExclude, lpIid, lpProps,
ulParam, lpProgress, lpIface, lpDst,
ulFlags, lppProbs);
}
/**************************************************************************
* IPropData_CopyProps {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_CopyProps.
*/
static HRESULT WINAPI
IPropData_fnCopyProps(LPPROPDATA iface, LPSPropTagArray lpProps,
ULONG ulParam, LPMAPIPROGRESS lpProgress, LPCIID lpIface,
LPVOID lpDst, ULONG ulFlags, LPSPropProblemArray *lppProbs)
{
return IMAPIProp_fnCopyProps((LPMAPIPROP)iface, lpProps, ulParam,
lpProgress, lpIface, lpDst, ulFlags, lppProbs);
}
/**************************************************************************
* IPropData_GetNamesFromIDs {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_GetNamesFromIDs.
*/
static HRESULT WINAPI
IPropData_fnGetNamesFromIDs(LPPROPDATA iface, LPSPropTagArray *lppPropTags,
LPGUID iid, ULONG ulFlags, ULONG *lpCount,
LPMAPINAMEID **lpppNames)
{
return IMAPIProp_fnGetNamesFromIDs((LPMAPIPROP)iface, lppPropTags, iid,
ulFlags, lpCount, lpppNames);
}
/**************************************************************************
* IPropData_GetIDsFromNames {MAPI32}
*
* Inherited method from the IMAPIProp Interface.
* See IMAPIProp_GetIDsFromNames.
*/
static HRESULT WINAPI
IPropData_fnGetIDsFromNames(LPPROPDATA iface, ULONG ulNames,
LPMAPINAMEID *lppNames, ULONG ulFlags,
LPSPropTagArray *lppPropTags)
{
return IMAPIProp_fnGetIDsFromNames((LPMAPIPROP)iface, ulNames, lppNames,
ulFlags, lppPropTags);
}
/**************************************************************************
* IPropData_HrSetObjAccess {MAPI32}
*
* Set the access level of an IPropData object.
*
* PARAMS
* iface [I] IPropData object to set the access on
* ulAccess [I] Either IPROP_READONLY or IPROP_READWRITE for read or
* read/write access respectively.
*
* RETURNS
* Success: S_OK. The objects access level is changed.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
*/
static HRESULT WINAPI
IPropData_fnHrSetObjAccess(LPPROPDATA iface, ULONG ulAccess)
{
IPropDataImpl *This = (IPropDataImpl*)iface;
TRACE("(%p,%x)\n", iface, ulAccess);
if (!iface || ulAccess < IPROP_READONLY || ulAccess > IPROP_READWRITE)
return MAPI_E_INVALID_PARAMETER;
IMAPIPROP_Lock(This);
This->ulObjAccess = ulAccess;
IMAPIPROP_Unlock(This);
return S_OK;
}
/* Internal - determine if an access value is bad */
static inline BOOL PROP_IsBadAccess(ULONG ulAccess)
{
switch (ulAccess)
{
case IPROP_READONLY|IPROP_CLEAN:
case IPROP_READONLY|IPROP_DIRTY:
case IPROP_READWRITE|IPROP_CLEAN:
case IPROP_READWRITE|IPROP_DIRTY:
return FALSE;
}
return TRUE;
}
/**************************************************************************
* IPropData_HrSetPropAccess {MAPI32}
*
* Set the access levels for a group of property values in an IPropData object.
*
* PARAMS
* iface [I] IPropData object to set access levels in.
* lpTags [I] List of property Id's to set access for.
* lpAccess [O] Access level for each property in lpTags.
*
* RETURNS
* Success: S_OK. The access level of each property value in lpTags that is
* present in iface is changed.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
*
* NOTES
* - Each access level in lpAccess must contain at least one of IPROP_READONLY
* or IPROP_READWRITE, but not both, and also IPROP_CLEAN or IPROP_DIRTY,
* but not both. No other bits should be set.
* - If a property Id in lpTags is not present in iface, it is ignored.
*/
static HRESULT WINAPI
IPropData_fnHrSetPropAccess(LPPROPDATA iface, LPSPropTagArray lpTags,
ULONG *lpAccess)
{
IPropDataImpl *This = (IPropDataImpl*)iface;
ULONG i;
TRACE("(%p,%p,%p)\n", iface, lpTags, lpAccess);
if (!iface || !lpTags || !lpAccess)
return MAPI_E_INVALID_PARAMETER;
for (i = 0; i < lpTags->cValues; i++)
{
if (FBadPropTag(lpTags->aulPropTag[i]) || PROP_IsBadAccess(lpAccess[i]))
return MAPI_E_INVALID_PARAMETER;
}
IMAPIPROP_Lock(This);
for (i = 0; i < lpTags->cValues; i++)
{
LPIPropDataItem item = IMAPIPROP_GetValue(This, lpTags->aulPropTag[i]);
if (item)
item->ulAccess = lpAccess[i];
}
IMAPIPROP_Unlock(This);
return S_OK;
}
/**************************************************************************
* IPropData_HrGetPropAccess {MAPI32}
*
* Get the access levels for a group of property values in an IPropData object.
*
* PARAMS
* iface [I] IPropData object to get access levels from.
* lppTags [O] Destination for the list of property Id's in iface.
* lppAccess [O] Destination for access level for each property in lppTags.
*
* RETURNS
* Success: S_OK. lppTags and lppAccess contain the property Id's and the
* Access level of each property value in iface.
* Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid, or
* MAPI_E_NOT_ENOUGH_MEMORY if memory allocation fails.
*
* NOTES
* - *lppTags and *lppAccess should be freed with MAPIFreeBuffer() by the caller.
*/
static HRESULT WINAPI
IPropData_fnHrGetPropAccess(LPPROPDATA iface, LPSPropTagArray *lppTags,
ULONG **lppAccess)
{
IPropDataImpl *This = (IPropDataImpl*)iface;
LPVOID lpMem;
HRESULT hRet;
ULONG i;
TRACE("(%p,%p,%p) stub\n", iface, lppTags, lppAccess);
if (!iface || !lppTags || !lppAccess)
return MAPI_E_INVALID_PARAMETER;
*lppTags = NULL;
*lppAccess = NULL;
IMAPIPROP_Lock(This);
hRet = This->lpAlloc(CbNewSPropTagArray(This->ulNumValues), &lpMem);
if (SUCCEEDED(hRet))
{
*lppTags = lpMem;
hRet = This->lpAlloc(This->ulNumValues * sizeof(ULONG), &lpMem);
if (SUCCEEDED(hRet))
{
struct list *cursor;
*lppAccess = lpMem;
(*lppTags)->cValues = This->ulNumValues;
i = 0;
LIST_FOR_EACH(cursor, &This->values)
{
LPIPropDataItem item = LIST_ENTRY(cursor, IPropDataItem, entry);
(*lppTags)->aulPropTag[i] = item->value->ulPropTag;
(*lppAccess)[i] = item->ulAccess;
i++;
}
IMAPIPROP_Unlock(This);
return S_OK;
}
This->lpFree(*lppTags);
*lppTags = 0;
}
IMAPIPROP_Unlock(This);
return MAPI_E_NOT_ENOUGH_MEMORY;
}
/**************************************************************************
* IPropData_HrAddObjProps {MAPI32}
*
* Not documented at this time.
*
* RETURNS
* An HRESULT success/failure code.
*/
static HRESULT WINAPI
IPropData_fnHrAddObjProps(LPPROPDATA iface, LPSPropTagArray lpTags,
LPSPropProblemArray *lppProbs)
{
#if 0
ULONG i;
HRESULT hRet;
LPSPropValue lpValues;
#endif
FIXME("(%p,%p,%p) stub\n", iface, lpTags, lppProbs);
if (!iface || !lpTags)
return MAPI_E_INVALID_PARAMETER;
/* FIXME: Below is the obvious implementation, adding all the properties
* in lpTags to the object. However, it doesn't appear that this
* is what this function does.
*/
return S_OK;
#if 0
if (!lpTags->cValues)
return S_OK;
lpValues = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
lpTags->cValues * sizeof(SPropValue));
if (!lpValues)
return MAPI_E_NOT_ENOUGH_MEMORY;
for (i = 0; i < lpTags->cValues; i++)
lpValues[i].ulPropTag = lpTags->aulPropTag[i];
hRet = IPropData_SetProps(iface, lpTags->cValues, lpValues, lppProbs);
HeapFree(GetProcessHeap(), 0, lpValues);
return hRet;
#endif
}
static const IPropDataVtbl IPropDataImpl_vtbl =
{
IPropData_fnQueryInterface,
IPropData_fnAddRef,
IPropData_fnRelease,
IPropData_fnGetLastError,
IPropData_fnSaveChanges,
IPropData_fnGetProps,
IPropData_fnGetPropList,
IPropData_fnOpenProperty,
IPropData_fnSetProps,
IPropData_fnDeleteProps,
IPropData_fnCopyTo,
IPropData_fnCopyProps,
IPropData_fnGetNamesFromIDs,
IPropData_fnGetIDsFromNames,
IPropData_fnHrSetObjAccess,
IPropData_fnHrSetPropAccess,
IPropData_fnHrGetPropAccess,
IPropData_fnHrAddObjProps
};
/*************************************************************************
* CreateIProp@24 (MAPI32.60)
*
* Create an IPropData object.
*
* PARAMS
* iid [I] GUID of the object to create. Use &IID_IMAPIPropData or NULL
* lpAlloc [I] Memory allocation function. Use MAPIAllocateBuffer()
* lpMore [I] Linked memory allocation function. Use MAPIAllocateMore()
* lpFree [I] Memory free function. Use MAPIFreeBuffer()
* lpReserved [I] Reserved, set to NULL
* lppPropData [O] Destination for created IPropData object
*
* RETURNS
* Success: S_OK. *lppPropData contains the newly created object.
* Failure: MAPI_E_INTERFACE_NOT_SUPPORTED, if iid is non-NULL and not supported,
* MAPI_E_INVALID_PARAMETER, if any parameter is invalid
*/
SCODE WINAPI CreateIProp(LPCIID iid, ALLOCATEBUFFER *lpAlloc,
ALLOCATEMORE *lpMore, FREEBUFFER *lpFree,
LPVOID lpReserved, LPPROPDATA *lppPropData)
{
IPropDataImpl *lpPropData;
SCODE scode;
TRACE("(%s,%p,%p,%p,%p,%p)\n", debugstr_guid(iid), lpAlloc, lpMore, lpFree,
lpReserved, lppPropData);
if (lppPropData)
*lppPropData = NULL;
if (iid && !IsEqualGUID(iid, &IID_IMAPIPropData))
return MAPI_E_INTERFACE_NOT_SUPPORTED;
if (!lpAlloc || !lpMore || !lpFree || lpReserved || !lppPropData)
return MAPI_E_INVALID_PARAMETER;
scode = lpAlloc(sizeof(IPropDataImpl), (LPVOID*)&lpPropData);
if (SUCCEEDED(scode))
{
lpPropData->lpVtbl = &IPropDataImpl_vtbl;
lpPropData->lRef = 1;
lpPropData->lpAlloc = lpAlloc;
lpPropData->lpMore = lpMore;
lpPropData->lpFree = lpFree;
lpPropData->ulObjAccess = IPROP_READWRITE;
lpPropData->ulNumValues = 0;
list_init(&lpPropData->values);
InitializeCriticalSection(&lpPropData->cs);
lpPropData->cs.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": IPropDataImpl.cs");
*lppPropData = (LPPROPDATA)lpPropData;
}
return scode;
}