2 * Copyright 2009 Vincent Povirk for CodeWeavers
3 * Copyright 2013 Ludger Sprenker
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2.1 of the License, or (at your option) any later version.
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
29 #include "wine/unicode.h"
31 #include "wincodecs_private.h"
33 #include "wine/debug.h"
35 WINE_DEFAULT_DEBUG_CHANNEL(wincodecs
);
37 typedef struct PropertyBag
{
38 IPropertyBag2 IPropertyBag2_iface
;
45 static inline PropertyBag
*impl_from_IPropertyBag2(IPropertyBag2
*iface
)
47 return CONTAINING_RECORD(iface
, PropertyBag
, IPropertyBag2_iface
);
50 static HRESULT WINAPI
PropertyBag_QueryInterface(IPropertyBag2
*iface
, REFIID iid
,
53 PropertyBag
*This
= impl_from_IPropertyBag2(iface
);
54 TRACE("(%p,%s,%p)\n", iface
, debugstr_guid(iid
), ppv
);
56 if (!ppv
) return E_INVALIDARG
;
58 if (IsEqualIID(&IID_IUnknown
, iid
) ||
59 IsEqualIID(&IID_IPropertyBag2
, iid
))
61 *ppv
= &This
->IPropertyBag2_iface
;
69 IUnknown_AddRef((IUnknown
*)*ppv
);
73 static ULONG WINAPI
PropertyBag_AddRef(IPropertyBag2
*iface
)
75 PropertyBag
*This
= impl_from_IPropertyBag2(iface
);
76 ULONG ref
= InterlockedIncrement(&This
->ref
);
78 TRACE("(%p) refcount=%u\n", iface
, ref
);
83 static ULONG WINAPI
PropertyBag_Release(IPropertyBag2
*iface
)
85 PropertyBag
*This
= impl_from_IPropertyBag2(iface
);
86 ULONG ref
= InterlockedDecrement(&This
->ref
);
88 TRACE("(%p) refcount=%u\n", iface
, ref
);
93 if (This
->properties
&& This
->values
)
95 for (i
=0; i
< This
->prop_count
; i
++)
97 CoTaskMemFree(This
->properties
[i
].pstrName
);
98 VariantClear( This
->values
+i
);
102 HeapFree(GetProcessHeap(), 0, This
->properties
);
103 HeapFree(GetProcessHeap(), 0, This
->values
);
104 HeapFree(GetProcessHeap(), 0, This
);
110 static LONG
find_item(PropertyBag
*This
, LPCOLESTR name
)
113 if (!This
->properties
)
118 for (i
=0; i
< This
->prop_count
; i
++)
120 if (strcmpW(name
, This
->properties
[i
].pstrName
) == 0)
127 static HRESULT WINAPI
PropertyBag_Read(IPropertyBag2
*iface
, ULONG cProperties
,
128 PROPBAG2
*pPropBag
, IErrorLog
*pErrLog
, VARIANT
*pvarValue
, HRESULT
*phrError
)
132 PropertyBag
*This
= impl_from_IPropertyBag2(iface
);
134 TRACE("(%p,%u,%p,%p,%p,%p)\n", iface
, cProperties
, pPropBag
, pErrLog
, pvarValue
, phrError
);
136 for (i
=0; i
< cProperties
; i
++)
139 if (pPropBag
[i
].dwHint
&& pPropBag
[i
].dwHint
<= This
->prop_count
)
140 idx
= pPropBag
[i
].dwHint
-1;
142 idx
= find_item(This
, pPropBag
[i
].pstrName
);
146 VariantInit(pvarValue
+i
);
147 res
= VariantCopy(pvarValue
+i
, This
->values
+idx
);
162 static HRESULT WINAPI
PropertyBag_Write(IPropertyBag2
*iface
, ULONG cProperties
,
163 PROPBAG2
*pPropBag
, VARIANT
*pvarValue
)
167 PropertyBag
*This
= impl_from_IPropertyBag2(iface
);
169 TRACE("(%p,%u,%p,%p)\n", iface
, cProperties
, pPropBag
, pvarValue
);
171 for (i
=0; i
< cProperties
; i
++)
174 if (pPropBag
[i
].dwHint
&& pPropBag
[i
].dwHint
<= This
->prop_count
)
175 idx
= pPropBag
[i
].dwHint
-1;
177 idx
= find_item(This
, pPropBag
[i
].pstrName
);
181 if (This
->properties
[idx
].vt
!= V_VT(pvarValue
+i
))
182 return WINCODEC_ERR_PROPERTYUNEXPECTEDTYPE
;
183 res
= VariantCopy(This
->values
+idx
, pvarValue
+i
);
189 if (pPropBag
[i
].pstrName
)
190 FIXME("Application tried to set the unknown option %s.\n",
191 debugstr_w(pPropBag
[i
].pstrName
));
193 /* FIXME: Function is not atomar on error, but MSDN does not say anything about it
194 * (no reset of items between 0 and i-1) */
202 static HRESULT WINAPI
PropertyBag_CountProperties(IPropertyBag2
*iface
, ULONG
*pcProperties
)
204 PropertyBag
*This
= impl_from_IPropertyBag2(iface
);
206 TRACE("(%p,%p)\n", iface
, pcProperties
);
211 *pcProperties
= This
->prop_count
;
216 static HRESULT
copy_propbag2(PROPBAG2
*dest
, const PROPBAG2
*src
)
218 dest
->cfType
= src
->cfType
;
219 dest
->clsid
= src
->clsid
;
220 dest
->dwHint
= src
->dwHint
;
221 dest
->dwType
= src
->dwType
;
223 dest
->pstrName
= CoTaskMemAlloc((strlenW(src
->pstrName
)+1) * sizeof(WCHAR
));
225 return E_OUTOFMEMORY
;
227 strcpyW(dest
->pstrName
, src
->pstrName
);
232 static HRESULT WINAPI
PropertyBag_GetPropertyInfo(IPropertyBag2
*iface
, ULONG iProperty
,
233 ULONG cProperties
, PROPBAG2
*pPropBag
, ULONG
*pcProperties
)
237 PropertyBag
*This
= impl_from_IPropertyBag2(iface
);
239 TRACE("(%p,%u,%u,%p,%p)\n", iface
, iProperty
, cProperties
, pPropBag
, pcProperties
);
241 if (iProperty
>= This
->prop_count
&& iProperty
> 0)
242 return WINCODEC_ERR_VALUEOUTOFRANGE
;
243 if (iProperty
+cProperties
> This
->prop_count
)
244 return WINCODEC_ERR_VALUEOUTOFRANGE
;
246 *pcProperties
= min(cProperties
, This
->prop_count
-iProperty
);
248 for (i
=0; i
< *pcProperties
; i
++)
250 res
= copy_propbag2(pPropBag
+i
, This
->properties
+iProperty
+i
);
254 CoTaskMemFree( pPropBag
[--i
].pstrName
);
263 static HRESULT WINAPI
PropertyBag_LoadObject(IPropertyBag2
*iface
, LPCOLESTR pstrName
,
264 DWORD dwHint
, IUnknown
*pUnkObject
, IErrorLog
*pErrLog
)
266 FIXME("(%p,%s,%u,%p,%p): stub\n", iface
, debugstr_w(pstrName
), dwHint
, pUnkObject
, pErrLog
);
270 static const IPropertyBag2Vtbl PropertyBag_Vtbl
= {
271 PropertyBag_QueryInterface
,
276 PropertyBag_CountProperties
,
277 PropertyBag_GetPropertyInfo
,
278 PropertyBag_LoadObject
281 HRESULT
CreatePropertyBag2(const PROPBAG2
*options
, UINT count
,
282 IPropertyBag2
**ppPropertyBag2
)
288 This
= HeapAlloc(GetProcessHeap(), 0, sizeof(PropertyBag
));
289 if (!This
) return E_OUTOFMEMORY
;
291 This
->IPropertyBag2_iface
.lpVtbl
= &PropertyBag_Vtbl
;
293 This
->prop_count
= count
;
297 This
->properties
= NULL
;
302 This
->properties
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(PROPBAG2
)*count
);
303 This
->values
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(VARIANT
)*count
);
305 if (!This
->properties
|| !This
->values
)
308 for (i
=0; i
< count
; i
++)
310 res
= copy_propbag2(This
->properties
+i
, options
+i
);
313 This
->properties
[i
].dwHint
= i
+1; /* 0 means unset, so we start with 1 */
319 PropertyBag_Release(&This
->IPropertyBag2_iface
);
320 *ppPropertyBag2
= NULL
;
323 *ppPropertyBag2
= &This
->IPropertyBag2_iface
;