4 * Copyright 2002 Marcus Meissner
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
35 #include "wine/unicode.h"
36 #include "wine/obj_base.h"
37 #include "wine/obj_channel.h"
38 #include "wine/obj_storage.h"
42 #include "wine/debug.h"
45 static const WCHAR riidW
[5] = {'r','i','i','d',0};
46 static const WCHAR pdispparamsW
[] = {'p','d','i','s','p','p','a','r','a','m','s',0};
47 static const WCHAR ppvObjectW
[] = {'p','p','v','O','b','j','e','c','t',0};
49 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
50 WINE_DECLARE_DEBUG_CHANNEL(olerelay
);
52 typedef struct _marshal_state
{
58 IID iid
; /* HACK: for VT_VOID */
62 xbuf_add(marshal_state
*buf
, LPBYTE stuff
, DWORD size
) {
63 while (buf
->size
- buf
->curoff
< size
) {
66 buf
->base
= HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,buf
->base
,buf
->size
);
70 buf
->base
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,32);
76 memcpy(buf
->base
+buf
->curoff
,stuff
,size
);
82 xbuf_get(marshal_state
*buf
, LPBYTE stuff
, DWORD size
) {
83 if (buf
->size
< buf
->curoff
+size
) return E_FAIL
;
84 memcpy(stuff
,buf
->base
+buf
->curoff
,size
);
90 xbuf_skip(marshal_state
*buf
, DWORD size
) {
91 if (buf
->size
< buf
->curoff
+size
) return E_FAIL
;
97 _unmarshal_interface(marshal_state
*buf
, REFIID riid
, LPUNKNOWN
*pUnk
) {
99 ULARGE_INTEGER newpos
;
100 LARGE_INTEGER seekto
;
105 TRACE("...%s...\n",debugstr_guid(riid
));
107 hres
= xbuf_get(buf
,(LPBYTE
)&xsize
,sizeof(xsize
));
108 if (hres
) return hres
;
109 if (xsize
== 0) return S_OK
;
110 hres
= CreateStreamOnHGlobal(0,TRUE
,&pStm
);
112 FIXME("Stream create failed %lx\n",hres
);
115 hres
= IStream_Write(pStm
,buf
->base
+buf
->curoff
,xsize
,&res
);
116 if (hres
) { FIXME("stream write %lx\n",hres
); return hres
; }
117 memset(&seekto
,0,sizeof(seekto
));
118 hres
= IStream_Seek(pStm
,seekto
,SEEK_SET
,&newpos
);
119 if (hres
) { FIXME("Failed Seek %lx\n",hres
); return hres
;}
120 hres
= CoUnmarshalInterface(pStm
,riid
,(LPVOID
*)pUnk
);
122 FIXME("Marshaling interface %s failed with %lx\n",debugstr_guid(riid
),hres
);
125 IStream_Release(pStm
);
126 return xbuf_skip(buf
,xsize
);
130 _marshal_interface(marshal_state
*buf
, REFIID riid
, LPUNKNOWN pUnk
) {
135 ULARGE_INTEGER newpos
;
136 LARGE_INTEGER seekto
;
145 TRACE("...%s...\n",debugstr_guid(riid
));
146 hres
=IUnknown_QueryInterface(pUnk
,riid
,(LPVOID
*)&newiface
);
148 TRACE("%p does not support iface %s\n",pUnk
,debugstr_guid(riid
));
151 hres
= CreateStreamOnHGlobal(0,TRUE
,&pStm
);
153 FIXME("Stream create failed %lx\n",hres
);
156 hres
= CoMarshalInterface(pStm
,riid
,newiface
,0,NULL
,0);
157 IUnknown_Release(newiface
);
159 FIXME("Marshaling interface %s failed with %lx\n",
160 debugstr_guid(riid
),hres
164 hres
= IStream_Stat(pStm
,&ststg
,0);
165 tempbuf
= HeapAlloc(GetProcessHeap(), 0, ststg
.cbSize
.s
.LowPart
);
166 memset(&seekto
,0,sizeof(seekto
));
167 hres
= IStream_Seek(pStm
,seekto
,SEEK_SET
,&newpos
);
168 if (hres
) { FIXME("Failed Seek %lx\n",hres
); goto fail
;}
169 hres
= IStream_Read(pStm
,tempbuf
,ststg
.cbSize
.s
.LowPart
,&res
);
170 if (hres
) { FIXME("Failed Read %lx\n",hres
); goto fail
;}
171 IStream_Release(pStm
);
172 xsize
= ststg
.cbSize
.s
.LowPart
;
173 xbuf_add(buf
,(LPBYTE
)&xsize
,sizeof(xsize
));
174 hres
= xbuf_add(buf
,tempbuf
,ststg
.cbSize
.s
.LowPart
);
175 HeapFree(GetProcessHeap(),0,tempbuf
);
179 xbuf_add(buf
,(LPBYTE
)&xsize
,sizeof(xsize
));
183 /********************* OLE Proxy/Stub Factory ********************************/
184 static HRESULT WINAPI
185 PSFacBuf_QueryInterface(LPPSFACTORYBUFFER iface
, REFIID iid
, LPVOID
*ppv
) {
186 if (IsEqualIID(iid
,&IID_IPSFactoryBuffer
)||IsEqualIID(iid
,&IID_IUnknown
)) {
187 *ppv
= (LPVOID
)iface
;
188 /* No ref counting, static class */
191 FIXME("(%s) unknown IID?\n",debugstr_guid(iid
));
192 return E_NOINTERFACE
;
195 static ULONG WINAPI
PSFacBuf_AddRef(LPPSFACTORYBUFFER iface
) { return 2; }
196 static ULONG WINAPI
PSFacBuf_Release(LPPSFACTORYBUFFER iface
) { return 1; }
199 _get_typeinfo_for_iid(REFIID riid
, ITypeInfo
**ti
) {
202 char tlguid
[200],typelibkey
[300],interfacekey
[300],ver
[100];
205 DWORD tlguidlen
, verlen
, type
, tlfnlen
;
208 sprintf( interfacekey
, "Interface\\{%08lx-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}\\Typelib",
209 riid
->Data1
, riid
->Data2
, riid
->Data3
,
210 riid
->Data4
[0], riid
->Data4
[1], riid
->Data4
[2], riid
->Data4
[3],
211 riid
->Data4
[4], riid
->Data4
[5], riid
->Data4
[6], riid
->Data4
[7]
214 if (RegOpenKeyA(HKEY_CLASSES_ROOT
,interfacekey
,&ikey
)) {
215 FIXME("No %s key found.\n",interfacekey
);
219 tlguidlen
= sizeof(tlguid
);
220 if (RegQueryValueExA(ikey
,NULL
,NULL
,&type
,tlguid
,&tlguidlen
)) {
221 FIXME("Getting typelib guid failed.\n");
226 verlen
= sizeof(ver
);
227 if (RegQueryValueExA(ikey
,"Version",NULL
,&type
,ver
,&verlen
)) {
228 FIXME("Could not get version value?\n");
233 sprintf(typelibkey
,"Typelib\\%s\\%s\\0\\win32",tlguid
,ver
);
234 tlfnlen
= sizeof(tlfn
);
235 if (RegQueryValueA(HKEY_CLASSES_ROOT
,typelibkey
,tlfn
,&tlfnlen
)) {
236 FIXME("Could not get typelib fn?\n");
239 MultiByteToWideChar(CP_ACP
, 0, tlfn
, -1, tlfnW
, -1);
240 hres
= LoadTypeLib(tlfnW
,&tl
);
242 ERR("Failed to load typelib for %s, but it should be there.\n",debugstr_guid(riid
));
245 hres
= ITypeLib_GetTypeInfoOfGuid(tl
,riid
,ti
);
247 ERR("typelib does not contain info for %s?\n",debugstr_guid(riid
));
248 ITypeLib_Release(tl
);
251 /* FIXME: do this? ITypeLib_Release(tl); */
255 /* Determine nr of functions. Since we use the toplevel interface and all
256 * inherited ones have lower numbers, we are ok to not to descent into
257 * the inheritance tree I think.
259 static int _nroffuncs(ITypeInfo
*tinfo
) {
266 hres
= ITypeInfo_GetFuncDesc(tinfo
,n
,&fdesc
);
267 if (fdesc
->oVft
/4 > max
)
276 typedef struct _TMAsmProxy
{
285 } WINE_PACKED TMAsmProxy
;
287 typedef struct _TMProxyImpl
{
289 ICOM_VTABLE(IRpcProxyBuffer
) *lpvtbl2
;
292 TMAsmProxy
*asmstubs
;
294 IRpcChannelBuffer
* chanbuf
;
298 static HRESULT WINAPI
299 TMProxyImpl_QueryInterface(LPRPCPROXYBUFFER iface
, REFIID riid
, LPVOID
*ppv
) {
301 if (IsEqualIID(riid
,&IID_IUnknown
)||IsEqualIID(riid
,&IID_IRpcProxyBuffer
)) {
302 *ppv
= (LPVOID
)iface
;
303 IRpcProxyBuffer_AddRef(iface
);
306 FIXME("no interface for %s\n",debugstr_guid(riid
));
307 return E_NOINTERFACE
;
311 TMProxyImpl_AddRef(LPRPCPROXYBUFFER iface
) {
312 ICOM_THIS_MULTI(TMProxyImpl
,lpvtbl2
,iface
);
320 TMProxyImpl_Release(LPRPCPROXYBUFFER iface
) {
321 ICOM_THIS_MULTI(TMProxyImpl
,lpvtbl2
,iface
);
325 if (This
->ref
) return This
->ref
;
326 if (This
->chanbuf
) IRpcChannelBuffer_Release(This
->chanbuf
);
327 HeapFree(GetProcessHeap(),0,This
);
331 static HRESULT WINAPI
333 LPRPCPROXYBUFFER iface
,IRpcChannelBuffer
* pRpcChannelBuffer
335 ICOM_THIS_MULTI(TMProxyImpl
,lpvtbl2
,iface
);
337 TRACE("(%p)\n",pRpcChannelBuffer
);
338 This
->chanbuf
= pRpcChannelBuffer
;
339 IRpcChannelBuffer_AddRef(This
->chanbuf
);
344 TMProxyImpl_Disconnect(LPRPCPROXYBUFFER iface
) {
345 ICOM_THIS_MULTI(TMProxyImpl
,lpvtbl2
,iface
);
348 IRpcChannelBuffer_Release(This
->chanbuf
);
349 This
->chanbuf
= NULL
;
353 static ICOM_VTABLE(IRpcProxyBuffer
) tmproxyvtable
= {
354 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
355 TMProxyImpl_QueryInterface
,
359 TMProxyImpl_Disconnect
362 /* how much space do we use on stack in DWORD steps. */
367 return sizeof(DATE
)/sizeof(DWORD
);
369 return (sizeof(VARIANT
)+3)/sizeof(DWORD
);
376 _xsize(TYPEDESC
*td
) {
381 return sizeof(VARIANT
)+3;
384 ARRAYDESC
*adesc
= td
->u
.lpadesc
;
386 for (i
=0;i
<adesc
->cDims
;i
++)
387 arrsize
*= adesc
->rgbounds
[i
].cElements
;
388 return arrsize
*_xsize(&adesc
->tdescElem
);
413 TRACE("(tdesc.vt %d)\n",tdesc
->vt
);
416 case VT_EMPTY
: /* nothing. empty variant for instance */
426 if (debugout
) MESSAGE("%lx",*arg
);
428 hres
= xbuf_add(buf
,(LPBYTE
)arg
,sizeof(DWORD
));
432 VARIANT
*vt
= (VARIANT
*)arg
;
433 DWORD vttype
= V_VT(vt
);
435 if (debugout
) MESSAGE("Vt(%ld)(",vttype
);
438 hres
= xbuf_add(buf
,(LPBYTE
)&vttype
,sizeof(vttype
));
439 if (hres
) return hres
;
441 /* need to recurse since we need to free the stuff */
442 hres
= serialize_param(tinfo
,writeit
,debugout
,dealloc
,&tdesc2
,&(V_I4(vt
)),buf
);
443 if (debugout
) MESSAGE(")");
449 MESSAGE("%s",debugstr_w((BSTR
)*arg
));
451 MESSAGE("<bstr NULL>");
456 hres
= xbuf_add(buf
,(LPBYTE
)&fakelen
,4);
460 DWORD
*bstr
= ((DWORD
*)(*arg
))-1;
462 hres
= xbuf_add(buf
,(LPBYTE
)bstr
,bstr
[0]+4);
468 SysFreeString((BSTR
)arg
);
474 if (debugout
) MESSAGE("*");
476 cookie
= *arg
? 0x42424242 : 0;
477 hres
= xbuf_add(buf
,(LPBYTE
)&cookie
,sizeof(cookie
));
482 if (debugout
) MESSAGE("NULL");
485 hres
= serialize_param(tinfo
,writeit
,debugout
,dealloc
,tdesc
->u
.lptdesc
,(DWORD
*)*arg
,buf
);
486 if (dealloc
) HeapFree(GetProcessHeap(),0,(LPVOID
)arg
);
490 if (debugout
) MESSAGE("unk(0x%lx)",*arg
);
492 hres
= _marshal_interface(buf
,&IID_IUnknown
,(LPUNKNOWN
)*arg
);
495 if (debugout
) MESSAGE("idisp(0x%lx)",*arg
);
497 hres
= _marshal_interface(buf
,&IID_IDispatch
,(LPUNKNOWN
)*arg
);
500 if (debugout
) MESSAGE("<void>");
502 case VT_USERDEFINED
: {
506 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,tdesc
->u
.hreftype
,&tinfo2
);
508 FIXME("Could not get typeinfo of hreftype %lx for VT_USERDEFINED.\n",tdesc
->u
.hreftype
);
511 ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
512 switch (tattr
->typekind
) {
513 case TKIND_INTERFACE
:
515 hres
=_marshal_interface(buf
,&(tattr
->guid
),(LPUNKNOWN
)arg
);
519 if (debugout
) MESSAGE("{");
520 for (i
=0;i
<tattr
->cVars
;i
++) {
525 hres
= ITypeInfo2_GetVarDesc(tinfo2
, i
, &vdesc
);
527 FIXME("Could not get vardesc of %d\n",i
);
530 /* Need them for hack below */
532 memset(names,0,sizeof(names));
533 hres = ITypeInfo_GetNames(tinfo2,vdesc->memid,names,sizeof(names)/sizeof(names[0]),&nrofnames);
534 if (nrofnames > sizeof(names)/sizeof(names[0])) {
535 ERR("Need more names!\n");
537 if (!hres && debugout)
538 MESSAGE("%s=",debugstr_w(names[0]));
540 elem2
= &vdesc
->elemdescVar
;
541 tdesc2
= &elem2
->tdesc
;
542 hres
= serialize_param(
548 (DWORD
*)(((LPBYTE
)arg
)+vdesc
->u
.oInst
),
553 if (debugout
&& (i
<(tattr
->cVars
-1)))
556 if (buf
->thisisiid
&& (tattr
->cbSizeInstance
==sizeof(GUID
)))
557 memcpy(&(buf
->iid
),arg
,sizeof(buf
->iid
));
558 if (debugout
) MESSAGE("}");
562 FIXME("Don't know how to marshal type kind %d\n",tattr
->typekind
);
566 ITypeInfo_Release(tinfo2
);
570 ARRAYDESC
*adesc
= tdesc
->u
.lpadesc
;
573 if (debugout
) MESSAGE("carr");
574 for (i
=0;i
<adesc
->cDims
;i
++) {
575 if (debugout
) MESSAGE("[%ld]",adesc
->rgbounds
[i
].cElements
);
576 arrsize
*= adesc
->rgbounds
[i
].cElements
;
578 if (debugout
) MESSAGE("[");
579 for (i
=0;i
<arrsize
;i
++) {
580 hres
= serialize_param(tinfo
, writeit
, debugout
, dealloc
, &adesc
->tdescElem
, (DWORD
*)((LPBYTE
)arg
+i
*_xsize(&adesc
->tdescElem
)), buf
);
583 if (debugout
&& (i
<arrsize
-1)) MESSAGE(",");
585 if (debugout
) MESSAGE("]");
589 ERR("Unhandled marshal type %d.\n",tdesc
->vt
);
595 serialize_LPVOID_ptr(
607 if ((tdesc
->vt
!= VT_PTR
) ||
608 (tdesc
->u
.lptdesc
->vt
!= VT_PTR
) ||
609 (tdesc
->u
.lptdesc
->u
.lptdesc
->vt
!= VT_VOID
)
611 FIXME("ppvObject not expressed as VT_PTR -> VT_PTR -> VT_VOID?\n");
614 cookie
= (*arg
) ? 0x42424242: 0x0;
616 hres
= xbuf_add(buf
, (LPVOID
)&cookie
, sizeof(cookie
));
621 if (debugout
) MESSAGE("<lpvoid NULL>");
625 MESSAGE("ppv(%p)",*(LPUNKNOWN
*)*arg
);
627 hres
= _marshal_interface(buf
,&(buf
->iid
),*(LPUNKNOWN
*)*arg
);
632 HeapFree(GetProcessHeap(),0,(LPVOID
)*arg
);
637 serialize_DISPPARAM_ptr(
651 if ((tdesc
->vt
!= VT_PTR
) || (tdesc
->u
.lptdesc
->vt
!= VT_USERDEFINED
)) {
652 FIXME("DISPPARAMS not expressed as VT_PTR -> VT_USERDEFINED?\n");
656 cookie
= *arg
? 0x42424242 : 0x0;
658 hres
= xbuf_add(buf
,(LPBYTE
)&cookie
,sizeof(cookie
));
663 if (debugout
) MESSAGE("<DISPPARAMS NULL>");
666 disp
= (DISPPARAMS
*)*arg
;
668 hres
= xbuf_add(buf
,(LPBYTE
)&disp
->cArgs
,sizeof(disp
->cArgs
));
672 if (debugout
) MESSAGE("D{");
673 for (i
=0;i
<disp
->cArgs
;i
++) {
676 vtdesc
.vt
= VT_VARIANT
;
683 (DWORD
*)(disp
->rgvarg
+i
),
686 if (debugout
&& (i
<disp
->cArgs
-1))
690 HeapFree(GetProcessHeap(),0,disp
->rgvarg
);
692 hres
= xbuf_add(buf
,(LPBYTE
)&disp
->cNamedArgs
,sizeof(disp
->cNamedArgs
));
696 if (debugout
) MESSAGE("}{");
697 for (i
=0;i
<disp
->cNamedArgs
;i
++) {
707 (DWORD
*)(disp
->rgdispidNamedArgs
+i
),
710 if (debugout
&& (i
<disp
->cNamedArgs
-1))
713 if (debugout
) MESSAGE("}");
715 HeapFree(GetProcessHeap(),0,disp
->rgdispidNamedArgs
);
716 HeapFree(GetProcessHeap(),0,disp
);
733 TRACE("vt %d at %p\n",tdesc
->vt
,arg
);
738 if (debugout
) MESSAGE("<empty>");
741 if (debugout
) MESSAGE("<null>");
744 VARIANT
*vt
= (VARIANT
*)arg
;
749 hres
= xbuf_get(buf
,(LPBYTE
)&vttype
,sizeof(vttype
));
751 FIXME("vt type not read?\n");
754 memset(&tdesc2
,0,sizeof(tdesc2
));
757 if (debugout
) MESSAGE("Vt(%ld)(",vttype
);
758 hres
= deserialize_param(tinfo
, readit
, debugout
, alloc
, &tdesc2
, &(V_I4(vt
)), buf
);
767 case VT_BOOL
: case VT_I4
: case VT_UI4
: case VT_UINT
:
771 hres
= xbuf_get(buf
,(LPBYTE
)arg
,sizeof(DWORD
));
772 if (hres
) FIXME("Failed to read integer 4 byte\n");
774 if (debugout
) MESSAGE("%lx",*arg
);
781 hres
= xbuf_get(buf
,(LPBYTE
)&len
,sizeof(DWORD
));
783 FIXME("failed to read bstr klen\n");
788 if (debugout
) MESSAGE("<bstr NULL>");
790 str
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,len
+sizeof(WCHAR
));
791 hres
= xbuf_get(buf
,(LPBYTE
)str
,len
);
793 FIXME("Failed to read BSTR.\n");
796 *arg
= (DWORD
)SysAllocStringLen(str
,len
);
797 if (debugout
) MESSAGE("%s",debugstr_w(str
));
798 HeapFree(GetProcessHeap(),0,str
);
809 derefhere
= (tdesc
->u
.lptdesc
->vt
!= VT_USERDEFINED
);
812 hres
= xbuf_get(buf
,(LPBYTE
)&cookie
,sizeof(cookie
));
814 FIXME("Failed to load pointer cookie.\n");
817 if (cookie
!= 0x42424242) {
818 if (debugout
) MESSAGE("NULL");
822 if (debugout
) MESSAGE("*");
826 *arg
=(DWORD
)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,_xsize(tdesc
->u
.lptdesc
));
829 return deserialize_param(tinfo
, readit
, debugout
, alloc
, tdesc
->u
.lptdesc
, (LPDWORD
)*arg
, buf
);
831 return deserialize_param(tinfo
, readit
, debugout
, alloc
, tdesc
->u
.lptdesc
, arg
, buf
);
834 /* FIXME: UNKNOWN is unknown ..., but allocate 4 byte for it */
836 *arg
=(DWORD
)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(DWORD
));
839 hres
= _unmarshal_interface(buf
,&IID_IUnknown
,(LPUNKNOWN
*)arg
);
841 MESSAGE("unk(%p)",arg
);
846 hres
= _unmarshal_interface(buf
,&IID_IDispatch
,(LPUNKNOWN
*)arg
);
848 MESSAGE("idisp(%p)",arg
);
851 if (debugout
) MESSAGE("<void>");
853 case VT_USERDEFINED
: {
857 hres
= ITypeInfo_GetRefTypeInfo(tinfo
,tdesc
->u
.hreftype
,&tinfo2
);
859 FIXME("Could not get typeinfo of hreftype %lx for VT_USERDEFINED.\n",tdesc
->u
.hreftype
);
862 hres
= ITypeInfo_GetTypeAttr(tinfo2
,&tattr
);
864 FIXME("Could not get typeattr in VT_USERDEFINED.\n");
867 *arg
= (DWORD
)HeapAlloc(GetProcessHeap(),0,tattr
->cbSizeInstance
);
868 switch (tattr
->typekind
) {
869 case TKIND_INTERFACE
:
871 hres
= _unmarshal_interface(buf
,&(tattr
->guid
),(LPUNKNOWN
*)arg
);
876 if (debugout
) MESSAGE("{");
877 for (i
=0;i
<tattr
->cVars
;i
++) {
880 hres
= ITypeInfo2_GetVarDesc(tinfo2
, i
, &vdesc
);
882 FIXME("Could not get vardesc of %d\n",i
);
885 hres
= deserialize_param(
890 &vdesc
->elemdescVar
.tdesc
,
891 (DWORD
*)(((LPBYTE
)*arg
)+vdesc
->u
.oInst
),
894 if (debugout
&& (i
<tattr
->cVars
-1)) MESSAGE(",");
896 if (buf
->thisisiid
&& (tattr
->cbSizeInstance
==sizeof(GUID
)))
897 memcpy(&(buf
->iid
),(LPBYTE
)*arg
,sizeof(buf
->iid
));
898 if (debugout
) MESSAGE("}");
902 FIXME("Don't know how to marshal type kind %d\n",tattr
->typekind
);
908 FIXME("failed to stuballoc in TKIND_RECORD.\n");
909 ITypeInfo_Release(tinfo2
);
913 /* arg is pointing to the start of the array. */
914 ARRAYDESC
*adesc
= tdesc
->u
.lpadesc
;
917 if (adesc
->cDims
> 1) FIXME("cDims > 1 in VT_CARRAY. Does it work?\n");
918 for (i
=0;i
<adesc
->cDims
;i
++)
919 arrsize
*= adesc
->rgbounds
[i
].cElements
;
920 for (i
=0;i
<arrsize
;i
++)
927 (DWORD
*)((LPBYTE
)(arg
)+i
*_xsize(&adesc
->tdescElem
)),
933 ERR("No handler for VT type %d!\n",tdesc
->vt
);
940 deserialize_LPVOID_ptr(
952 if ((tdesc
->vt
!= VT_PTR
) ||
953 (tdesc
->u
.lptdesc
->vt
!= VT_PTR
) ||
954 (tdesc
->u
.lptdesc
->u
.lptdesc
->vt
!= VT_VOID
)
956 FIXME("ppvObject not expressed as VT_PTR -> VT_PTR -> VT_VOID?\n");
960 *arg
=(DWORD
)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(LPVOID
));
962 hres
= xbuf_get(buf
, (LPVOID
)&cookie
, sizeof(cookie
));
965 if (cookie
!= 0x42424242) {
967 if (debugout
) MESSAGE("<lpvoid NULL>");
972 hres
= _unmarshal_interface(buf
,&buf
->iid
,(LPUNKNOWN
*)*arg
);
976 if (debugout
) MESSAGE("ppv(%p)",(LPVOID
)*arg
);
981 deserialize_DISPPARAM_ptr(
995 if ((tdesc
->vt
!= VT_PTR
) || (tdesc
->u
.lptdesc
->vt
!= VT_USERDEFINED
)) {
996 FIXME("DISPPARAMS not expressed as VT_PTR -> VT_USERDEFINED?\n");
1000 hres
= xbuf_get(buf
,(LPBYTE
)&cookie
,sizeof(cookie
));
1005 if (debugout
) MESSAGE("<DISPPARAMS NULL>");
1010 *arg
= (DWORD
)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(DISPPARAMS
));
1011 disps
= (DISPPARAMS
*)*arg
;
1014 hres
= xbuf_get(buf
, (LPBYTE
)&disps
->cArgs
, sizeof(disps
->cArgs
));
1018 disps
->rgvarg
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(VARIANT
)*disps
->cArgs
);
1019 if (debugout
) MESSAGE("D{");
1020 for (i
=0; i
< disps
->cArgs
; i
++) {
1023 vdesc
.vt
= VT_VARIANT
;
1024 hres
= deserialize_param(
1030 (DWORD
*)(disps
->rgvarg
+i
),
1034 if (debugout
) MESSAGE("}{");
1035 hres
= xbuf_get(buf
, (LPBYTE
)&disps
->cNamedArgs
, sizeof(disps
->cNamedArgs
));
1038 if (disps
->cNamedArgs
) {
1040 disps
->rgdispidNamedArgs
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(DISPID
)*disps
->cNamedArgs
);
1041 for (i
=0; i
< disps
->cNamedArgs
; i
++) {
1045 hres
= deserialize_param(
1051 (DWORD
*)(disps
->rgdispidNamedArgs
+i
),
1054 if (debugout
&& i
<(disps
->cNamedArgs
-1)) MESSAGE(",");
1057 if (debugout
) MESSAGE("}");
1061 /* Searches function, also in inherited interfaces */
1064 ITypeInfo
*tinfo
, int iMethod
, FUNCDESC
**fdesc
, BSTR
*iname
, BSTR
*fname
1069 if (fname
) *fname
= NULL
;
1070 if (iname
) *iname
= NULL
;
1073 hres
= ITypeInfo_GetFuncDesc(tinfo
, i
, fdesc
);
1079 hres
= ITypeInfo_GetTypeAttr(tinfo
, &attr
);
1081 FIXME("GetTypeAttr failed with %lx\n",hres
);
1084 /* Not found, so look in inherited ifaces. */
1085 for (j
=0;j
<attr
->cImplTypes
;j
++) {
1086 hres
= ITypeInfo_GetRefTypeOfImplType(tinfo
, j
, &href
);
1088 FIXME("Did not find a reftype for interface offset %d?\n",j
);
1091 hres
= ITypeInfo_GetRefTypeInfo(tinfo
, href
, &tinfo2
);
1093 FIXME("Did not find a typeinfo for reftype %ld?\n",href
);
1096 hres
= _get_funcdesc(tinfo2
,iMethod
,fdesc
,iname
,fname
);
1097 ITypeInfo_Release(tinfo2
);
1098 if (!hres
) return S_OK
;
1102 if (((*fdesc
)->oVft
/4) == iMethod
) {
1104 ITypeInfo_GetDocumentation(tinfo
,(*fdesc
)->memid
,fname
,NULL
,NULL
,NULL
);
1106 ITypeInfo_GetDocumentation(tinfo
,-1,iname
,NULL
,NULL
,NULL
);
1115 xCall(LPVOID retptr
, int method
, TMProxyImpl
*tpinfo
/*, args */) {
1116 DWORD
*args
= ((DWORD
*)&tpinfo
)+1, *xargs
;
1119 int i
, relaydeb
= TRACE_ON(olerelay
);
1127 hres
= _get_funcdesc(tpinfo
->tinfo
,method
,&fdesc
,&iname
,&fname
);
1129 ERR("Did not find typeinfo/funcdesc entry for method %d!\n",method
);
1133 /*dump_FUNCDESC(fdesc);*/
1135 TRACE_(olerelay
)("->");
1137 MESSAGE("%s:",debugstr_w(iname
));
1139 MESSAGE("%s(%d)",debugstr_w(fname
),method
);
1141 MESSAGE("%d",method
);
1143 if (iname
) SysFreeString(iname
);
1144 if (fname
) SysFreeString(fname
);
1146 /* Need them for hack below */
1147 memset(names
,0,sizeof(names
));
1148 if (ITypeInfo_GetNames(tpinfo
->tinfo
,fdesc
->memid
,names
,sizeof(names
)/sizeof(names
[0]),&nrofnames
))
1150 if (nrofnames
> sizeof(names
)/sizeof(names
[0]))
1151 ERR("Need more names!\n");
1153 memset(&buf
,0,sizeof(buf
));
1154 buf
.iid
= IID_IUnknown
;
1156 xbuf_add(&buf
,(LPBYTE
)args
[0],sizeof(IID
));
1157 if (relaydeb
) MESSAGE("riid=%s,[out]",debugstr_guid((REFIID
)args
[0]));
1160 for (i
=0;i
<fdesc
->cParams
;i
++) {
1161 ELEMDESC
*elem
= fdesc
->lprgelemdescParam
+i
;
1162 BOOL isserialized
= FALSE
;
1164 if (i
) MESSAGE(",");
1165 if (i
+1<nrofnames
&& names
[i
+1])
1166 MESSAGE("%s=",debugstr_w(names
[i
+1]));
1168 /* No need to marshal other data than FIN */
1169 if (!(elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FIN
)) {
1170 xargs
+=_argsize(elem
->tdesc
.vt
);
1171 if (relaydeb
) MESSAGE("[out]");
1174 if (((i
+1)<nrofnames
) && !IsBadStringPtrW(names
[i
+1],1)) {
1175 /* If the parameter is 'riid', we use it as interface IID
1176 * for a later ppvObject serialization.
1178 buf
.thisisiid
= !lstrcmpW(names
[i
+1],riidW
);
1180 /* DISPPARAMS* needs special serializer */
1181 if (!lstrcmpW(names
[i
+1],pdispparamsW
)) {
1182 hres
= serialize_DISPPARAM_ptr(
1184 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FIN
,
1191 isserialized
= TRUE
;
1193 if (!lstrcmpW(names
[i
+1],ppvObjectW
)) {
1194 hres
= serialize_LPVOID_ptr(
1196 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FIN
,
1204 isserialized
= TRUE
;
1208 hres
= serialize_param(
1210 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FIN
,
1219 FIXME("Failed to serialize param, hres %lx\n",hres
);
1222 xargs
+=_argsize(elem
->tdesc
.vt
);
1225 if (relaydeb
) MESSAGE(")");
1226 memset(&msg
,0,sizeof(msg
));
1227 msg
.cbBuffer
= buf
.curoff
;
1228 msg
.iMethod
= method
;
1229 hres
= IRpcChannelBuffer_GetBuffer(tpinfo
->chanbuf
,&msg
,&(tpinfo
->iid
));
1231 FIXME("RpcChannelBuffer GetBuffer failed, %lx\n",hres
);
1234 memcpy(msg
.Buffer
,buf
.base
,buf
.curoff
);
1235 if (relaydeb
) MESSAGE("\n");
1236 hres
= IRpcChannelBuffer_SendReceive(tpinfo
->chanbuf
,&msg
,&status
);
1238 FIXME("RpcChannelBuffer SendReceive failed, %lx\n",hres
);
1241 relaydeb
= TRACE_ON(olerelay
);
1242 if (relaydeb
) MESSAGE(" = %08lx (",status
);
1244 buf
.base
= HeapReAlloc(GetProcessHeap(),0,buf
.base
,msg
.cbBuffer
);
1246 buf
.base
= HeapAlloc(GetProcessHeap(),0,msg
.cbBuffer
);
1247 buf
.size
= msg
.cbBuffer
;
1248 memcpy(buf
.base
,msg
.Buffer
,buf
.size
);
1251 _unmarshal_interface(&buf
,(REFIID
)args
[0],(LPUNKNOWN
*)args
[1]);
1252 if (relaydeb
) MESSAGE("[in],%p",*((DWORD
**)args
[1]));
1255 for (i
=0;i
<fdesc
->cParams
;i
++) {
1256 ELEMDESC
*elem
= fdesc
->lprgelemdescParam
+i
;
1257 BOOL isdeserialized
= FALSE
;
1260 if (i
) MESSAGE(",");
1261 if (i
+1<nrofnames
&& names
[i
+1]) MESSAGE("%s=",debugstr_w(names
[i
+1]));
1263 /* No need to marshal other data than FOUT I think */
1264 if (!(elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FOUT
)) {
1265 xargs
+= _argsize(elem
->tdesc
.vt
);
1266 if (relaydeb
) MESSAGE("[in]");
1269 if (((i
+1)<nrofnames
) && !IsBadStringPtrW(names
[i
+1],1)) {
1270 /* If the parameter is 'riid', we use it as interface IID
1271 * for a later ppvObject serialization.
1273 buf
.thisisiid
= !lstrcmpW(names
[i
+1],riidW
);
1275 /* deserialize DISPPARAM */
1276 if (!lstrcmpW(names
[i
+1],pdispparamsW
)) {
1277 hres
= deserialize_DISPPARAM_ptr(
1279 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FOUT
,
1287 FIXME("Failed to deserialize DISPPARAM*, hres %lx\n",hres
);
1290 isdeserialized
= TRUE
;
1292 if (!lstrcmpW(names
[i
+1],ppvObjectW
)) {
1293 hres
= deserialize_LPVOID_ptr(
1295 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FOUT
,
1303 isdeserialized
= TRUE
;
1306 if (!isdeserialized
)
1307 hres
= deserialize_param(
1309 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FOUT
,
1317 FIXME("Failed to unmarshall param, hres %lx\n",hres
);
1320 xargs
+= _argsize(elem
->tdesc
.vt
);
1323 if (relaydeb
) MESSAGE(")\n\n");
1324 HeapFree(GetProcessHeap(),0,buf
.base
);
1328 static HRESULT WINAPI
1329 PSFacBuf_CreateProxy(
1330 LPPSFACTORYBUFFER iface
, IUnknown
* pUnkOuter
, REFIID riid
,
1331 IRpcProxyBuffer
**ppProxy
, LPVOID
*ppv
1339 TRACE("(...%s...)\n",debugstr_guid(riid
));
1340 hres
= _get_typeinfo_for_iid(riid
,&tinfo
);
1342 FIXME("No typeinfo for %s?\n",debugstr_guid(riid
));
1345 nroffuncs
= _nroffuncs(tinfo
);
1346 proxy
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(TMProxyImpl
));
1347 if (!proxy
) return E_OUTOFMEMORY
;
1348 proxy
->asmstubs
=HeapAlloc(GetProcessHeap(),0,sizeof(TMAsmProxy
)*nroffuncs
);
1350 assert(sizeof(TMAsmProxy
) == 12);
1352 proxy
->lpvtbl
= HeapAlloc(GetProcessHeap(),0,sizeof(LPBYTE
)*nroffuncs
);
1353 for (i
=0;i
<nroffuncs
;i
++) {
1355 TMAsmProxy
*xasm
= proxy
->asmstubs
+i
;
1357 /* nrofargs without This */
1359 case 0: nrofargs
= 2;
1361 case 1: case 2: nrofargs
= 0;
1365 hres
= _get_funcdesc(tinfo
,i
,&fdesc
,NULL
,NULL
);
1367 FIXME("GetFuncDesc %lx should not fail here.\n",hres
);
1370 /* some args take more than 4 byte on the stack */
1372 for (j
=0;j
<fdesc
->cParams
;j
++)
1373 nrofargs
+= _argsize(fdesc
->lprgelemdescParam
[j
].tdesc
.vt
);
1375 if (fdesc
->callconv
!= CC_STDCALL
) {
1376 ERR("calling convention is not stdcall????\n");
1382 /* popl %eax - return ptr
1389 * arg3 arg2 arg1 <method> <returnptr>
1391 xasm
->popleax
= 0x58;
1392 xasm
->pushlval
= 0x6a;
1394 xasm
->pushleax
= 0x50;
1395 xasm
->lcall
= 0xe8; /* relative jump */
1396 xasm
->xcall
= (DWORD
)xCall
;
1397 xasm
->xcall
-= (DWORD
)&(xasm
->lret
);
1399 xasm
->bytestopop
= (nrofargs
+2)*4; /* pop args, This, iMethod */
1400 proxy
->lpvtbl
[i
] = (DWORD
)xasm
;
1402 proxy
->lpvtbl2
= &tmproxyvtable
;
1404 proxy
->tinfo
= tinfo
;
1405 memcpy(&proxy
->iid
,riid
,sizeof(*riid
));
1406 *ppv
= (LPVOID
)proxy
;
1407 *ppProxy
= (IRpcProxyBuffer
*)&(proxy
->lpvtbl2
);
1411 typedef struct _TMStubImpl
{
1412 ICOM_VTABLE(IRpcStubBuffer
) *lpvtbl
;
1420 static HRESULT WINAPI
1421 TMStubImpl_QueryInterface(LPRPCSTUBBUFFER iface
, REFIID riid
, LPVOID
*ppv
) {
1422 if (IsEqualIID(riid
,&IID_IRpcStubBuffer
)||IsEqualIID(riid
,&IID_IUnknown
)){
1423 *ppv
= (LPVOID
)iface
;
1424 IRpcStubBuffer_AddRef(iface
);
1427 FIXME("%s, not supported IID.\n",debugstr_guid(riid
));
1428 return E_NOINTERFACE
;
1432 TMStubImpl_AddRef(LPRPCSTUBBUFFER iface
) {
1433 ICOM_THIS(TMStubImpl
,iface
);
1440 TMStubImpl_Release(LPRPCSTUBBUFFER iface
) {
1441 ICOM_THIS(TMStubImpl
,iface
);
1446 HeapFree(GetProcessHeap(),0,This
);
1450 static HRESULT WINAPI
1451 TMStubImpl_Connect(LPRPCSTUBBUFFER iface
, LPUNKNOWN pUnkServer
) {
1452 ICOM_THIS(TMStubImpl
,iface
);
1454 IUnknown_AddRef(pUnkServer
);
1455 This
->pUnk
= pUnkServer
;
1460 TMStubImpl_Disconnect(LPRPCSTUBBUFFER iface
) {
1461 ICOM_THIS(TMStubImpl
,iface
);
1463 IUnknown_Release(This
->pUnk
);
1468 static HRESULT WINAPI
1470 LPRPCSTUBBUFFER iface
, RPCOLEMESSAGE
* xmsg
,IRpcChannelBuffer
*rpcchanbuf
1474 ICOM_THIS(TMStubImpl
,iface
);
1476 DWORD
*args
, res
, *xargs
, nrofargs
;
1481 memset(&buf
,0,sizeof(buf
));
1482 buf
.size
= xmsg
->cbBuffer
;
1483 buf
.base
= xmsg
->Buffer
;
1485 buf
.iid
= IID_IUnknown
;
1488 if (xmsg
->iMethod
== 0) { /* QI */
1490 /* in: IID, out: <iface> */
1492 xbuf_get(&buf
,(LPBYTE
)&xiid
,sizeof(xiid
));
1494 hres
= _marshal_interface(&buf
,&xiid
,This
->pUnk
);
1495 xmsg
->Buffer
= buf
.base
; /* Might have been reallocated */
1496 xmsg
->cbBuffer
= buf
.size
;
1499 hres
= _get_funcdesc(This
->tinfo
,xmsg
->iMethod
,&fdesc
,NULL
,NULL
);
1501 FIXME("GetFuncDesc on method %ld failed with %lx\n",xmsg
->iMethod
,hres
);
1504 /* Need them for hack below */
1505 memset(names
,0,sizeof(names
));
1506 ITypeInfo_GetNames(This
->tinfo
,fdesc
->memid
,names
,sizeof(names
)/sizeof(names
[0]),&nrofnames
);
1507 if (nrofnames
> sizeof(names
)/sizeof(names
[0])) {
1508 ERR("Need more names!\n");
1511 /*dump_FUNCDESC(fdesc);*/
1513 for (i
=0;i
<fdesc
->cParams
;i
++)
1514 nrofargs
+= _argsize(fdesc
->lprgelemdescParam
[i
].tdesc
.vt
);
1515 args
= HeapAlloc(GetProcessHeap(),0,(nrofargs
+1)*sizeof(DWORD
));
1516 if (!args
) return E_OUTOFMEMORY
;
1518 /* Allocate all stuff used by call. */
1520 for (i
=0;i
<fdesc
->cParams
;i
++) {
1521 ELEMDESC
*elem
= fdesc
->lprgelemdescParam
+i
;
1522 BOOL isdeserialized
= FALSE
;
1524 if (((i
+1)<nrofnames
) && !IsBadStringPtrW(names
[i
+1],1)) {
1525 /* If the parameter is 'riid', we use it as interface IID
1526 * for a later ppvObject serialization.
1528 buf
.thisisiid
= !lstrcmpW(names
[i
+1],riidW
);
1530 /* deserialize DISPPARAM */
1531 if (!lstrcmpW(names
[i
+1],pdispparamsW
)) {
1532 hres
= deserialize_DISPPARAM_ptr(
1534 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FIN
,
1542 FIXME("Failed to deserialize DISPPARAM*, hres %lx\n",hres
);
1545 isdeserialized
= TRUE
;
1547 if (!lstrcmpW(names
[i
+1],ppvObjectW
)) {
1548 hres
= deserialize_LPVOID_ptr(
1550 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FOUT
,
1558 isdeserialized
= TRUE
;
1561 if (!isdeserialized
)
1562 hres
= deserialize_param(
1564 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FIN
,
1571 xargs
+= _argsize(elem
->tdesc
.vt
);
1573 FIXME("Failed to deserialize param %s, hres %lx\n",debugstr_w(names
[i
+1]),hres
);
1577 hres
= IUnknown_QueryInterface(This
->pUnk
,&(This
->iid
),(LPVOID
*)&(args
[0]));
1579 ERR("Does not support iface %s\n",debugstr_guid(&(This
->iid
)));
1583 (*((LPVOID
**)args
[0]))[fdesc
->oVft
/4],
1588 IUnknown_Release((LPUNKNOWN
)args
[0]);
1591 for (i
=0;i
<fdesc
->cParams
;i
++) {
1592 ELEMDESC
*elem
= fdesc
->lprgelemdescParam
+i
;
1593 BOOL isserialized
= FALSE
;
1595 if (((i
+1)<nrofnames
) && !IsBadStringPtrW(names
[i
+1],1)) {
1596 /* If the parameter is 'riid', we use it as interface IID
1597 * for a later ppvObject serialization.
1599 buf
.thisisiid
= !lstrcmpW(names
[i
+1],riidW
);
1601 /* DISPPARAMS* needs special serializer */
1602 if (!lstrcmpW(names
[i
+1],pdispparamsW
)) {
1603 hres
= serialize_DISPPARAM_ptr(
1605 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FOUT
,
1612 isserialized
= TRUE
;
1614 if (!lstrcmpW(names
[i
+1],ppvObjectW
)) {
1615 hres
= serialize_LPVOID_ptr(
1617 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FOUT
,
1625 isserialized
= TRUE
;
1629 hres
= serialize_param(
1631 elem
->u
.paramdesc
.wParamFlags
& PARAMFLAG_FOUT
,
1638 xargs
+= _argsize(elem
->tdesc
.vt
);
1640 FIXME("Failed to stuballoc param, hres %lx\n",hres
);
1644 /* might need to use IRpcChannelBuffer_GetBuffer ? */
1645 xmsg
->cbBuffer
= buf
.curoff
;
1646 xmsg
->Buffer
= buf
.base
;
1647 HeapFree(GetProcessHeap(),0,args
);
1651 static LPRPCSTUBBUFFER WINAPI
1652 TMStubImpl_IsIIDSupported(LPRPCSTUBBUFFER iface
, REFIID riid
) {
1653 FIXME("Huh (%s)?\n",debugstr_guid(riid
));
1658 TMStubImpl_CountRefs(LPRPCSTUBBUFFER iface
) {
1659 ICOM_THIS(TMStubImpl
,iface
);
1661 return This
->ref
; /*FIXME? */
1664 static HRESULT WINAPI
1665 TMStubImpl_DebugServerQueryInterface(LPRPCSTUBBUFFER iface
, LPVOID
*ppv
) {
1670 TMStubImpl_DebugServerRelease(LPRPCSTUBBUFFER iface
, LPVOID ppv
) {
1674 ICOM_VTABLE(IRpcStubBuffer
) tmstubvtbl
= {
1675 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
1676 TMStubImpl_QueryInterface
,
1680 TMStubImpl_Disconnect
,
1682 TMStubImpl_IsIIDSupported
,
1683 TMStubImpl_CountRefs
,
1684 TMStubImpl_DebugServerQueryInterface
,
1685 TMStubImpl_DebugServerRelease
1688 static HRESULT WINAPI
1689 PSFacBuf_CreateStub(
1690 LPPSFACTORYBUFFER iface
, REFIID riid
,IUnknown
*pUnkServer
,
1691 IRpcStubBuffer
** ppStub
1697 TRACE("(%s,%p,%p)\n",debugstr_guid(riid
),pUnkServer
,ppStub
);
1698 hres
= _get_typeinfo_for_iid(riid
,&tinfo
);
1700 FIXME("No typeinfo for %s?\n",debugstr_guid(riid
));
1703 stub
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,sizeof(TMStubImpl
));
1705 return E_OUTOFMEMORY
;
1706 stub
->lpvtbl
= &tmstubvtbl
;
1708 stub
->tinfo
= tinfo
;
1709 memcpy(&(stub
->iid
),riid
,sizeof(*riid
));
1710 hres
= IRpcStubBuffer_Connect((LPRPCSTUBBUFFER
)stub
,pUnkServer
);
1711 *ppStub
= (LPRPCSTUBBUFFER
)stub
;
1713 FIXME("Connect to pUnkServer failed?\n");
1717 static ICOM_VTABLE(IPSFactoryBuffer
) psfacbufvtbl
= {
1718 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
1719 PSFacBuf_QueryInterface
,
1722 PSFacBuf_CreateProxy
,
1726 /* This is the whole PSFactoryBuffer object, just the vtableptr */
1727 static ICOM_VTABLE(IPSFactoryBuffer
) *lppsfac
= &psfacbufvtbl
;
1729 /***********************************************************************
1730 * DllGetClassObject [OLE32.63]
1733 TypeLibFac_DllGetClassObject(REFCLSID rclsid
, REFIID iid
,LPVOID
*ppv
)
1735 if (IsEqualIID(iid
,&IID_IPSFactoryBuffer
)) {
1739 return E_NOINTERFACE
;