4 * Copyright 2002,2005 Marcus Meissner
6 * The olerelay debug channel allows you to see calls marshalled by
7 * the typelib marshaller. It is not a generic COM relaying system.
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
25 #include "wine/port.h"
35 #define NONAMELESSUNION
36 #define NONAMELESSSTRUCT
46 #include "propidl.h" /* for LPSAFEARRAY_User* functions */
49 #include "wine/debug.h"
50 #include "wine/exception.h"
52 static const WCHAR IDispatchW
[] = { 'I','D','i','s','p','a','t','c','h',0};
54 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
55 WINE_DECLARE_DEBUG_CHANNEL(olerelay
);
57 static HRESULT
TMarshalDispatchChannel_Create(
58 IRpcChannelBuffer
*pDelegateChannel
, REFIID tmarshal_riid
,
59 IRpcChannelBuffer
**ppChannel
);
61 typedef struct _marshal_state
{
67 /* used in the olerelay code to avoid having the L"" stuff added by debugstr_w */
68 static char *relaystr(WCHAR
*in
) {
69 char *tmp
= (char *)debugstr_w(in
);
71 tmp
[strlen(tmp
)-1] = '\0';
76 xbuf_resize(marshal_state
*buf
, DWORD newsize
)
78 if(buf
->size
>= newsize
)
83 buf
->base
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, buf
->base
, newsize
);
89 buf
->base
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, newsize
);
98 xbuf_add(marshal_state
*buf
, const BYTE
*stuff
, DWORD size
)
102 if(buf
->size
- buf
->curoff
< size
)
104 hr
= xbuf_resize(buf
, buf
->size
+ size
+ 100);
105 if(FAILED(hr
)) return hr
;
107 memcpy(buf
->base
+buf
->curoff
,stuff
,size
);
113 xbuf_get(marshal_state
*buf
, LPBYTE stuff
, DWORD size
) {
114 if (buf
->size
< buf
->curoff
+size
) return E_FAIL
;
115 memcpy(stuff
,buf
->base
+buf
->curoff
,size
);
121 xbuf_skip(marshal_state
*buf
, DWORD size
) {
122 if (buf
->size
< buf
->curoff
+size
) return E_FAIL
;
128 _unmarshal_interface(marshal_state
*buf
, REFIID riid
, LPUNKNOWN
*pUnk
) {
130 ULARGE_INTEGER newpos
;
131 LARGE_INTEGER seekto
;
136 TRACE("...%s...\n",debugstr_guid(riid
));
139 hres
= xbuf_get(buf
,(LPBYTE
)&xsize
,sizeof(xsize
));
141 ERR("xbuf_get failed\n");
145 if (xsize
== 0) return S_OK
;
147 hres
= CreateStreamOnHGlobal(0,TRUE
,&pStm
);
149 ERR("Stream create failed %x\n",hres
);
153 hres
= IStream_Write(pStm
,buf
->base
+buf
->curoff
,xsize
,&res
);
155 ERR("stream write %x\n",hres
);
156 IStream_Release(pStm
);
160 memset(&seekto
,0,sizeof(seekto
));
161 hres
= IStream_Seek(pStm
,seekto
,SEEK_SET
,&newpos
);
163 ERR("Failed Seek %x\n",hres
);
164 IStream_Release(pStm
);
168 hres
= CoUnmarshalInterface(pStm
,riid
,(LPVOID
*)pUnk
);
170 ERR("Unmarshalling interface %s failed with %x\n",debugstr_guid(riid
),hres
);
171 IStream_Release(pStm
);
175 IStream_Release(pStm
);
176 return xbuf_skip(buf
,xsize
);
180 _marshal_interface(marshal_state
*buf
, REFIID riid
, LPUNKNOWN pUnk
) {
181 LPBYTE tempbuf
= NULL
;
182 IStream
*pStm
= NULL
;
184 ULARGE_INTEGER newpos
;
185 LARGE_INTEGER seekto
;
191 /* this is valid, if for instance we serialize
192 * a VT_DISPATCH with NULL ptr which apparently
193 * can happen. S_OK to make sure we continue
196 WARN("pUnk is NULL\n");
198 return xbuf_add(buf
,(LPBYTE
)&xsize
,sizeof(xsize
));
203 TRACE("...%s...\n",debugstr_guid(riid
));
205 hres
= CreateStreamOnHGlobal(0,TRUE
,&pStm
);
207 ERR("Stream create failed %x\n",hres
);
211 hres
= CoMarshalInterface(pStm
,riid
,pUnk
,0,NULL
,0);
213 ERR("Marshalling interface %s failed with %x\n", debugstr_guid(riid
), hres
);
217 hres
= IStream_Stat(pStm
,&ststg
,STATFLAG_NONAME
);
219 ERR("Stream stat failed\n");
223 tempbuf
= HeapAlloc(GetProcessHeap(), 0, ststg
.cbSize
.u
.LowPart
);
224 memset(&seekto
,0,sizeof(seekto
));
225 hres
= IStream_Seek(pStm
,seekto
,SEEK_SET
,&newpos
);
227 ERR("Failed Seek %x\n",hres
);
231 hres
= IStream_Read(pStm
,tempbuf
,ststg
.cbSize
.u
.LowPart
,&res
);
233 ERR("Failed Read %x\n",hres
);
237 xsize
= ststg
.cbSize
.u
.LowPart
;
238 xbuf_add(buf
,(LPBYTE
)&xsize
,sizeof(xsize
));
239 hres
= xbuf_add(buf
,tempbuf
,ststg
.cbSize
.u
.LowPart
);
241 HeapFree(GetProcessHeap(),0,tempbuf
);
242 IStream_Release(pStm
);
248 xbuf_add(buf
,(LPBYTE
)&xsize
,sizeof(xsize
));
249 if (pStm
) IStream_Release(pStm
);
250 HeapFree(GetProcessHeap(), 0, tempbuf
);
254 /********************* OLE Proxy/Stub Factory ********************************/
255 static HRESULT WINAPI
256 PSFacBuf_QueryInterface(LPPSFACTORYBUFFER iface
, REFIID iid
, LPVOID
*ppv
) {
257 if (IsEqualIID(iid
,&IID_IPSFactoryBuffer
)||IsEqualIID(iid
,&IID_IUnknown
)) {
259 /* No ref counting, static class */
262 FIXME("(%s) unknown IID?\n",debugstr_guid(iid
));
263 return E_NOINTERFACE
;
266 static ULONG WINAPI
PSFacBuf_AddRef(LPPSFACTORYBUFFER iface
) { return 2; }
267 static ULONG WINAPI
PSFacBuf_Release(LPPSFACTORYBUFFER iface
) { return 1; }
270 _get_typeinfo_for_iid(REFIID riid
, ITypeInfo
**ti
) {
273 REGSAM opposite
= (sizeof(void*) == 8) ? KEY_WOW64_32KEY
: KEY_WOW64_64KEY
;
275 char tlguid
[200],typelibkey
[300],interfacekey
[300],ver
[100];
278 DWORD tlguidlen
, verlen
, type
;
282 sprintf( interfacekey
, "Interface\\{%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}\\Typelib",
283 riid
->Data1
, riid
->Data2
, riid
->Data3
,
284 riid
->Data4
[0], riid
->Data4
[1], riid
->Data4
[2], riid
->Data4
[3],
285 riid
->Data4
[4], riid
->Data4
[5], riid
->Data4
[6], riid
->Data4
[7]
288 err
= RegOpenKeyExA(HKEY_CLASSES_ROOT
,interfacekey
,0,KEY_READ
,&ikey
);
289 if (err
&& (opposite
== KEY_WOW64_32KEY
|| (IsWow64Process(GetCurrentProcess(), &is_wow64
)
291 err
= RegOpenKeyExA(HKEY_CLASSES_ROOT
,interfacekey
,0,KEY_READ
|opposite
,&ikey
);
294 ERR("No %s key found.\n",interfacekey
);
297 tlguidlen
= sizeof(tlguid
);
298 if (RegQueryValueExA(ikey
,NULL
,NULL
,&type
,(LPBYTE
)tlguid
,&tlguidlen
)) {
299 ERR("Getting typelib guid failed.\n");
303 verlen
= sizeof(ver
);
304 if (RegQueryValueExA(ikey
,"Version",NULL
,&type
,(LPBYTE
)ver
,&verlen
)) {
305 ERR("Could not get version value?\n");
310 sprintf(typelibkey
,"Typelib\\%s\\%s\\0\\win%u",tlguid
,ver
,(sizeof(void*) == 8) ? 64 : 32);
311 tlfnlen
= sizeof(tlfn
);
312 if (RegQueryValueA(HKEY_CLASSES_ROOT
,typelibkey
,tlfn
,&tlfnlen
)) {
314 sprintf(typelibkey
,"Typelib\\%s\\%s\\0\\win32",tlguid
,ver
);
315 tlfnlen
= sizeof(tlfn
);
316 if (RegQueryValueA(HKEY_CLASSES_ROOT
,typelibkey
,tlfn
,&tlfnlen
)) {
318 ERR("Could not get typelib fn?\n");
324 MultiByteToWideChar(CP_ACP
, 0, tlfn
, -1, tlfnW
, sizeof(tlfnW
) / sizeof(tlfnW
[0]));
325 hres
= LoadTypeLib(tlfnW
,&tl
);
327 ERR("Failed to load typelib for %s, but it should be there.\n",debugstr_guid(riid
));
330 hres
= ITypeLib_GetTypeInfoOfGuid(tl
,riid
,ti
);
332 ERR("typelib does not contain info for %s?\n",debugstr_guid(riid
));
333 ITypeLib_Release(tl
);
336 ITypeLib_Release(tl
);
341 * Determine the number of functions including all inherited functions
342 * and well as the size of the vtbl.
343 * Note for non-dual dispinterfaces we simply return the size of IDispatch.
345 static HRESULT
num_of_funcs(ITypeInfo
*tinfo
, unsigned int *num
,
346 unsigned int *vtbl_size
)
351 UINT inherited_funcs
= 0, i
;
354 if(vtbl_size
) *vtbl_size
= 0;
356 hr
= ITypeInfo_GetTypeAttr(tinfo
, &attr
);
359 ERR("GetTypeAttr failed with %x\n", hr
);
363 if(attr
->typekind
== TKIND_DISPATCH
)
365 if(attr
->wTypeFlags
& TYPEFLAG_FDUAL
)
369 ITypeInfo_ReleaseTypeAttr(tinfo
, attr
);
370 hr
= ITypeInfo_GetRefTypeOfImplType(tinfo
, -1, &href
);
373 ERR("Unable to get interface href from dual dispinterface\n");
376 hr
= ITypeInfo_GetRefTypeInfo(tinfo
, href
, &tinfo2
);
379 ERR("Unable to get interface from dual dispinterface\n");
382 hr
= num_of_funcs(tinfo2
, num
, vtbl_size
);
383 ITypeInfo_Release(tinfo2
);
386 else /* non-dual dispinterface */
388 /* These will be the size of IDispatchVtbl */
389 *num
= attr
->cbSizeVft
/ sizeof(void *);
390 if(vtbl_size
) *vtbl_size
= attr
->cbSizeVft
;
391 ITypeInfo_ReleaseTypeAttr(tinfo
, attr
);
396 for (i
= 0; i
< attr
->cImplTypes
; i
++)
399 ITypeInfo
*pSubTypeInfo
;
402 hr
= ITypeInfo_GetRefTypeOfImplType(tinfo
, i
, &href
);
403 if (FAILED(hr
)) goto end
;
404 hr
= ITypeInfo_GetRefTypeInfo(tinfo
, href
, &pSubTypeInfo
);
405 if (FAILED(hr
)) goto end
;
407 hr
= num_of_funcs(pSubTypeInfo
, &sub_funcs
, NULL
);
408 ITypeInfo_Release(pSubTypeInfo
);
410 if(FAILED(hr
)) goto end
;
411 inherited_funcs
+= sub_funcs
;
414 *num
= inherited_funcs
+ attr
->cFuncs
;
415 if(vtbl_size
) *vtbl_size
= attr
->cbSizeVft
;
418 ITypeInfo_ReleaseTypeAttr(tinfo
, attr
);
424 #include "pshpack1.h"
426 typedef struct _TMAsmProxy
{
441 # warning You need to implement stubless proxies for your architecture
442 typedef struct _TMAsmProxy
{
446 typedef struct _TMProxyImpl
{
448 IRpcProxyBuffer IRpcProxyBuffer_iface
;
451 TMAsmProxy
*asmstubs
;
453 IRpcChannelBuffer
* chanbuf
;
455 CRITICAL_SECTION crit
;
456 IUnknown
*outerunknown
;
458 IRpcProxyBuffer
*dispatch_proxy
;
461 static inline TMProxyImpl
*impl_from_IRpcProxyBuffer( IRpcProxyBuffer
*iface
)
463 return CONTAINING_RECORD(iface
, TMProxyImpl
, IRpcProxyBuffer_iface
);
466 static HRESULT WINAPI
467 TMProxyImpl_QueryInterface(LPRPCPROXYBUFFER iface
, REFIID riid
, LPVOID
*ppv
)
470 if (IsEqualIID(riid
,&IID_IUnknown
)||IsEqualIID(riid
,&IID_IRpcProxyBuffer
)) {
472 IRpcProxyBuffer_AddRef(iface
);
475 FIXME("no interface for %s\n",debugstr_guid(riid
));
476 return E_NOINTERFACE
;
480 TMProxyImpl_AddRef(LPRPCPROXYBUFFER iface
)
482 TMProxyImpl
*This
= impl_from_IRpcProxyBuffer( iface
);
483 ULONG refCount
= InterlockedIncrement(&This
->ref
);
485 TRACE("(%p)->(ref before=%u)\n",This
, refCount
- 1);
491 TMProxyImpl_Release(LPRPCPROXYBUFFER iface
)
493 TMProxyImpl
*This
= impl_from_IRpcProxyBuffer( iface
);
494 ULONG refCount
= InterlockedDecrement(&This
->ref
);
496 TRACE("(%p)->(ref before=%u)\n",This
, refCount
+ 1);
500 if (This
->dispatch_proxy
) IRpcProxyBuffer_Release(This
->dispatch_proxy
);
501 This
->crit
.DebugInfo
->Spare
[0] = 0;
502 DeleteCriticalSection(&This
->crit
);
503 if (This
->chanbuf
) IRpcChannelBuffer_Release(This
->chanbuf
);
504 VirtualFree(This
->asmstubs
, 0, MEM_RELEASE
);
505 HeapFree(GetProcessHeap(), 0, This
->lpvtbl
);
506 ITypeInfo_Release(This
->tinfo
);
512 static HRESULT WINAPI
514 LPRPCPROXYBUFFER iface
,IRpcChannelBuffer
* pRpcChannelBuffer
)
516 TMProxyImpl
*This
= impl_from_IRpcProxyBuffer( iface
);
518 TRACE("(%p)\n", pRpcChannelBuffer
);
520 EnterCriticalSection(&This
->crit
);
522 IRpcChannelBuffer_AddRef(pRpcChannelBuffer
);
523 This
->chanbuf
= pRpcChannelBuffer
;
525 LeaveCriticalSection(&This
->crit
);
527 if (This
->dispatch_proxy
)
529 IRpcChannelBuffer
*pDelegateChannel
;
530 HRESULT hr
= TMarshalDispatchChannel_Create(pRpcChannelBuffer
, &This
->iid
, &pDelegateChannel
);
533 hr
= IRpcProxyBuffer_Connect(This
->dispatch_proxy
, pDelegateChannel
);
534 IRpcChannelBuffer_Release(pDelegateChannel
);
542 TMProxyImpl_Disconnect(LPRPCPROXYBUFFER iface
)
544 TMProxyImpl
*This
= impl_from_IRpcProxyBuffer( iface
);
548 EnterCriticalSection(&This
->crit
);
550 IRpcChannelBuffer_Release(This
->chanbuf
);
551 This
->chanbuf
= NULL
;
553 LeaveCriticalSection(&This
->crit
);
555 if (This
->dispatch_proxy
)
556 IRpcProxyBuffer_Disconnect(This
->dispatch_proxy
);
560 static const IRpcProxyBufferVtbl tmproxyvtable
= {
561 TMProxyImpl_QueryInterface
,
565 TMProxyImpl_Disconnect
568 /* how much space do we use on stack in DWORD steps. */
570 _argsize(TYPEDESC
*tdesc
, ITypeInfo
*tinfo
) {
574 return 8/sizeof(DWORD
);
576 return sizeof(double)/sizeof(DWORD
);
578 return sizeof(CY
)/sizeof(DWORD
);
580 return sizeof(DATE
)/sizeof(DWORD
);
582 return (sizeof(DECIMAL
)+3)/sizeof(DWORD
);
584 return (sizeof(VARIANT
)+3)/sizeof(DWORD
);
592 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,tdesc
->u
.hreftype
,&tinfo2
);
594 return 0; /* should fail critically in serialize_param */
595 ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
596 ret
= (tattr
->cbSizeInstance
+3)/sizeof(DWORD
);
597 ITypeInfo_ReleaseTypeAttr(tinfo2
, tattr
);
598 ITypeInfo_Release(tinfo2
);
606 /* how much space do we use on the heap (in bytes) */
608 _xsize(const TYPEDESC
*td
, ITypeInfo
*tinfo
) {
615 return sizeof(VARIANT
);
618 const ARRAYDESC
*adesc
= td
->u
.lpadesc
;
620 for (i
=0;i
<adesc
->cDims
;i
++)
621 arrsize
*= adesc
->rgbounds
[i
].cElements
;
622 return arrsize
*_xsize(&adesc
->tdescElem
, tinfo
);
642 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,td
->u
.hreftype
,&tinfo2
);
645 ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
646 ret
= tattr
->cbSizeInstance
;
647 ITypeInfo_ReleaseTypeAttr(tinfo2
, tattr
);
648 ITypeInfo_Release(tinfo2
);
656 /* Whether we pass this type by reference or by value */
658 _passbyref(const TYPEDESC
*td
, ITypeInfo
*tinfo
) {
659 return (td
->vt
== VT_USERDEFINED
||
660 td
->vt
== VT_VARIANT
||
677 TRACE("(tdesc.vt %s)\n",debugstr_vt(tdesc
->vt
));
680 if ((vartype
& 0xf000) == VT_ARRAY
)
681 vartype
= VT_SAFEARRAY
;
690 if (debugout
) TRACE_(olerelay
)("%x%x\n",arg
[0],arg
[1]);
692 hres
= xbuf_add(buf
,(LPBYTE
)arg
,8);
701 if (debugout
) TRACE_(olerelay
)("%x\n",*arg
);
703 hres
= xbuf_add(buf
,(LPBYTE
)arg
,sizeof(DWORD
));
709 if (debugout
) TRACE_(olerelay
)("%04x\n",*arg
& 0xffff);
711 hres
= xbuf_add(buf
,(LPBYTE
)arg
,sizeof(DWORD
));
716 if (debugout
) TRACE_(olerelay
)("%02x\n",*arg
& 0xff);
718 hres
= xbuf_add(buf
,(LPBYTE
)arg
,sizeof(DWORD
));
721 if (debugout
) TRACE_(olerelay
)("%s", debugstr_variant((VARIANT
*)arg
));
724 ULONG flags
= MAKELONG(MSHCTX_DIFFERENTMACHINE
, NDR_LOCAL_DATA_REPRESENTATION
);
725 ULONG size
= VARIANT_UserSize(&flags
, buf
->curoff
, (VARIANT
*)arg
);
726 xbuf_resize(buf
, size
);
727 VARIANT_UserMarshal(&flags
, buf
->base
+ buf
->curoff
, (VARIANT
*)arg
);
732 ULONG flags
= MAKELONG(MSHCTX_DIFFERENTMACHINE
, NDR_LOCAL_DATA_REPRESENTATION
);
733 VARIANT_UserFree(&flags
, (VARIANT
*)arg
);
738 if (writeit
&& debugout
) {
740 TRACE_(olerelay
)("%s",relaystr((WCHAR
*)*arg
));
742 TRACE_(olerelay
)("<bstr NULL>");
746 ULONG flags
= MAKELONG(MSHCTX_DIFFERENTMACHINE
, NDR_LOCAL_DATA_REPRESENTATION
);
747 ULONG size
= BSTR_UserSize(&flags
, buf
->curoff
, (BSTR
*)arg
);
748 xbuf_resize(buf
, size
);
749 BSTR_UserMarshal(&flags
, buf
->base
+ buf
->curoff
, (BSTR
*)arg
);
754 ULONG flags
= MAKELONG(MSHCTX_DIFFERENTMACHINE
, NDR_LOCAL_DATA_REPRESENTATION
);
755 BSTR_UserFree(&flags
, (BSTR
*)arg
);
761 BOOL derefhere
= TRUE
;
763 if (tdesc
->u
.lptdesc
->vt
== VT_USERDEFINED
) {
767 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,tdesc
->u
.lptdesc
->u
.hreftype
,&tinfo2
);
769 ERR("Could not get typeinfo of hreftype %x for VT_USERDEFINED.\n",tdesc
->u
.lptdesc
->u
.hreftype
);
772 ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
773 switch (tattr
->typekind
) {
775 if (tattr
->tdescAlias
.vt
== VT_USERDEFINED
)
777 DWORD href
= tattr
->tdescAlias
.u
.hreftype
;
778 ITypeInfo_ReleaseTypeAttr(tinfo
, tattr
);
779 ITypeInfo_Release(tinfo2
);
780 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,href
,&tinfo2
);
782 ERR("Could not get typeinfo of hreftype %x for VT_USERDEFINED.\n",tdesc
->u
.lptdesc
->u
.hreftype
);
785 ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
786 derefhere
= (tattr
->typekind
!= TKIND_DISPATCH
&& tattr
->typekind
!= TKIND_INTERFACE
);
789 case TKIND_ENUM
: /* confirmed */
790 case TKIND_RECORD
: /* FIXME: mostly untested */
792 case TKIND_DISPATCH
: /* will be done in VT_USERDEFINED case */
793 case TKIND_INTERFACE
: /* will be done in VT_USERDEFINED case */
797 FIXME("unhandled switch cases tattr->typekind %d\n", tattr
->typekind
);
801 ITypeInfo_ReleaseTypeAttr(tinfo
, tattr
);
802 ITypeInfo_Release(tinfo2
);
805 if (debugout
) TRACE_(olerelay
)("*");
806 /* Write always, so the other side knows when it gets a NULL pointer.
808 cookie
= *arg
? 0x42424242 : 0;
809 hres
= xbuf_add(buf
,(LPBYTE
)&cookie
,sizeof(cookie
));
813 if (debugout
) TRACE_(olerelay
)("NULL");
816 hres
= serialize_param(tinfo
,writeit
,debugout
,dealloc
,tdesc
->u
.lptdesc
,(DWORD
*)*arg
,buf
);
817 if (derefhere
&& dealloc
) HeapFree(GetProcessHeap(),0,(LPVOID
)*arg
);
821 if (debugout
) TRACE_(olerelay
)("unk(0x%x)",*arg
);
823 hres
= _marshal_interface(buf
,&IID_IUnknown
,(LPUNKNOWN
)*arg
);
824 if (dealloc
&& *(IUnknown
**)arg
)
825 IUnknown_Release((LPUNKNOWN
)*arg
);
828 if (debugout
) TRACE_(olerelay
)("idisp(0x%x)",*arg
);
830 hres
= _marshal_interface(buf
,&IID_IDispatch
,(LPUNKNOWN
)*arg
);
831 if (dealloc
&& *(IUnknown
**)arg
)
832 IUnknown_Release((LPUNKNOWN
)*arg
);
835 if (debugout
) TRACE_(olerelay
)("<void>");
837 case VT_USERDEFINED
: {
841 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,tdesc
->u
.hreftype
,&tinfo2
);
843 ERR("Could not get typeinfo of hreftype %x for VT_USERDEFINED.\n",tdesc
->u
.hreftype
);
846 ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
847 switch (tattr
->typekind
) {
849 case TKIND_INTERFACE
:
851 hres
=_marshal_interface(buf
,&(tattr
->guid
),(LPUNKNOWN
)arg
);
853 IUnknown_Release((LPUNKNOWN
)arg
);
857 if (debugout
) TRACE_(olerelay
)("{");
858 for (i
=0;i
<tattr
->cVars
;i
++) {
863 hres
= ITypeInfo_GetVarDesc(tinfo2
, i
, &vdesc
);
865 ERR("Could not get vardesc of %d\n",i
);
868 elem2
= &vdesc
->elemdescVar
;
869 tdesc2
= &elem2
->tdesc
;
870 hres
= serialize_param(
876 (DWORD
*)(((LPBYTE
)arg
)+vdesc
->u
.oInst
),
879 ITypeInfo_ReleaseVarDesc(tinfo2
, vdesc
);
882 if (debugout
&& (i
<(tattr
->cVars
-1)))
883 TRACE_(olerelay
)(",");
885 if (debugout
) TRACE_(olerelay
)("}");
889 hres
= serialize_param(tinfo2
,writeit
,debugout
,dealloc
,&tattr
->tdescAlias
,arg
,buf
);
893 if (debugout
) TRACE_(olerelay
)("%x",*arg
);
895 hres
= xbuf_add(buf
,(LPBYTE
)arg
,sizeof(DWORD
));
898 FIXME("Unhandled typekind %d\n",tattr
->typekind
);
902 ITypeInfo_ReleaseTypeAttr(tinfo2
, tattr
);
903 ITypeInfo_Release(tinfo2
);
907 ARRAYDESC
*adesc
= tdesc
->u
.lpadesc
;
910 if (debugout
) TRACE_(olerelay
)("carr");
911 for (i
=0;i
<adesc
->cDims
;i
++) {
912 if (debugout
) TRACE_(olerelay
)("[%d]",adesc
->rgbounds
[i
].cElements
);
913 arrsize
*= adesc
->rgbounds
[i
].cElements
;
915 if (debugout
) TRACE_(olerelay
)("(vt %s)",debugstr_vt(adesc
->tdescElem
.vt
));
916 if (debugout
) TRACE_(olerelay
)("[");
917 for (i
=0;i
<arrsize
;i
++) {
918 LPBYTE base
= _passbyref(&adesc
->tdescElem
, tinfo
) ? (LPBYTE
) *arg
: (LPBYTE
) arg
;
919 hres
= serialize_param(tinfo
, writeit
, debugout
, dealloc
, &adesc
->tdescElem
, (DWORD
*)((LPBYTE
)base
+i
*_xsize(&adesc
->tdescElem
, tinfo
)), buf
);
922 if (debugout
&& (i
<arrsize
-1)) TRACE_(olerelay
)(",");
924 if (debugout
) TRACE_(olerelay
)("]");
926 HeapFree(GetProcessHeap(), 0, *(void **)arg
);
932 ULONG flags
= MAKELONG(MSHCTX_DIFFERENTMACHINE
, NDR_LOCAL_DATA_REPRESENTATION
);
933 ULONG size
= LPSAFEARRAY_UserSize(&flags
, buf
->curoff
, (LPSAFEARRAY
*)arg
);
934 xbuf_resize(buf
, size
);
935 LPSAFEARRAY_UserMarshal(&flags
, buf
->base
+ buf
->curoff
, (LPSAFEARRAY
*)arg
);
940 ULONG flags
= MAKELONG(MSHCTX_DIFFERENTMACHINE
, NDR_LOCAL_DATA_REPRESENTATION
);
941 LPSAFEARRAY_UserFree(&flags
, (LPSAFEARRAY
*)arg
);
946 ERR("Unhandled marshal type %d.\n",tdesc
->vt
);
964 TRACE("vt %s at %p\n",debugstr_vt(tdesc
->vt
),arg
);
967 if ((vartype
& 0xf000) == VT_ARRAY
)
968 vartype
= VT_SAFEARRAY
;
975 ULONG flags
= MAKELONG(MSHCTX_DIFFERENTMACHINE
, NDR_LOCAL_DATA_REPRESENTATION
);
976 unsigned char *buffer
;
977 buffer
= VARIANT_UserUnmarshal(&flags
, buf
->base
+ buf
->curoff
, (VARIANT
*)arg
);
978 buf
->curoff
= buffer
- buf
->base
;
988 hres
= xbuf_get(buf
,(LPBYTE
)arg
,8);
989 if (hres
) ERR("Failed to read integer 8 byte\n");
991 if (debugout
) TRACE_(olerelay
)("%x%x",arg
[0],arg
[1]);
1000 hres
= xbuf_get(buf
,(LPBYTE
)arg
,sizeof(DWORD
));
1001 if (hres
) ERR("Failed to read integer 4 byte\n");
1003 if (debugout
) TRACE_(olerelay
)("%x",*arg
);
1010 hres
= xbuf_get(buf
,(LPBYTE
)&x
,sizeof(DWORD
));
1011 if (hres
) ERR("Failed to read integer 4 byte\n");
1014 if (debugout
) TRACE_(olerelay
)("%04x",*arg
& 0xffff);
1020 hres
= xbuf_get(buf
,(LPBYTE
)&x
,sizeof(DWORD
));
1021 if (hres
) ERR("Failed to read integer 4 byte\n");
1024 if (debugout
) TRACE_(olerelay
)("%02x",*arg
& 0xff);
1029 ULONG flags
= MAKELONG(MSHCTX_DIFFERENTMACHINE
, NDR_LOCAL_DATA_REPRESENTATION
);
1030 unsigned char *buffer
;
1031 buffer
= BSTR_UserUnmarshal(&flags
, buf
->base
+ buf
->curoff
, (BSTR
*)arg
);
1032 buf
->curoff
= buffer
- buf
->base
;
1033 if (debugout
) TRACE_(olerelay
)("%s",debugstr_w(*(BSTR
*)arg
));
1039 BOOL derefhere
= TRUE
;
1041 if (tdesc
->u
.lptdesc
->vt
== VT_USERDEFINED
) {
1045 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,tdesc
->u
.lptdesc
->u
.hreftype
,&tinfo2
);
1047 ERR("Could not get typeinfo of hreftype %x for VT_USERDEFINED.\n",tdesc
->u
.lptdesc
->u
.hreftype
);
1050 ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
1051 switch (tattr
->typekind
) {
1053 if (tattr
->tdescAlias
.vt
== VT_USERDEFINED
)
1055 DWORD href
= tattr
->tdescAlias
.u
.hreftype
;
1056 ITypeInfo_ReleaseTypeAttr(tinfo
, tattr
);
1057 ITypeInfo_Release(tinfo2
);
1058 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,href
,&tinfo2
);
1060 ERR("Could not get typeinfo of hreftype %x for VT_USERDEFINED.\n",tdesc
->u
.lptdesc
->u
.hreftype
);
1063 ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
1064 derefhere
= (tattr
->typekind
!= TKIND_DISPATCH
&& tattr
->typekind
!= TKIND_INTERFACE
);
1067 case TKIND_ENUM
: /* confirmed */
1068 case TKIND_RECORD
: /* FIXME: mostly untested */
1070 case TKIND_DISPATCH
: /* will be done in VT_USERDEFINED case */
1071 case TKIND_INTERFACE
: /* will be done in VT_USERDEFINED case */
1075 FIXME("unhandled switch cases tattr->typekind %d\n", tattr
->typekind
);
1079 ITypeInfo_ReleaseTypeAttr(tinfo2
, tattr
);
1080 ITypeInfo_Release(tinfo2
);
1082 /* read it in all cases, we need to know if we have
1083 * NULL pointer or not.
1085 hres
= xbuf_get(buf
,(LPBYTE
)&cookie
,sizeof(cookie
));
1087 ERR("Failed to load pointer cookie.\n");
1090 if (cookie
!= 0x42424242) {
1091 /* we read a NULL ptr from the remote side */
1092 if (debugout
) TRACE_(olerelay
)("NULL");
1096 if (debugout
) TRACE_(olerelay
)("*");
1098 /* Allocate space for the referenced struct */
1100 *arg
=(DWORD
)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,_xsize(tdesc
->u
.lptdesc
, tinfo
));
1103 return deserialize_param(tinfo
, readit
, debugout
, alloc
, tdesc
->u
.lptdesc
, (LPDWORD
)*arg
, buf
);
1105 return deserialize_param(tinfo
, readit
, debugout
, alloc
, tdesc
->u
.lptdesc
, arg
, buf
);
1108 /* FIXME: UNKNOWN is unknown ..., but allocate 4 byte for it */
1110 *arg
=(DWORD
)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(DWORD
));
1113 hres
= _unmarshal_interface(buf
,&IID_IUnknown
,(LPUNKNOWN
*)arg
);
1115 TRACE_(olerelay
)("unk(%p)",arg
);
1120 hres
= _unmarshal_interface(buf
,&IID_IDispatch
,(LPUNKNOWN
*)arg
);
1122 TRACE_(olerelay
)("idisp(%p)",arg
);
1125 if (debugout
) TRACE_(olerelay
)("<void>");
1127 case VT_USERDEFINED
: {
1131 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,tdesc
->u
.hreftype
,&tinfo2
);
1133 ERR("Could not get typeinfo of hreftype %x for VT_USERDEFINED.\n",tdesc
->u
.hreftype
);
1136 hres
= ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
1138 ERR("Could not get typeattr in VT_USERDEFINED.\n");
1140 switch (tattr
->typekind
) {
1141 case TKIND_DISPATCH
:
1142 case TKIND_INTERFACE
:
1144 hres
= _unmarshal_interface(buf
,&(tattr
->guid
),(LPUNKNOWN
*)arg
);
1146 case TKIND_RECORD
: {
1149 if (debugout
) TRACE_(olerelay
)("{");
1150 for (i
=0;i
<tattr
->cVars
;i
++) {
1153 hres
= ITypeInfo_GetVarDesc(tinfo2
, i
, &vdesc
);
1155 ERR("Could not get vardesc of %d\n",i
);
1156 ITypeInfo_ReleaseTypeAttr(tinfo2
, tattr
);
1157 ITypeInfo_Release(tinfo2
);
1160 hres
= deserialize_param(
1165 &vdesc
->elemdescVar
.tdesc
,
1166 (DWORD
*)(((LPBYTE
)arg
)+vdesc
->u
.oInst
),
1169 ITypeInfo_ReleaseVarDesc(tinfo2
, vdesc
);
1170 if (debugout
&& (i
<tattr
->cVars
-1)) TRACE_(olerelay
)(",");
1172 if (debugout
) TRACE_(olerelay
)("}");
1176 hres
= deserialize_param(tinfo2
,readit
,debugout
,alloc
,&tattr
->tdescAlias
,arg
,buf
);
1180 hres
= xbuf_get(buf
,(LPBYTE
)arg
,sizeof(DWORD
));
1181 if (hres
) ERR("Failed to read enum (4 byte)\n");
1183 if (debugout
) TRACE_(olerelay
)("%x",*arg
);
1186 ERR("Unhandled typekind %d\n",tattr
->typekind
);
1190 ITypeInfo_ReleaseTypeAttr(tinfo2
, tattr
);
1193 ERR("failed to stuballoc in TKIND_RECORD.\n");
1194 ITypeInfo_Release(tinfo2
);
1198 /* arg is pointing to the start of the array. */
1199 LPBYTE base
= (LPBYTE
) arg
;
1200 ARRAYDESC
*adesc
= tdesc
->u
.lpadesc
;
1203 if (adesc
->cDims
> 1) FIXME("cDims > 1 in VT_CARRAY. Does it work?\n");
1204 for (i
=0;i
<adesc
->cDims
;i
++)
1205 arrsize
*= adesc
->rgbounds
[i
].cElements
;
1206 if (_passbyref(&adesc
->tdescElem
, tinfo
))
1208 base
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,_xsize(tdesc
->u
.lptdesc
, tinfo
) * arrsize
);
1209 *arg
= (DWORD
) base
;
1211 for (i
=0;i
<arrsize
;i
++)
1218 (DWORD
*)(base
+ i
*_xsize(&adesc
->tdescElem
, tinfo
)),
1223 case VT_SAFEARRAY
: {
1226 ULONG flags
= MAKELONG(MSHCTX_DIFFERENTMACHINE
, NDR_LOCAL_DATA_REPRESENTATION
);
1227 unsigned char *buffer
;
1228 buffer
= LPSAFEARRAY_UserUnmarshal(&flags
, buf
->base
+ buf
->curoff
, (LPSAFEARRAY
*)arg
);
1229 buf
->curoff
= buffer
- buf
->base
;
1234 ERR("No handler for VT type %d!\n",tdesc
->vt
);
1240 /* Retrieves a function's funcdesc, searching back into inherited interfaces. */
1241 static HRESULT
get_funcdesc(ITypeInfo
*tinfo
, int iMethod
, ITypeInfo
**tactual
, const FUNCDESC
**fdesc
,
1242 BSTR
*iname
, BSTR
*fname
, UINT
*num
)
1246 UINT inherited_funcs
= 0;
1249 if (fname
) *fname
= NULL
;
1250 if (iname
) *iname
= NULL
;
1254 hr
= ITypeInfo_GetTypeAttr(tinfo
, &attr
);
1257 ERR("GetTypeAttr failed with %x\n",hr
);
1261 if(attr
->typekind
== TKIND_DISPATCH
)
1263 if(attr
->wTypeFlags
& TYPEFLAG_FDUAL
)
1268 hr
= ITypeInfo_GetRefTypeOfImplType(tinfo
, -1, &href
);
1271 ERR("Cannot get interface href from dual dispinterface\n");
1272 ITypeInfo_ReleaseTypeAttr(tinfo
, attr
);
1275 hr
= ITypeInfo_GetRefTypeInfo(tinfo
, href
, &tinfo2
);
1278 ERR("Cannot get interface from dual dispinterface\n");
1279 ITypeInfo_ReleaseTypeAttr(tinfo
, attr
);
1282 hr
= get_funcdesc(tinfo2
, iMethod
, tactual
, fdesc
, iname
, fname
, num
);
1283 ITypeInfo_Release(tinfo2
);
1284 ITypeInfo_ReleaseTypeAttr(tinfo
, attr
);
1287 ERR("Shouldn't be called with a non-dual dispinterface\n");
1291 impl_types
= attr
->cImplTypes
;
1292 ITypeInfo_ReleaseTypeAttr(tinfo
, attr
);
1294 for (i
= 0; i
< impl_types
; i
++)
1297 ITypeInfo
*pSubTypeInfo
;
1300 hr
= ITypeInfo_GetRefTypeOfImplType(tinfo
, i
, &href
);
1301 if (FAILED(hr
)) return hr
;
1302 hr
= ITypeInfo_GetRefTypeInfo(tinfo
, href
, &pSubTypeInfo
);
1303 if (FAILED(hr
)) return hr
;
1305 hr
= get_funcdesc(pSubTypeInfo
, iMethod
, tactual
, fdesc
, iname
, fname
, &sub_funcs
);
1306 inherited_funcs
+= sub_funcs
;
1307 ITypeInfo_Release(pSubTypeInfo
);
1308 if(SUCCEEDED(hr
)) return hr
;
1310 if(iMethod
< inherited_funcs
)
1312 ERR("shouldn't be here\n");
1313 return E_INVALIDARG
;
1316 for(i
= inherited_funcs
; i
<= iMethod
; i
++)
1318 hr
= ITypeInfoImpl_GetInternalFuncDesc(tinfo
, i
- inherited_funcs
, fdesc
);
1326 /* found it. We don't care about num so zero it */
1329 ITypeInfo_AddRef(*tactual
);
1330 if (fname
) ITypeInfo_GetDocumentation(tinfo
,(*fdesc
)->memid
,fname
,NULL
,NULL
,NULL
);
1331 if (iname
) ITypeInfo_GetDocumentation(tinfo
,-1,iname
,NULL
,NULL
,NULL
);
1335 static inline BOOL
is_in_elem(const ELEMDESC
*elem
)
1337 return (elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FIN
|| !elem
->u
.paramdesc
.wParamFlags
);
1340 static inline BOOL
is_out_elem(const ELEMDESC
*elem
)
1342 return (elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FOUT
|| !elem
->u
.paramdesc
.wParamFlags
);
1345 static DWORD WINAPI
xCall(int method
, void **args
)
1347 TMProxyImpl
*tpinfo
= args
[0];
1349 const FUNCDESC
*fdesc
;
1358 DWORD remoteresult
= 0;
1360 IRpcChannelBuffer
*chanbuf
;
1362 EnterCriticalSection(&tpinfo
->crit
);
1364 hres
= get_funcdesc(tpinfo
->tinfo
,method
,&tinfo
,&fdesc
,&iname
,&fname
,NULL
);
1366 ERR("Did not find typeinfo/funcdesc entry for method %d!\n",method
);
1367 LeaveCriticalSection(&tpinfo
->crit
);
1371 if (!tpinfo
->chanbuf
)
1373 WARN("Tried to use disconnected proxy\n");
1374 ITypeInfo_Release(tinfo
);
1375 LeaveCriticalSection(&tpinfo
->crit
);
1376 return RPC_E_DISCONNECTED
;
1378 chanbuf
= tpinfo
->chanbuf
;
1379 IRpcChannelBuffer_AddRef(chanbuf
);
1381 LeaveCriticalSection(&tpinfo
->crit
);
1383 if (TRACE_ON(olerelay
)) {
1384 TRACE_(olerelay
)("->");
1386 TRACE_(olerelay
)("%s:",relaystr(iname
));
1388 TRACE_(olerelay
)("%s(%d)",relaystr(fname
),method
);
1390 TRACE_(olerelay
)("%d",method
);
1391 TRACE_(olerelay
)("(");
1394 SysFreeString(iname
);
1395 SysFreeString(fname
);
1397 memset(&buf
,0,sizeof(buf
));
1399 /* normal typelib driven serializing */
1401 /* Need them for hack below */
1402 memset(names
,0,sizeof(names
));
1403 if (ITypeInfo_GetNames(tinfo
,fdesc
->memid
,names
,sizeof(names
)/sizeof(names
[0]),&nrofnames
))
1405 if (nrofnames
> sizeof(names
)/sizeof(names
[0]))
1406 ERR("Need more names!\n");
1408 xargs
= (DWORD
*)(args
+ 1);
1409 for (i
=0;i
<fdesc
->cParams
;i
++) {
1410 ELEMDESC
*elem
= fdesc
->lprgelemdescParam
+i
;
1411 if (TRACE_ON(olerelay
)) {
1412 if (i
) TRACE_(olerelay
)(",");
1413 if (i
+1<nrofnames
&& names
[i
+1])
1414 TRACE_(olerelay
)("%s=",relaystr(names
[i
+1]));
1416 /* No need to marshal other data than FIN and any VT_PTR. */
1417 if (!is_in_elem(elem
))
1419 if (elem
->tdesc
.vt
!= VT_PTR
)
1421 xargs
+=_argsize(&elem
->tdesc
, tinfo
);
1422 TRACE_(olerelay
)("[out]");
1427 memset( *(void **)xargs
, 0, _xsize( elem
->tdesc
.u
.lptdesc
, tinfo
) );
1431 hres
= serialize_param(
1442 ERR("Failed to serialize param, hres %x\n",hres
);
1445 xargs
+=_argsize(&elem
->tdesc
, tinfo
);
1447 TRACE_(olerelay
)(")");
1449 memset(&msg
,0,sizeof(msg
));
1450 msg
.cbBuffer
= buf
.curoff
;
1451 msg
.iMethod
= method
;
1452 hres
= IRpcChannelBuffer_GetBuffer(chanbuf
,&msg
,&(tpinfo
->iid
));
1454 ERR("RpcChannelBuffer GetBuffer failed, %x\n",hres
);
1457 memcpy(msg
.Buffer
,buf
.base
,buf
.curoff
);
1458 TRACE_(olerelay
)("\n");
1459 hres
= IRpcChannelBuffer_SendReceive(chanbuf
,&msg
,&status
);
1461 ERR("RpcChannelBuffer SendReceive failed, %x\n",hres
);
1465 TRACE_(olerelay
)(" status = %08x (",status
);
1467 buf
.base
= HeapReAlloc(GetProcessHeap(),0,buf
.base
,msg
.cbBuffer
);
1469 buf
.base
= HeapAlloc(GetProcessHeap(),0,msg
.cbBuffer
);
1470 buf
.size
= msg
.cbBuffer
;
1471 memcpy(buf
.base
,msg
.Buffer
,buf
.size
);
1474 /* generic deserializer using typelib description */
1475 xargs
= (DWORD
*)(args
+ 1);
1477 for (i
=0;i
<fdesc
->cParams
;i
++) {
1478 ELEMDESC
*elem
= fdesc
->lprgelemdescParam
+i
;
1480 if (i
) TRACE_(olerelay
)(",");
1481 if (i
+1<nrofnames
&& names
[i
+1]) TRACE_(olerelay
)("%s=",relaystr(names
[i
+1]));
1483 /* No need to marshal other data than FOUT and any VT_PTR */
1484 if (!is_out_elem(elem
) && (elem
->tdesc
.vt
!= VT_PTR
)) {
1485 xargs
+= _argsize(&elem
->tdesc
, tinfo
);
1486 TRACE_(olerelay
)("[in]");
1489 hres
= deserialize_param(
1499 ERR("Failed to unmarshall param, hres %x\n",hres
);
1503 xargs
+= _argsize(&elem
->tdesc
, tinfo
);
1506 hres
= xbuf_get(&buf
, (LPBYTE
)&remoteresult
, sizeof(DWORD
));
1509 TRACE_(olerelay
)(") = %08x\n", remoteresult
);
1511 hres
= remoteresult
;
1514 IRpcChannelBuffer_FreeBuffer(chanbuf
,&msg
);
1515 for (i
= 0; i
< nrofnames
; i
++)
1516 SysFreeString(names
[i
]);
1517 HeapFree(GetProcessHeap(),0,buf
.base
);
1518 IRpcChannelBuffer_Release(chanbuf
);
1519 ITypeInfo_Release(tinfo
);
1520 TRACE("-- 0x%08x\n", hres
);
1524 static HRESULT WINAPI
ProxyIUnknown_QueryInterface(IUnknown
*iface
, REFIID riid
, void **ppv
)
1526 TMProxyImpl
*proxy
= (TMProxyImpl
*)iface
;
1528 TRACE("(%s, %p)\n", debugstr_guid(riid
), ppv
);
1530 if (proxy
->outerunknown
)
1531 return IUnknown_QueryInterface(proxy
->outerunknown
, riid
, ppv
);
1533 FIXME("No interface\n");
1534 return E_NOINTERFACE
;
1537 static ULONG WINAPI
ProxyIUnknown_AddRef(IUnknown
*iface
)
1539 TMProxyImpl
*proxy
= (TMProxyImpl
*)iface
;
1543 if (proxy
->outerunknown
)
1544 return IUnknown_AddRef(proxy
->outerunknown
);
1546 return 2; /* FIXME */
1549 static ULONG WINAPI
ProxyIUnknown_Release(IUnknown
*iface
)
1551 TMProxyImpl
*proxy
= (TMProxyImpl
*)iface
;
1555 if (proxy
->outerunknown
)
1556 return IUnknown_Release(proxy
->outerunknown
);
1558 return 1; /* FIXME */
1561 static HRESULT WINAPI
ProxyIDispatch_GetTypeInfoCount(LPDISPATCH iface
, UINT
* pctinfo
)
1563 TMProxyImpl
*This
= (TMProxyImpl
*)iface
;
1565 TRACE("(%p)\n", pctinfo
);
1567 return IDispatch_GetTypeInfoCount(This
->dispatch
, pctinfo
);
1570 static HRESULT WINAPI
ProxyIDispatch_GetTypeInfo(LPDISPATCH iface
, UINT iTInfo
, LCID lcid
, ITypeInfo
** ppTInfo
)
1572 TMProxyImpl
*This
= (TMProxyImpl
*)iface
;
1574 TRACE("(%d, %x, %p)\n", iTInfo
, lcid
, ppTInfo
);
1576 return IDispatch_GetTypeInfo(This
->dispatch
, iTInfo
, lcid
, ppTInfo
);
1579 static HRESULT WINAPI
ProxyIDispatch_GetIDsOfNames(LPDISPATCH iface
, REFIID riid
, LPOLESTR
* rgszNames
, UINT cNames
, LCID lcid
, DISPID
* rgDispId
)
1581 TMProxyImpl
*This
= (TMProxyImpl
*)iface
;
1583 TRACE("(%s, %p, %d, 0x%x, %p)\n", debugstr_guid(riid
), rgszNames
, cNames
, lcid
, rgDispId
);
1585 return IDispatch_GetIDsOfNames(This
->dispatch
, riid
, rgszNames
,
1586 cNames
, lcid
, rgDispId
);
1589 static HRESULT WINAPI
ProxyIDispatch_Invoke(LPDISPATCH iface
, DISPID dispIdMember
, REFIID riid
, LCID lcid
,
1590 WORD wFlags
, DISPPARAMS
* pDispParams
, VARIANT
* pVarResult
,
1591 EXCEPINFO
* pExcepInfo
, UINT
* puArgErr
)
1593 TMProxyImpl
*This
= (TMProxyImpl
*)iface
;
1595 TRACE("(%d, %s, 0x%x, 0x%x, %p, %p, %p, %p)\n", dispIdMember
,
1596 debugstr_guid(riid
), lcid
, wFlags
, pDispParams
, pVarResult
,
1597 pExcepInfo
, puArgErr
);
1599 return IDispatch_Invoke(This
->dispatch
, dispIdMember
, riid
, lcid
,
1600 wFlags
, pDispParams
, pVarResult
, pExcepInfo
,
1606 IRpcChannelBuffer IRpcChannelBuffer_iface
;
1608 /* the IDispatch-derived interface we are handling */
1610 IRpcChannelBuffer
*pDelegateChannel
;
1611 } TMarshalDispatchChannel
;
1613 static inline TMarshalDispatchChannel
*impl_from_IRpcChannelBuffer(IRpcChannelBuffer
*iface
)
1615 return CONTAINING_RECORD(iface
, TMarshalDispatchChannel
, IRpcChannelBuffer_iface
);
1618 static HRESULT WINAPI
TMarshalDispatchChannel_QueryInterface(IRpcChannelBuffer
*iface
, REFIID riid
, LPVOID
*ppv
)
1621 if (IsEqualIID(riid
,&IID_IRpcChannelBuffer
) || IsEqualIID(riid
,&IID_IUnknown
))
1624 IRpcChannelBuffer_AddRef(iface
);
1627 return E_NOINTERFACE
;
1630 static ULONG WINAPI
TMarshalDispatchChannel_AddRef(LPRPCCHANNELBUFFER iface
)
1632 TMarshalDispatchChannel
*This
= impl_from_IRpcChannelBuffer(iface
);
1633 return InterlockedIncrement(&This
->refs
);
1636 static ULONG WINAPI
TMarshalDispatchChannel_Release(LPRPCCHANNELBUFFER iface
)
1638 TMarshalDispatchChannel
*This
= impl_from_IRpcChannelBuffer(iface
);
1641 ref
= InterlockedDecrement(&This
->refs
);
1645 IRpcChannelBuffer_Release(This
->pDelegateChannel
);
1646 HeapFree(GetProcessHeap(), 0, This
);
1650 static HRESULT WINAPI
TMarshalDispatchChannel_GetBuffer(LPRPCCHANNELBUFFER iface
, RPCOLEMESSAGE
* olemsg
, REFIID riid
)
1652 TMarshalDispatchChannel
*This
= impl_from_IRpcChannelBuffer(iface
);
1653 TRACE("(%p, %s)\n", olemsg
, debugstr_guid(riid
));
1654 /* Note: we are pretending to invoke a method on the interface identified
1655 * by tmarshal_iid so that we can re-use the IDispatch proxy/stub code
1656 * without the RPC runtime getting confused by not exporting an IDispatch interface */
1657 return IRpcChannelBuffer_GetBuffer(This
->pDelegateChannel
, olemsg
, &This
->tmarshal_iid
);
1660 static HRESULT WINAPI
TMarshalDispatchChannel_SendReceive(LPRPCCHANNELBUFFER iface
, RPCOLEMESSAGE
*olemsg
, ULONG
*pstatus
)
1662 TMarshalDispatchChannel
*This
= impl_from_IRpcChannelBuffer(iface
);
1663 TRACE("(%p, %p)\n", olemsg
, pstatus
);
1664 return IRpcChannelBuffer_SendReceive(This
->pDelegateChannel
, olemsg
, pstatus
);
1667 static HRESULT WINAPI
TMarshalDispatchChannel_FreeBuffer(LPRPCCHANNELBUFFER iface
, RPCOLEMESSAGE
* olemsg
)
1669 TMarshalDispatchChannel
*This
= impl_from_IRpcChannelBuffer(iface
);
1670 TRACE("(%p)\n", olemsg
);
1671 return IRpcChannelBuffer_FreeBuffer(This
->pDelegateChannel
, olemsg
);
1674 static HRESULT WINAPI
TMarshalDispatchChannel_GetDestCtx(LPRPCCHANNELBUFFER iface
, DWORD
* pdwDestContext
, void** ppvDestContext
)
1676 TMarshalDispatchChannel
*This
= impl_from_IRpcChannelBuffer(iface
);
1677 TRACE("(%p,%p)\n", pdwDestContext
, ppvDestContext
);
1678 return IRpcChannelBuffer_GetDestCtx(This
->pDelegateChannel
, pdwDestContext
, ppvDestContext
);
1681 static HRESULT WINAPI
TMarshalDispatchChannel_IsConnected(LPRPCCHANNELBUFFER iface
)
1683 TMarshalDispatchChannel
*This
= impl_from_IRpcChannelBuffer(iface
);
1685 return IRpcChannelBuffer_IsConnected(This
->pDelegateChannel
);
1688 static const IRpcChannelBufferVtbl TMarshalDispatchChannelVtbl
=
1690 TMarshalDispatchChannel_QueryInterface
,
1691 TMarshalDispatchChannel_AddRef
,
1692 TMarshalDispatchChannel_Release
,
1693 TMarshalDispatchChannel_GetBuffer
,
1694 TMarshalDispatchChannel_SendReceive
,
1695 TMarshalDispatchChannel_FreeBuffer
,
1696 TMarshalDispatchChannel_GetDestCtx
,
1697 TMarshalDispatchChannel_IsConnected
1700 static HRESULT
TMarshalDispatchChannel_Create(
1701 IRpcChannelBuffer
*pDelegateChannel
, REFIID tmarshal_riid
,
1702 IRpcChannelBuffer
**ppChannel
)
1704 TMarshalDispatchChannel
*This
= HeapAlloc(GetProcessHeap(), 0, sizeof(*This
));
1706 return E_OUTOFMEMORY
;
1708 This
->IRpcChannelBuffer_iface
.lpVtbl
= &TMarshalDispatchChannelVtbl
;
1710 IRpcChannelBuffer_AddRef(pDelegateChannel
);
1711 This
->pDelegateChannel
= pDelegateChannel
;
1712 This
->tmarshal_iid
= *tmarshal_riid
;
1714 *ppChannel
= &This
->IRpcChannelBuffer_iface
;
1719 static inline HRESULT
get_facbuf_for_iid(REFIID riid
, IPSFactoryBuffer
**facbuf
)
1724 if ((hr
= CoGetPSClsid(riid
, &clsid
)))
1726 return CoGetClassObject(&clsid
, CLSCTX_INPROC_SERVER
, NULL
,
1727 &IID_IPSFactoryBuffer
, (LPVOID
*)facbuf
);
1730 static HRESULT
init_proxy_entry_point(TMProxyImpl
*proxy
, unsigned int num
)
1733 /* nrofargs including This */
1736 TMAsmProxy
*xasm
= proxy
->asmstubs
+ num
;
1738 const FUNCDESC
*fdesc
;
1740 hres
= get_funcdesc(proxy
->tinfo
, num
, &tinfo2
, &fdesc
, NULL
, NULL
, NULL
);
1742 ERR("GetFuncDesc %x should not fail here.\n",hres
);
1745 ITypeInfo_Release(tinfo2
);
1746 /* some args take more than 4 byte on the stack */
1747 for (j
=0;j
<fdesc
->cParams
;j
++)
1748 nrofargs
+= _argsize(&fdesc
->lprgelemdescParam
[j
].tdesc
, proxy
->tinfo
);
1751 if (fdesc
->callconv
!= CC_STDCALL
) {
1752 ERR("calling convention is not stdcall????\n");
1755 /* leal 4(%esp),%eax
1761 xasm
->lealeax
= 0x0424448d;
1762 xasm
->pushleax
= 0x50;
1763 xasm
->pushlval
= 0x68;
1766 xasm
->xcall
= (char *)xCall
- (char *)&xasm
->lret
;
1768 xasm
->bytestopop
= nrofargs
* 4;
1770 proxy
->lpvtbl
[fdesc
->oVft
/ sizeof(void *)] = xasm
;
1772 FIXME("not implemented on non i386\n");
1778 static HRESULT WINAPI
1779 PSFacBuf_CreateProxy(
1780 LPPSFACTORYBUFFER iface
, IUnknown
* pUnkOuter
, REFIID riid
,
1781 IRpcProxyBuffer
**ppProxy
, LPVOID
*ppv
)
1785 unsigned int i
, nroffuncs
, vtbl_size
;
1788 BOOL defer_to_dispatch
= FALSE
;
1790 TRACE("(...%s...)\n",debugstr_guid(riid
));
1791 hres
= _get_typeinfo_for_iid(riid
,&tinfo
);
1793 ERR("No typeinfo for %s?\n",debugstr_guid(riid
));
1797 hres
= num_of_funcs(tinfo
, &nroffuncs
, &vtbl_size
);
1798 TRACE("Got %d funcs, vtbl size %d\n", nroffuncs
, vtbl_size
);
1801 ERR("Cannot get number of functions for typeinfo %s\n",debugstr_guid(riid
));
1802 ITypeInfo_Release(tinfo
);
1806 proxy
= CoTaskMemAlloc(sizeof(TMProxyImpl
));
1807 if (!proxy
) return E_OUTOFMEMORY
;
1809 proxy
->dispatch
= NULL
;
1810 proxy
->dispatch_proxy
= NULL
;
1811 proxy
->outerunknown
= pUnkOuter
;
1812 proxy
->asmstubs
= VirtualAlloc(NULL
, sizeof(TMAsmProxy
) * nroffuncs
, MEM_COMMIT
, PAGE_EXECUTE_READWRITE
);
1813 if (!proxy
->asmstubs
) {
1814 ERR("Could not commit pages for proxy thunks\n");
1815 CoTaskMemFree(proxy
);
1816 return E_OUTOFMEMORY
;
1818 proxy
->IRpcProxyBuffer_iface
.lpVtbl
= &tmproxyvtable
;
1819 /* one reference for the proxy */
1821 proxy
->tinfo
= tinfo
;
1825 InitializeCriticalSection(&proxy
->crit
);
1826 proxy
->crit
.DebugInfo
->Spare
[0] = (DWORD_PTR
)(__FILE__
": TMProxyImpl.crit");
1828 proxy
->lpvtbl
= HeapAlloc(GetProcessHeap(), 0, vtbl_size
);
1830 /* if we derive from IDispatch then defer to its proxy for its methods */
1831 hres
= ITypeInfo_GetTypeAttr(tinfo
, &typeattr
);
1834 if (typeattr
->wTypeFlags
& TYPEFLAG_FDISPATCHABLE
)
1836 IPSFactoryBuffer
*factory_buffer
;
1837 hres
= get_facbuf_for_iid(&IID_IDispatch
, &factory_buffer
);
1840 hres
= IPSFactoryBuffer_CreateProxy(factory_buffer
, NULL
,
1841 &IID_IDispatch
, &proxy
->dispatch_proxy
,
1842 (void **)&proxy
->dispatch
);
1843 IPSFactoryBuffer_Release(factory_buffer
);
1845 if ((hres
== S_OK
) && (nroffuncs
< 7))
1847 ERR("nroffuncs calculated incorrectly (%d)\n", nroffuncs
);
1848 hres
= E_UNEXPECTED
;
1852 defer_to_dispatch
= TRUE
;
1855 ITypeInfo_ReleaseTypeAttr(tinfo
, typeattr
);
1858 for (i
=0;i
<nroffuncs
;i
++) {
1861 proxy
->lpvtbl
[i
] = ProxyIUnknown_QueryInterface
;
1864 proxy
->lpvtbl
[i
] = ProxyIUnknown_AddRef
;
1867 proxy
->lpvtbl
[i
] = ProxyIUnknown_Release
;
1870 if(!defer_to_dispatch
) hres
= init_proxy_entry_point(proxy
, i
);
1871 else proxy
->lpvtbl
[3] = ProxyIDispatch_GetTypeInfoCount
;
1874 if(!defer_to_dispatch
) hres
= init_proxy_entry_point(proxy
, i
);
1875 else proxy
->lpvtbl
[4] = ProxyIDispatch_GetTypeInfo
;
1878 if(!defer_to_dispatch
) hres
= init_proxy_entry_point(proxy
, i
);
1879 else proxy
->lpvtbl
[5] = ProxyIDispatch_GetIDsOfNames
;
1882 if(!defer_to_dispatch
) hres
= init_proxy_entry_point(proxy
, i
);
1883 else proxy
->lpvtbl
[6] = ProxyIDispatch_Invoke
;
1886 hres
= init_proxy_entry_point(proxy
, i
);
1893 *ppProxy
= &proxy
->IRpcProxyBuffer_iface
;
1894 IUnknown_AddRef((IUnknown
*)*ppv
);
1898 TMProxyImpl_Release(&proxy
->IRpcProxyBuffer_iface
);
1902 typedef struct _TMStubImpl
{
1903 IRpcStubBuffer IRpcStubBuffer_iface
;
1909 IRpcStubBuffer
*dispatch_stub
;
1910 BOOL dispatch_derivative
;
1913 static inline TMStubImpl
*impl_from_IRpcStubBuffer(IRpcStubBuffer
*iface
)
1915 return CONTAINING_RECORD(iface
, TMStubImpl
, IRpcStubBuffer_iface
);
1918 static HRESULT WINAPI
1919 TMStubImpl_QueryInterface(LPRPCSTUBBUFFER iface
, REFIID riid
, LPVOID
*ppv
)
1921 if (IsEqualIID(riid
,&IID_IRpcStubBuffer
)||IsEqualIID(riid
,&IID_IUnknown
)){
1923 IRpcStubBuffer_AddRef(iface
);
1926 FIXME("%s, not supported IID.\n",debugstr_guid(riid
));
1927 return E_NOINTERFACE
;
1931 TMStubImpl_AddRef(LPRPCSTUBBUFFER iface
)
1933 TMStubImpl
*This
= impl_from_IRpcStubBuffer(iface
);
1934 ULONG refCount
= InterlockedIncrement(&This
->ref
);
1936 TRACE("(%p)->(ref before=%u)\n", This
, refCount
- 1);
1942 TMStubImpl_Release(LPRPCSTUBBUFFER iface
)
1944 TMStubImpl
*This
= impl_from_IRpcStubBuffer(iface
);
1945 ULONG refCount
= InterlockedDecrement(&This
->ref
);
1947 TRACE("(%p)->(ref before=%u)\n", This
, refCount
+ 1);
1951 IRpcStubBuffer_Disconnect(iface
);
1952 ITypeInfo_Release(This
->tinfo
);
1953 if (This
->dispatch_stub
)
1954 IRpcStubBuffer_Release(This
->dispatch_stub
);
1955 CoTaskMemFree(This
);
1960 static HRESULT WINAPI
1961 TMStubImpl_Connect(LPRPCSTUBBUFFER iface
, LPUNKNOWN pUnkServer
)
1963 TMStubImpl
*This
= impl_from_IRpcStubBuffer(iface
);
1965 TRACE("(%p)->(%p)\n", This
, pUnkServer
);
1967 IUnknown_AddRef(pUnkServer
);
1968 This
->pUnk
= pUnkServer
;
1970 if (This
->dispatch_stub
)
1971 IRpcStubBuffer_Connect(This
->dispatch_stub
, pUnkServer
);
1977 TMStubImpl_Disconnect(LPRPCSTUBBUFFER iface
)
1979 TMStubImpl
*This
= impl_from_IRpcStubBuffer(iface
);
1981 TRACE("(%p)->()\n", This
);
1985 IUnknown_Release(This
->pUnk
);
1989 if (This
->dispatch_stub
)
1990 IRpcStubBuffer_Disconnect(This
->dispatch_stub
);
1993 static HRESULT WINAPI
1995 LPRPCSTUBBUFFER iface
, RPCOLEMESSAGE
* xmsg
,IRpcChannelBuffer
*rpcchanbuf
)
1999 const FUNCDESC
*fdesc
;
2000 TMStubImpl
*This
= impl_from_IRpcStubBuffer(iface
);
2002 DWORD
*args
= NULL
, res
, *xargs
, nrofargs
;
2007 ITypeInfo
*tinfo
= NULL
;
2011 if (xmsg
->iMethod
< 3) {
2012 ERR("IUnknown methods cannot be marshaled by the typelib marshaler\n");
2013 return E_UNEXPECTED
;
2016 if (This
->dispatch_derivative
&& xmsg
->iMethod
< sizeof(IDispatchVtbl
)/sizeof(void *))
2018 if (!This
->dispatch_stub
)
2020 IPSFactoryBuffer
*factory_buffer
;
2021 hres
= get_facbuf_for_iid(&IID_IDispatch
, &factory_buffer
);
2024 hres
= IPSFactoryBuffer_CreateStub(factory_buffer
, &IID_IDispatch
,
2025 This
->pUnk
, &This
->dispatch_stub
);
2026 IPSFactoryBuffer_Release(factory_buffer
);
2031 return IRpcStubBuffer_Invoke(This
->dispatch_stub
, xmsg
, rpcchanbuf
);
2034 memset(&buf
,0,sizeof(buf
));
2035 buf
.size
= xmsg
->cbBuffer
;
2036 buf
.base
= HeapAlloc(GetProcessHeap(), 0, xmsg
->cbBuffer
);
2037 memcpy(buf
.base
, xmsg
->Buffer
, xmsg
->cbBuffer
);
2040 hres
= get_funcdesc(This
->tinfo
,xmsg
->iMethod
,&tinfo
,&fdesc
,&iname
,NULL
,NULL
);
2042 ERR("GetFuncDesc on method %d failed with %x\n",xmsg
->iMethod
,hres
);
2046 if (iname
&& !lstrcmpW(iname
, IDispatchW
))
2048 ERR("IDispatch cannot be marshaled by the typelib marshaler\n");
2049 hres
= E_UNEXPECTED
;
2050 SysFreeString (iname
);
2054 SysFreeString (iname
);
2056 /* Need them for hack below */
2057 memset(names
,0,sizeof(names
));
2058 ITypeInfo_GetNames(tinfo
,fdesc
->memid
,names
,sizeof(names
)/sizeof(names
[0]),&nrofnames
);
2059 if (nrofnames
> sizeof(names
)/sizeof(names
[0])) {
2060 ERR("Need more names!\n");
2063 /*dump_FUNCDESC(fdesc);*/
2065 for (i
=0;i
<fdesc
->cParams
;i
++)
2066 nrofargs
+= _argsize(&fdesc
->lprgelemdescParam
[i
].tdesc
, tinfo
);
2067 args
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,(nrofargs
+1)*sizeof(DWORD
));
2070 hres
= E_OUTOFMEMORY
;
2074 /* Allocate all stuff used by call. */
2076 for (i
=0;i
<fdesc
->cParams
;i
++) {
2077 ELEMDESC
*elem
= fdesc
->lprgelemdescParam
+i
;
2079 hres
= deserialize_param(
2088 xargs
+= _argsize(&elem
->tdesc
, tinfo
);
2090 ERR("Failed to deserialize param %s, hres %x\n",relaystr(names
[i
+1]),hres
);
2095 args
[0] = (DWORD
)This
->pUnk
;
2100 (*((FARPROC
**)args
[0]))[fdesc
->oVft
/4],
2108 DWORD dwExceptionCode
= GetExceptionCode();
2109 ERR("invoke call failed with exception 0x%08x (%d)\n", dwExceptionCode
, dwExceptionCode
);
2110 if (FAILED(dwExceptionCode
))
2111 hres
= dwExceptionCode
;
2113 hres
= HRESULT_FROM_WIN32(dwExceptionCode
);
2123 for (i
=0;i
<fdesc
->cParams
;i
++) {
2124 ELEMDESC
*elem
= fdesc
->lprgelemdescParam
+i
;
2125 hres
= serialize_param(
2134 xargs
+= _argsize(&elem
->tdesc
, tinfo
);
2136 ERR("Failed to stuballoc param, hres %x\n",hres
);
2141 hres
= xbuf_add (&buf
, (LPBYTE
)&res
, sizeof(DWORD
));
2146 xmsg
->cbBuffer
= buf
.curoff
;
2147 hres
= IRpcChannelBuffer_GetBuffer(rpcchanbuf
, xmsg
, &This
->iid
);
2149 ERR("IRpcChannelBuffer_GetBuffer failed with error 0x%08x\n", hres
);
2152 memcpy(xmsg
->Buffer
, buf
.base
, buf
.curoff
);
2155 for (i
= 0; i
< nrofnames
; i
++)
2156 SysFreeString(names
[i
]);
2158 ITypeInfo_Release(tinfo
);
2159 HeapFree(GetProcessHeap(), 0, args
);
2161 HeapFree(GetProcessHeap(), 0, buf
.base
);
2163 TRACE("returning\n");
2166 FIXME( "not implemented on non-i386\n" );
2171 static LPRPCSTUBBUFFER WINAPI
2172 TMStubImpl_IsIIDSupported(LPRPCSTUBBUFFER iface
, REFIID riid
) {
2173 FIXME("Huh (%s)?\n",debugstr_guid(riid
));
2178 TMStubImpl_CountRefs(LPRPCSTUBBUFFER iface
) {
2179 TMStubImpl
*This
= impl_from_IRpcStubBuffer(iface
);
2182 return This
->ref
; /*FIXME? */
2185 static HRESULT WINAPI
2186 TMStubImpl_DebugServerQueryInterface(LPRPCSTUBBUFFER iface
, LPVOID
*ppv
) {
2191 TMStubImpl_DebugServerRelease(LPRPCSTUBBUFFER iface
, LPVOID ppv
) {
2195 static const IRpcStubBufferVtbl tmstubvtbl
= {
2196 TMStubImpl_QueryInterface
,
2200 TMStubImpl_Disconnect
,
2202 TMStubImpl_IsIIDSupported
,
2203 TMStubImpl_CountRefs
,
2204 TMStubImpl_DebugServerQueryInterface
,
2205 TMStubImpl_DebugServerRelease
2208 static HRESULT WINAPI
2209 PSFacBuf_CreateStub(
2210 LPPSFACTORYBUFFER iface
, REFIID riid
,IUnknown
*pUnkServer
,
2211 IRpcStubBuffer
** ppStub
2218 TRACE("(%s,%p,%p)\n",debugstr_guid(riid
),pUnkServer
,ppStub
);
2220 hres
= _get_typeinfo_for_iid(riid
,&tinfo
);
2222 ERR("No typeinfo for %s?\n",debugstr_guid(riid
));
2226 stub
= CoTaskMemAlloc(sizeof(TMStubImpl
));
2228 return E_OUTOFMEMORY
;
2229 stub
->IRpcStubBuffer_iface
.lpVtbl
= &tmstubvtbl
;
2231 stub
->tinfo
= tinfo
;
2232 stub
->dispatch_stub
= NULL
;
2233 stub
->dispatch_derivative
= FALSE
;
2235 hres
= IRpcStubBuffer_Connect(&stub
->IRpcStubBuffer_iface
,pUnkServer
);
2236 *ppStub
= &stub
->IRpcStubBuffer_iface
;
2237 TRACE("IRpcStubBuffer: %p\n", stub
);
2239 ERR("Connect to pUnkServer failed?\n");
2241 /* if we derive from IDispatch then defer to its stub for some of its methods */
2242 hres
= ITypeInfo_GetTypeAttr(tinfo
, &typeattr
);
2245 if (typeattr
->wTypeFlags
& TYPEFLAG_FDISPATCHABLE
)
2246 stub
->dispatch_derivative
= TRUE
;
2247 ITypeInfo_ReleaseTypeAttr(tinfo
, typeattr
);
2253 static const IPSFactoryBufferVtbl psfacbufvtbl
= {
2254 PSFacBuf_QueryInterface
,
2257 PSFacBuf_CreateProxy
,
2261 /* This is the whole PSFactoryBuffer object, just the vtableptr */
2262 static const IPSFactoryBufferVtbl
*lppsfac
= &psfacbufvtbl
;
2264 /***********************************************************************
2265 * TMARSHAL_DllGetClassObject
2267 HRESULT
TMARSHAL_DllGetClassObject(REFCLSID rclsid
, REFIID iid
,LPVOID
*ppv
)
2269 if (IsEqualIID(iid
,&IID_IPSFactoryBuffer
)) {
2273 return E_NOINTERFACE
;