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
30 #include "wine/unicode.h"
32 #include "wincodecs_private.h"
34 #include "wine/debug.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(wincodecs);
38 typedef struct PropertyBag {
39 IPropertyBag2 IPropertyBag2_iface;
46 static inline PropertyBag *impl_from_IPropertyBag2(IPropertyBag2 *iface)
48 return CONTAINING_RECORD(iface, PropertyBag, IPropertyBag2_iface);
51 static HRESULT WINAPI PropertyBag_QueryInterface(IPropertyBag2 *iface, REFIID iid,
54 PropertyBag *This = impl_from_IPropertyBag2(iface);
55 TRACE("(%p,%s,%p)\n", iface, debugstr_guid(iid), ppv);
57 if (!ppv) return E_INVALIDARG;
59 if (IsEqualIID(&IID_IUnknown, iid) ||
60 IsEqualIID(&IID_IPropertyBag2, iid))
62 *ppv = &This->IPropertyBag2_iface;
70 IUnknown_AddRef((IUnknown*)*ppv);
74 static ULONG WINAPI PropertyBag_AddRef(IPropertyBag2 *iface)
76 PropertyBag *This = impl_from_IPropertyBag2(iface);
77 ULONG ref = InterlockedIncrement(&This->ref);
79 TRACE("(%p) refcount=%u\n", iface, ref);
84 static ULONG WINAPI PropertyBag_Release(IPropertyBag2 *iface)
86 PropertyBag *This = impl_from_IPropertyBag2(iface);
87 ULONG ref = InterlockedDecrement(&This->ref);
89 TRACE("(%p) refcount=%u\n", iface, ref);
94 if (This->properties && This->values)
96 for (i=0; i < This->prop_count; i++)
98 HeapFree(GetProcessHeap(), 0, This->properties[i].pstrName);
99 VariantClear( This->values+i );
103 HeapFree(GetProcessHeap(), 0, This->properties);
104 HeapFree(GetProcessHeap(), 0, This->values);
105 HeapFree(GetProcessHeap(), 0, This);
111 static LONG find_item(PropertyBag *This, LPCOLESTR name)
114 if (!This->properties)
119 for (i=0; i < This->prop_count; i++)
121 if (strcmpW(name, This->properties[i].pstrName) == 0)
128 static HRESULT WINAPI PropertyBag_Read(IPropertyBag2 *iface, ULONG cProperties,
129 PROPBAG2 *pPropBag, IErrorLog *pErrLog, VARIANT *pvarValue, HRESULT *phrError)
133 PropertyBag *This = impl_from_IPropertyBag2(iface);
135 TRACE("(%p,%u,%p,%p,%p,%p)\n", iface, cProperties, pPropBag, pErrLog, pvarValue, phrError);
137 for (i=0; i < cProperties; i++)
140 if (pPropBag[i].dwHint && pPropBag[i].dwHint <= This->prop_count)
141 idx = pPropBag[i].dwHint-1;
143 idx = find_item(This, pPropBag[i].pstrName);
147 VariantInit(pvarValue+i);
148 res = VariantCopy(pvarValue+i, This->values+idx);
163 static HRESULT WINAPI PropertyBag_Write(IPropertyBag2 *iface, ULONG cProperties,
164 PROPBAG2 *pPropBag, VARIANT *pvarValue)
168 PropertyBag *This = impl_from_IPropertyBag2(iface);
170 TRACE("(%p,%u,%p,%p)\n", iface, cProperties, pPropBag, pvarValue);
172 for (i=0; i < cProperties; i++)
175 if (pPropBag[i].dwHint && pPropBag[i].dwHint <= This->prop_count)
176 idx = pPropBag[i].dwHint-1;
178 idx = find_item(This, pPropBag[i].pstrName);
182 if (This->properties[idx].vt != V_VT(pvarValue+i))
183 return WINCODEC_ERR_PROPERTYUNEXPECTEDTYPE;
184 res = VariantCopy(This->values+idx, pvarValue+i);
190 if (pPropBag[i].pstrName)
191 FIXME("Application tried to set the unknown option %s.\n",
192 debugstr_w(pPropBag[i].pstrName));
194 /* FIXME: Function is not atomar on error, but MSDN does not say anything about it
195 * (no reset of items between 0 and i-1) */
203 static HRESULT WINAPI PropertyBag_CountProperties(IPropertyBag2 *iface, ULONG *pcProperties)
205 PropertyBag *This = impl_from_IPropertyBag2(iface);
207 TRACE("(%p,%p)\n", iface, pcProperties);
212 *pcProperties = This->prop_count;
217 static HRESULT copy_propbag2(PROPBAG2 *dest, PROPBAG2 *src, BOOL useCoAlloc)
219 dest->cfType = src->cfType;
220 dest->clsid = src->clsid;
221 dest->dwHint = src->dwHint;
222 dest->dwType = src->dwType;
225 dest->pstrName = CoTaskMemAlloc((strlenW(src->pstrName)+1) * sizeof(WCHAR));
227 dest->pstrName = HeapAlloc(GetProcessHeap(), 0, (strlenW(src->pstrName)+1) * sizeof(WCHAR));
230 return E_OUTOFMEMORY;
232 strcpyW(dest->pstrName, src->pstrName);
237 static HRESULT WINAPI PropertyBag_GetPropertyInfo(IPropertyBag2 *iface, ULONG iProperty,
238 ULONG cProperties, PROPBAG2 *pPropBag, ULONG *pcProperties)
242 PropertyBag *This = impl_from_IPropertyBag2(iface);
244 TRACE("(%p,%u,%u,%p,%p)\n", iface, iProperty, cProperties, pPropBag, pcProperties);
246 if (iProperty >= This->prop_count && iProperty > 0)
247 return WINCODEC_ERR_VALUEOUTOFRANGE;
248 if (iProperty+cProperties > This->prop_count )
249 return WINCODEC_ERR_VALUEOUTOFRANGE;
251 *pcProperties = max(cProperties, This->prop_count-iProperty);
253 for (i=0; i < *pcProperties; i++)
255 res = copy_propbag2(pPropBag+i, This->properties+iProperty+i, TRUE);
259 CoTaskMemFree( pPropBag[--i].pstrName );
268 static HRESULT WINAPI PropertyBag_LoadObject(IPropertyBag2 *iface, LPCOLESTR pstrName,
269 DWORD dwHint, IUnknown *pUnkObject, IErrorLog *pErrLog)
271 FIXME("(%p,%s,%u,%p,%p): stub\n", iface, debugstr_w(pstrName), dwHint, pUnkObject, pErrLog);
275 static const IPropertyBag2Vtbl PropertyBag_Vtbl = {
276 PropertyBag_QueryInterface,
281 PropertyBag_CountProperties,
282 PropertyBag_GetPropertyInfo,
283 PropertyBag_LoadObject
286 HRESULT CreatePropertyBag2(PROPBAG2 *options, UINT count,
287 IPropertyBag2 **ppPropertyBag2)
293 This = HeapAlloc(GetProcessHeap(), 0, sizeof(PropertyBag));
294 if (!This) return E_OUTOFMEMORY;
296 This->IPropertyBag2_iface.lpVtbl = &PropertyBag_Vtbl;
298 This->prop_count = count;
302 This->properties = NULL;
307 This->properties = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(PROPBAG2)*count);
308 This->values = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(VARIANT)*count);
310 if (!This->properties || !This->values)
313 for (i=0; i < count; i++)
315 res = copy_propbag2(This->properties+i, options+i, FALSE);
318 This->properties[i].dwHint = i+1; /* 0 means unset, so we start with 1 */
324 PropertyBag_Release(&This->IPropertyBag2_iface);
325 *ppPropertyBag2 = NULL;
328 *ppPropertyBag2 = &This->IPropertyBag2_iface;