4 * Copyright 2000 Patrik Stridvall, Juergen Schmied
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 * The errorinfo is a per-thread object. The reference is stored in the
23 * TEB at offset 0xf80.
37 #include "wine/unicode.h"
38 #include "compobj_private.h"
40 #include "wine/debug.h"
42 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
44 /* this code is from SysAllocStringLen (ole2disp.c in oleaut32) */
45 static BSTR WINAPI
ERRORINFO_SysAllocString(const OLECHAR
* in
)
55 * Find the lenth of the buffer passed-in in bytes.
58 bufferSize
= len
* sizeof (WCHAR
);
61 * Allocate a new buffer to hold the string.
62 * don't forget to keep an empty spot at the beginning of the
63 * buffer for the character count and an extra character at the
66 newBuffer
= (DWORD
*)HeapAlloc(GetProcessHeap(),
68 bufferSize
+ sizeof(WCHAR
) + sizeof(DWORD
));
71 * If the memory allocation failed, return a null pointer.
77 * Copy the length of the string in the placeholder.
79 *newBuffer
= bufferSize
;
82 * Skip the byte count.
87 * Copy the information in the buffer.
88 * Since it is valid to pass a NULL pointer here, we'll initialize the
89 * buffer to nul if it is the case.
92 memcpy(newBuffer
, in
, bufferSize
);
94 memset(newBuffer
, 0, bufferSize
);
97 * Make sure that there is a nul character at the end of the
100 stringBuffer
= (WCHAR
*)newBuffer
;
101 stringBuffer
[len
] = 0;
103 return (LPWSTR
)stringBuffer
;
106 /* this code is from SysFreeString (ole2disp.c in oleaut32)*/
107 static VOID WINAPI
ERRORINFO_SysFreeString(BSTR in
)
109 DWORD
* bufferPointer
;
111 /* NULL is a valid parameter */
115 * We have to be careful when we free a BSTR pointer, it points to
116 * the beginning of the string but it skips the byte count contained
119 bufferPointer
= (DWORD
*)in
;
124 * Free the memory from it's "real" origin.
126 HeapFree(GetProcessHeap(), 0, bufferPointer
);
130 typedef struct ErrorInfoImpl
132 IErrorInfoVtbl
*lpvtei
;
133 ICreateErrorInfoVtbl
*lpvtcei
;
134 ISupportErrorInfoVtbl
*lpvtsei
;
139 BSTR bstrDescription
;
141 DWORD m_dwHelpContext
;
144 static IErrorInfoVtbl IErrorInfoImpl_VTable
;
145 static ICreateErrorInfoVtbl ICreateErrorInfoImpl_VTable
;
146 static ISupportErrorInfoVtbl ISupportErrorInfoImpl_VTable
;
149 converts a objectpointer to This
151 #define _IErrorInfo_Offset ((int)(&(((ErrorInfoImpl*)0)->lpvtei)))
152 #define _ICOM_THIS_From_IErrorInfo(class, name) class* This = (class*)(((char*)name)-_IErrorInfo_Offset)
154 #define _ICreateErrorInfo_Offset ((int)(&(((ErrorInfoImpl*)0)->lpvtcei)))
155 #define _ICOM_THIS_From_ICreateErrorInfo(class, name) class* This = (class*)(((char*)name)-_ICreateErrorInfo_Offset)
157 #define _ISupportErrorInfo_Offset ((int)(&(((ErrorInfoImpl*)0)->lpvtsei)))
158 #define _ICOM_THIS_From_ISupportErrorInfo(class, name) class* This = (class*)(((char*)name)-_ISupportErrorInfo_Offset)
161 converts This to a objectpointer
163 #define _IErrorInfo_(This) (IErrorInfo*)&(This->lpvtei)
164 #define _ICreateErrorInfo_(This) (ICreateErrorInfo*)&(This->lpvtcei)
165 #define _ISupportErrorInfo_(This) (ISupportErrorInfo*)&(This->lpvtsei)
167 IErrorInfo
* IErrorInfoImpl_Constructor()
169 ErrorInfoImpl
* ei
= HeapAlloc(GetProcessHeap(), 0, sizeof(ErrorInfoImpl
));
172 ei
->lpvtei
= &IErrorInfoImpl_VTable
;
173 ei
->lpvtcei
= &ICreateErrorInfoImpl_VTable
;
174 ei
->lpvtsei
= &ISupportErrorInfoImpl_VTable
;
176 ei
->bstrSource
= NULL
;
177 ei
->bstrDescription
= NULL
;
178 ei
->bstrHelpFile
= NULL
;
179 ei
->m_dwHelpContext
= 0;
181 return (IErrorInfo
*)ei
;
185 static HRESULT WINAPI
IErrorInfoImpl_QueryInterface(
190 _ICOM_THIS_From_IErrorInfo(ErrorInfoImpl
, iface
);
191 TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This
,debugstr_guid(riid
),ppvoid
);
195 if(IsEqualIID(riid
, &IID_IErrorInfo
))
197 *ppvoid
= _IErrorInfo_(This
);
199 else if(IsEqualIID(riid
, &IID_ICreateErrorInfo
))
201 *ppvoid
= _ICreateErrorInfo_(This
);
203 else if(IsEqualIID(riid
, &IID_ISupportErrorInfo
))
205 *ppvoid
= _ISupportErrorInfo_(This
);
210 IUnknown_AddRef( (IUnknown
*)*ppvoid
);
211 TRACE("-- Interface: (%p)->(%p)\n",ppvoid
,*ppvoid
);
214 TRACE("-- Interface: E_NOINTERFACE\n");
215 return E_NOINTERFACE
;
218 static ULONG WINAPI
IErrorInfoImpl_AddRef(
221 _ICOM_THIS_From_IErrorInfo(ErrorInfoImpl
, iface
);
222 TRACE("(%p)->(count=%lu)\n",This
,This
->ref
);
223 return InterlockedIncrement(&This
->ref
);
226 static ULONG WINAPI
IErrorInfoImpl_Release(
229 _ICOM_THIS_From_IErrorInfo(ErrorInfoImpl
, iface
);
230 ULONG ref
= InterlockedDecrement(&This
->ref
);
232 TRACE("(%p)->(count=%lu)\n",This
,ref
+1);
236 TRACE("-- destroying IErrorInfo(%p)\n",This
);
237 HeapFree(GetProcessHeap(),0,This
);
243 static HRESULT WINAPI
IErrorInfoImpl_GetGUID(
247 _ICOM_THIS_From_IErrorInfo(ErrorInfoImpl
, iface
);
248 TRACE("(%p)->(count=%lu)\n",This
,This
->ref
);
249 if(!pGUID
)return E_INVALIDARG
;
250 memcpy(pGUID
, &This
->m_Guid
, sizeof(GUID
));
254 static HRESULT WINAPI
IErrorInfoImpl_GetSource(
258 _ICOM_THIS_From_IErrorInfo(ErrorInfoImpl
, iface
);
259 TRACE("(%p)->(pBstrSource=%p)\n",This
,pBstrSource
);
260 if (pBstrSource
== NULL
)
262 *pBstrSource
= ERRORINFO_SysAllocString(This
->bstrSource
);
266 static HRESULT WINAPI
IErrorInfoImpl_GetDescription(
268 BSTR
*pBstrDescription
)
270 _ICOM_THIS_From_IErrorInfo(ErrorInfoImpl
, iface
);
272 TRACE("(%p)->(pBstrDescription=%p)\n",This
,pBstrDescription
);
273 if (pBstrDescription
== NULL
)
275 *pBstrDescription
= ERRORINFO_SysAllocString(This
->bstrDescription
);
280 static HRESULT WINAPI
IErrorInfoImpl_GetHelpFile(
284 _ICOM_THIS_From_IErrorInfo(ErrorInfoImpl
, iface
);
286 TRACE("(%p)->(pBstrHelpFile=%p)\n",This
, pBstrHelpFile
);
287 if (pBstrHelpFile
== NULL
)
289 *pBstrHelpFile
= ERRORINFO_SysAllocString(This
->bstrHelpFile
);
294 static HRESULT WINAPI
IErrorInfoImpl_GetHelpContext(
296 DWORD
*pdwHelpContext
)
298 _ICOM_THIS_From_IErrorInfo(ErrorInfoImpl
, iface
);
299 TRACE("(%p)->(pdwHelpContext=%p)\n",This
, pdwHelpContext
);
300 if (pdwHelpContext
== NULL
)
302 *pdwHelpContext
= This
->m_dwHelpContext
;
307 static IErrorInfoVtbl IErrorInfoImpl_VTable
=
309 IErrorInfoImpl_QueryInterface
,
310 IErrorInfoImpl_AddRef
,
311 IErrorInfoImpl_Release
,
313 IErrorInfoImpl_GetGUID
,
314 IErrorInfoImpl_GetSource
,
315 IErrorInfoImpl_GetDescription
,
316 IErrorInfoImpl_GetHelpFile
,
317 IErrorInfoImpl_GetHelpContext
321 static HRESULT WINAPI
ICreateErrorInfoImpl_QueryInterface(
322 ICreateErrorInfo
* iface
,
326 _ICOM_THIS_From_ICreateErrorInfo(ErrorInfoImpl
, iface
);
327 TRACE("(%p)\n", This
);
328 return IErrorInfo_QueryInterface(_IErrorInfo_(This
), riid
, ppvoid
);
331 static ULONG WINAPI
ICreateErrorInfoImpl_AddRef(
332 ICreateErrorInfo
* iface
)
334 _ICOM_THIS_From_ICreateErrorInfo(ErrorInfoImpl
, iface
);
335 TRACE("(%p)\n", This
);
336 return IErrorInfo_AddRef(_IErrorInfo_(This
));
339 static ULONG WINAPI
ICreateErrorInfoImpl_Release(
340 ICreateErrorInfo
* iface
)
342 _ICOM_THIS_From_ICreateErrorInfo(ErrorInfoImpl
, iface
);
343 TRACE("(%p)\n", This
);
344 return IErrorInfo_Release(_IErrorInfo_(This
));
348 static HRESULT WINAPI
ICreateErrorInfoImpl_SetGUID(
349 ICreateErrorInfo
* iface
,
352 _ICOM_THIS_From_ICreateErrorInfo(ErrorInfoImpl
, iface
);
353 TRACE("(%p)->(%s)\n", This
, debugstr_guid(rguid
));
354 memcpy(&This
->m_Guid
, rguid
, sizeof(GUID
));
358 static HRESULT WINAPI
ICreateErrorInfoImpl_SetSource(
359 ICreateErrorInfo
* iface
,
362 _ICOM_THIS_From_ICreateErrorInfo(ErrorInfoImpl
, iface
);
363 TRACE("(%p): %s\n",This
, debugstr_w(szSource
));
364 if (This
->bstrSource
!= NULL
)
365 ERRORINFO_SysFreeString(This
->bstrSource
);
366 This
->bstrSource
= ERRORINFO_SysAllocString(szSource
);
371 static HRESULT WINAPI
ICreateErrorInfoImpl_SetDescription(
372 ICreateErrorInfo
* iface
,
373 LPOLESTR szDescription
)
375 _ICOM_THIS_From_ICreateErrorInfo(ErrorInfoImpl
, iface
);
376 TRACE("(%p): %s\n",This
, debugstr_w(szDescription
));
377 if (This
->bstrDescription
!= NULL
)
378 ERRORINFO_SysFreeString(This
->bstrDescription
);
379 This
->bstrDescription
= ERRORINFO_SysAllocString(szDescription
);
384 static HRESULT WINAPI
ICreateErrorInfoImpl_SetHelpFile(
385 ICreateErrorInfo
* iface
,
388 _ICOM_THIS_From_ICreateErrorInfo(ErrorInfoImpl
, iface
);
389 TRACE("(%p,%s)\n",This
,debugstr_w(szHelpFile
));
390 if (This
->bstrHelpFile
!= NULL
)
391 ERRORINFO_SysFreeString(This
->bstrHelpFile
);
392 This
->bstrHelpFile
= ERRORINFO_SysAllocString(szHelpFile
);
396 static HRESULT WINAPI
ICreateErrorInfoImpl_SetHelpContext(
397 ICreateErrorInfo
* iface
,
400 _ICOM_THIS_From_ICreateErrorInfo(ErrorInfoImpl
, iface
);
401 TRACE("(%p,%ld)\n",This
,dwHelpContext
);
402 This
->m_dwHelpContext
= dwHelpContext
;
406 static ICreateErrorInfoVtbl ICreateErrorInfoImpl_VTable
=
408 ICreateErrorInfoImpl_QueryInterface
,
409 ICreateErrorInfoImpl_AddRef
,
410 ICreateErrorInfoImpl_Release
,
412 ICreateErrorInfoImpl_SetGUID
,
413 ICreateErrorInfoImpl_SetSource
,
414 ICreateErrorInfoImpl_SetDescription
,
415 ICreateErrorInfoImpl_SetHelpFile
,
416 ICreateErrorInfoImpl_SetHelpContext
419 static HRESULT WINAPI
ISupportErrorInfoImpl_QueryInterface(
420 ISupportErrorInfo
* iface
,
424 _ICOM_THIS_From_ISupportErrorInfo(ErrorInfoImpl
, iface
);
425 TRACE("(%p)\n", This
);
427 return IErrorInfo_QueryInterface(_IErrorInfo_(This
), riid
, ppvoid
);
430 static ULONG WINAPI
ISupportErrorInfoImpl_AddRef(
431 ISupportErrorInfo
* iface
)
433 _ICOM_THIS_From_ISupportErrorInfo(ErrorInfoImpl
, iface
);
434 TRACE("(%p)\n", This
);
435 return IErrorInfo_AddRef(_IErrorInfo_(This
));
438 static ULONG WINAPI
ISupportErrorInfoImpl_Release(
439 ISupportErrorInfo
* iface
)
441 _ICOM_THIS_From_ISupportErrorInfo(ErrorInfoImpl
, iface
);
442 TRACE("(%p)\n", This
);
443 return IErrorInfo_Release(_IErrorInfo_(This
));
447 static HRESULT WINAPI
ISupportErrorInfoImpl_InterfaceSupportsErrorInfo(
448 ISupportErrorInfo
* iface
,
451 _ICOM_THIS_From_ISupportErrorInfo(ErrorInfoImpl
, iface
);
452 TRACE("(%p)->(%s)\n", This
, debugstr_guid(riid
));
453 return (IsEqualIID(riid
, &This
->m_Guid
)) ? S_OK
: S_FALSE
;
456 static ISupportErrorInfoVtbl ISupportErrorInfoImpl_VTable
=
458 ISupportErrorInfoImpl_QueryInterface
,
459 ISupportErrorInfoImpl_AddRef
,
460 ISupportErrorInfoImpl_Release
,
463 ISupportErrorInfoImpl_InterfaceSupportsErrorInfo
465 /***********************************************************************
466 * CreateErrorInfo (OLE32.@)
468 HRESULT WINAPI
CreateErrorInfo(ICreateErrorInfo
**pperrinfo
)
472 TRACE("(%p): stub:\n", pperrinfo
);
473 if(! pperrinfo
) return E_INVALIDARG
;
474 if(!(pei
=IErrorInfoImpl_Constructor()))return E_OUTOFMEMORY
;
476 res
= IErrorInfo_QueryInterface(pei
, &IID_ICreateErrorInfo
, (LPVOID
*)pperrinfo
);
477 IErrorInfo_Release(pei
);
481 /***********************************************************************
482 * GetErrorInfo (OLE32.@)
484 HRESULT WINAPI
GetErrorInfo(ULONG dwReserved
, IErrorInfo
**pperrinfo
)
486 TRACE("(%ld, %p, %p)\n", dwReserved
, pperrinfo
, COM_CurrentInfo()->errorinfo
);
488 if(!pperrinfo
) return E_INVALIDARG
;
490 if (!COM_CurrentInfo()->errorinfo
)
496 *pperrinfo
= COM_CurrentInfo()->errorinfo
;
498 /* clear thread error state */
499 COM_CurrentInfo()->errorinfo
= NULL
;
503 /***********************************************************************
504 * SetErrorInfo (OLE32.@)
506 HRESULT WINAPI
SetErrorInfo(ULONG dwReserved
, IErrorInfo
*perrinfo
)
510 TRACE("(%ld, %p)\n", dwReserved
, perrinfo
);
512 /* release old errorinfo */
513 pei
= COM_CurrentInfo()->errorinfo
;
514 if (pei
) IErrorInfo_Release(pei
);
516 /* set to new value */
517 COM_CurrentInfo()->errorinfo
= perrinfo
;
518 if (perrinfo
) IErrorInfo_AddRef(perrinfo
);