dlls/oleaut32/tests/tmarshal.c

   1 /*
   2  * Copyright (C) 2005-2006 Robert Shearman for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  *
  18  */
  19
  20 #define COBJMACROS
  21
  22 #include <windows.h>
  23 #include <ocidl.h>
  24 #include <stdio.h>
  25
  26 #include <wine/test.h>
  27
  28 #include "tmarshal.h"
  29 #include "tmarshal_dispids.h"
  30
  31 #define ok_ole_success(hr, func) ok(hr == S_OK, #func " failed with error 0x%08lx\n", (unsigned long int)hr)
  32
  33 /* Debugging functions from wine/libs/wine/debug.c */
  34
  35 /* allocate some tmp string space */
  36 /* FIXME: this is not 100% thread-safe */
  37 static char *get_tmp_space( int size )
  38 {
  39     static char *list[32];
  40     static long pos;
  41     char *ret;
  42     int idx;
  43
  44     idx = ++pos % (sizeof(list)/sizeof(list[0]));
  45     if ((ret = realloc( list[idx], size ))) list[idx] = ret;
  46     return ret;
  47 }
  48
  49 /* default implementation of wine_dbgstr_wn */
  50 static const char *default_dbgstr_wn( const WCHAR *str, int n )
  51 {
  52     char *dst, *res;
  53
  54     if (!HIWORD(str))
  55     {
  56         if (!str) return "(null)";
  57         res = get_tmp_space( 6 );
  58         sprintf( res, "#%04x", LOWORD(str) );
  59         return res;
  60     }
  61     if (n == -1) n = lstrlenW(str);
  62     if (n < 0) n = 0;
  63     else if (n > 200) n = 200;
  64     dst = res = get_tmp_space( n * 5 + 7 );
  65     *dst++ = 'L';
  66     *dst++ = '"';
  67     while (n-- > 0)
  68     {
  69         WCHAR c = *str++;
  70         switch (c)
  71         {
  72         case '\n': *dst++ = '\\'; *dst++ = 'n'; break;
  73         case '\r': *dst++ = '\\'; *dst++ = 'r'; break;
  74         case '\t': *dst++ = '\\'; *dst++ = 't'; break;
  75         case '"':  *dst++ = '\\'; *dst++ = '"'; break;
  76         case '\\': *dst++ = '\\'; *dst++ = '\\'; break;
  77         default:
  78             if (c >= ' ' && c <= 126)
  79                 *dst++ = (char)c;
  80             else
  81             {
  82                 *dst++ = '\\';
  83                 sprintf(dst,"%04x",c);
  84                 dst+=4;
  85             }
  86         }
  87     }
  88     *dst++ = '"';
  89     if (*str)
  90     {
  91         *dst++ = '.';
  92         *dst++ = '.';
  93         *dst++ = '.';
  94     }
  95     *dst = 0;
  96     return res;
  97 }
  98
  99 const char *wine_dbgstr_wn( const WCHAR *s, int n )
 100 {
 101     return default_dbgstr_wn(s, n);
 102 }
 103
 104 const char *wine_dbgstr_w( const WCHAR *s )
 105 {
 106     return default_dbgstr_wn( s, -1 );
 107 }
 108
 109
 110 #define RELEASEMARSHALDATA WM_USER
 111
 112 struct host_object_data
 113 {
 114     IStream *stream;
 115     IID iid;
 116     IUnknown *object;
 117     MSHLFLAGS marshal_flags;
 118     HANDLE marshal_event;
 119     IMessageFilter *filter;
 120 };
 121
 122 static DWORD CALLBACK host_object_proc(LPVOID p)
 123 {
 124     struct host_object_data *data = (struct host_object_data *)p;
 125     HRESULT hr;
 126     MSG msg;
 127
 128     CoInitializeEx(NULL, COINIT_APARTMENTTHREADED);
 129
 130     if (data->filter)
 131     {
 132         IMessageFilter * prev_filter = NULL;
 133         hr = CoRegisterMessageFilter(data->filter, &prev_filter);
 134         if (prev_filter) IMessageFilter_Release(prev_filter);
 135         ok_ole_success(hr, CoRegisterMessageFilter);
 136     }
 137
 138     hr = CoMarshalInterface(data->stream, &data->iid, data->object, MSHCTX_INPROC, NULL, data->marshal_flags);
 139     ok_ole_success(hr, CoMarshalInterface);
 140
 141     /* force the message queue to be created before signaling parent thread */
 142     PeekMessage(&msg, NULL, WM_USER, WM_USER, PM_NOREMOVE);
 143
 144     SetEvent(data->marshal_event);
 145
 146     while (GetMessage(&msg, NULL, 0, 0))
 147     {
 148         if (msg.hwnd == NULL && msg.message == RELEASEMARSHALDATA)
 149         {
 150             trace("releasing marshal data\n");
 151             CoReleaseMarshalData(data->stream);
 152             SetEvent((HANDLE)msg.lParam);
 153         }
 154         else
 155             DispatchMessage(&msg);
 156     }
 157
 158     HeapFree(GetProcessHeap(), 0, data);
 159
 160     CoUninitialize();
 161
 162     return hr;
 163 }
 164
 165 static DWORD start_host_object2(IStream *stream, REFIID riid, IUnknown *object, MSHLFLAGS marshal_flags, IMessageFilter *filter, HANDLE *thread)
 166 {
 167     DWORD tid = 0;
 168     HANDLE marshal_event = CreateEvent(NULL, FALSE, FALSE, NULL);
 169     struct host_object_data *data = HeapAlloc(GetProcessHeap(), 0, sizeof(*data));
 170
 171     data->stream = stream;
 172     data->iid = *riid;
 173     data->object = object;
 174     data->marshal_flags = marshal_flags;
 175     data->marshal_event = marshal_event;
 176     data->filter = filter;
 177
 178     *thread = CreateThread(NULL, 0, host_object_proc, data, 0, &tid);
 179
 180     /* wait for marshaling to complete before returning */
 181     WaitForSingleObject(marshal_event, INFINITE);
 182     CloseHandle(marshal_event);
 183
 184     return tid;
 185 }
 186
 187 static DWORD start_host_object(IStream *stream, REFIID riid, IUnknown *object, MSHLFLAGS marshal_flags, HANDLE *thread)
 188 {
 189     return start_host_object2(stream, riid, object, marshal_flags, NULL, thread);
 190 }
 191
 192 #if 0 /* not used */
 193 /* asks thread to release the marshal data because it has to be done by the
 194  * same thread that marshaled the interface in the first place. */
 195 static void release_host_object(DWORD tid)
 196 {
 197     HANDLE event = CreateEvent(NULL, FALSE, FALSE, NULL);
 198     PostThreadMessage(tid, RELEASEMARSHALDATA, 0, (LPARAM)event);
 199     WaitForSingleObject(event, INFINITE);
 200     CloseHandle(event);
 201 }
 202 #endif
 203
 204 static void end_host_object(DWORD tid, HANDLE thread)
 205 {
 206     BOOL ret = PostThreadMessage(tid, WM_QUIT, 0, 0);
 207     ok(ret, "PostThreadMessage failed with error %d\n", GetLastError());
 208     /* be careful of races - don't return until hosting thread has terminated */
 209     WaitForSingleObject(thread, INFINITE);
 210     CloseHandle(thread);
 211 }
 212
 213 typedef struct Widget
 214 {
 215     const IWidgetVtbl *lpVtbl;
 216     LONG refs;
 217     IUnknown *pDispatchUnknown;
 218 } Widget;
 219
 220 HRESULT WINAPI Widget_QueryInterface(
 221     IWidget *iface,
 222     /* [in] */ REFIID riid,
 223     /* [iid_is][out] */ void __RPC_FAR *__RPC_FAR *ppvObject)
 224 {
 225     if (IsEqualIID(riid, &IID_IWidget) || IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDispatch))
 226     {
 227         IWidget_AddRef(iface);
 228         *ppvObject = iface;
 229         return S_OK;
 230     }
 231     else
 232     {
 233         *ppvObject = NULL;
 234         return E_NOINTERFACE;
 235     }
 236 }
 237
 238 ULONG WINAPI Widget_AddRef(
 239     IWidget *iface)
 240 {
 241     Widget *This = (Widget *)iface;
 242
 243     return InterlockedIncrement(&This->refs);
 244 }
 245
 246 ULONG WINAPI Widget_Release(
 247     IWidget *iface)
 248 {
 249     Widget *This = (Widget *)iface;
 250     ULONG refs = InterlockedDecrement(&This->refs);
 251     if (!refs)
 252     {
 253         IUnknown_Release(This->pDispatchUnknown);
 254         memset(This, 0xcc, sizeof(*This));
 255         HeapFree(GetProcessHeap(), 0, This);
 256         trace("Widget destroyed!\n");
 257     }
 258
 259     return refs;
 260 }
 261
 262 HRESULT WINAPI Widget_GetTypeInfoCount(
 263     IWidget *iface,
 264     /* [out] */ UINT __RPC_FAR *pctinfo)
 265 {
 266     Widget *This = (Widget *)iface;
 267     IDispatch *pDispatch;
 268     HRESULT hr = IUnknown_QueryInterface(This->pDispatchUnknown, &IID_IDispatch, (void **)&pDispatch);
 269     if (SUCCEEDED(hr))
 270     {
 271         hr = IDispatch_GetTypeInfoCount(pDispatch, pctinfo);
 272         IDispatch_Release(pDispatch);
 273     }
 274     return hr;
 275 }
 276
 277 HRESULT WINAPI Widget_GetTypeInfo(
 278     IWidget __RPC_FAR * iface,
 279     /* [in] */ UINT iTInfo,
 280     /* [in] */ LCID lcid,
 281     /* [out] */ ITypeInfo __RPC_FAR *__RPC_FAR *ppTInfo)
 282 {
 283     Widget *This = (Widget *)iface;
 284     IDispatch *pDispatch;
 285     HRESULT hr = IUnknown_QueryInterface(This->pDispatchUnknown, &IID_IDispatch, (void **)&pDispatch);
 286     if (SUCCEEDED(hr))
 287     {
 288         hr = IDispatch_GetTypeInfo(pDispatch, iTInfo, lcid, ppTInfo);
 289         IDispatch_Release(pDispatch);
 290     }
 291     return hr;
 292 }
 293
 294 HRESULT WINAPI Widget_GetIDsOfNames(
 295     IWidget __RPC_FAR * iface,
 296     /* [in] */ REFIID riid,
 297     /* [size_is][in] */ LPOLESTR __RPC_FAR *rgszNames,
 298     /* [in] */ UINT cNames,
 299     /* [in] */ LCID lcid,
 300     /* [size_is][out] */ DISPID __RPC_FAR *rgDispId)
 301 {
 302     Widget *This = (Widget *)iface;
 303     IDispatch *pDispatch;
 304     HRESULT hr = IUnknown_QueryInterface(This->pDispatchUnknown, &IID_IDispatch, (void **)&pDispatch);
 305     if (SUCCEEDED(hr))
 306     {
 307         hr = IDispatch_GetIDsOfNames(pDispatch, riid, rgszNames, cNames, lcid, rgDispId);
 308         IDispatch_Release(pDispatch);
 309     }
 310     return hr;
 311 }
 312
 313 HRESULT WINAPI Widget_Invoke(
 314     IWidget __RPC_FAR * iface,
 315     /* [in] */ DISPID dispIdMember,
 316     /* [in] */ REFIID riid,
 317     /* [in] */ LCID lcid,
 318     /* [in] */ WORD wFlags,
 319     /* [out][in] */ DISPPARAMS __RPC_FAR *pDispParams,
 320     /* [out] */ VARIANT __RPC_FAR *pVarResult,
 321     /* [out] */ EXCEPINFO __RPC_FAR *pExcepInfo,
 322     /* [out] */ UINT __RPC_FAR *puArgErr)
 323 {
 324     Widget *This = (Widget *)iface;
 325     IDispatch *pDispatch;
 326     HRESULT hr = IUnknown_QueryInterface(This->pDispatchUnknown, &IID_IDispatch, (void **)&pDispatch);
 327     if (SUCCEEDED(hr))
 328     {
 329         hr = IDispatch_Invoke(pDispatch, dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 330         IDispatch_Release(pDispatch);
 331     }
 332     return hr;
 333 }
 334
 335 HRESULT WINAPI Widget_put_Name(
 336     IWidget __RPC_FAR * iface,
 337     /* [in] */ BSTR name)
 338 {
 339     trace("put_Name(%s)\n", wine_dbgstr_w(name));
 340     return S_OK;
 341 }
 342
 343 HRESULT WINAPI Widget_get_Name(
 344     IWidget __RPC_FAR * iface,
 345     /* [out] */ BSTR __RPC_FAR *name)
 346 {
 347     static const WCHAR szCat[] = { 'C','a','t',0 };
 348     trace("get_Name()\n");
 349     *name = SysAllocString(szCat);
 350     return S_OK;
 351 }
 352
 353 HRESULT WINAPI Widget_DoSomething(
 354     IWidget __RPC_FAR * iface,
 355     /* [in] */ double number,
 356     /* [out] */ BSTR *str1,
 357     /* [defaultvalue][in] */ BSTR str2,
 358     /* [optional][in] */ VARIANT __RPC_FAR *opt)
 359 {
 360     static const WCHAR szString[] = { 'S','t','r','i','n','g',0 };
 361     trace("DoSomething()\n");
 362
 363     ok(number == 3.141, "number(%f) != 3.141\n", number);
 364     ok(*str2 == '\0', "str2(%s) != \"\"\n", wine_dbgstr_w(str2));
 365     ok(V_VT(opt) == VT_ERROR, "V_VT(opt) should be VT_ERROR instead of 0x%x\n", V_VT(opt));
 366     ok(V_ERROR(opt) == DISP_E_PARAMNOTFOUND, "V_ERROR(opt) should be DISP_E_PARAMNOTFOUND instead of 0x%08x\n", V_ERROR(opt));
 367     *str1 = SysAllocString(szString);
 368
 369     return S_FALSE;
 370 }
 371
 372 HRESULT WINAPI Widget_get_State(
 373     IWidget __RPC_FAR * iface,
 374     /* [retval][out] */ STATE __RPC_FAR *state)
 375 {
 376     trace("get_State() = STATE_WIDGETIFIED\n");
 377     *state = STATE_WIDGETIFIED;
 378     return S_OK;
 379 }
 380
 381 HRESULT WINAPI Widget_put_State(
 382     IWidget __RPC_FAR * iface,
 383     /* [in] */ STATE state)
 384 {
 385     trace("put_State(%d)\n", state);
 386     return S_OK;
 387 }
 388
 389 HRESULT WINAPI Widget_Map(
 390     IWidget * iface,
 391     BSTR bstrId,
 392     BSTR *sValue)
 393 {
 394     trace("Map(%s, %p)\n", wine_dbgstr_w(bstrId), sValue);
 395     *sValue = SysAllocString(bstrId);
 396     return S_OK;
 397 }
 398
 399 HRESULT WINAPI Widget_SetOleColor(
 400     IWidget * iface,
 401     OLE_COLOR val)
 402 {
 403     trace("SetOleColor(0x%x)\n", val);
 404     return S_OK;
 405 }
 406
 407 HRESULT WINAPI Widget_GetOleColor(
 408     IWidget * iface,
 409     OLE_COLOR *pVal)
 410 {
 411     trace("GetOleColor() = 0x8000000f\n");
 412     *pVal = 0x8000000f;
 413     return S_FALSE;
 414 }
 415
 416 HRESULT WINAPI Widget_Clone(
 417     IWidget *iface,
 418     IWidget **ppVal)
 419 {
 420     trace("Clone()\n");
 421     return Widget_QueryInterface(iface, &IID_IWidget, (void **)ppVal);
 422 }
 423
 424 HRESULT WINAPI Widget_CloneDispatch(
 425     IWidget *iface,
 426     IDispatch **ppVal)
 427 {
 428     trace("CloneDispatch()\n");
 429     return Widget_QueryInterface(iface, &IID_IWidget, (void **)ppVal);
 430 }
 431
 432 HRESULT WINAPI Widget_CloneCoclass(
 433     IWidget *iface,
 434     ApplicationObject2 **ppVal)
 435 {
 436     trace("CloneCoclass()\n");
 437     return S_OK;
 438 }
 439
 440 HRESULT WINAPI Widget_Value(
 441     IWidget __RPC_FAR * iface,
 442     VARIANT *value,
 443     VARIANT *retval)
 444 {
 445     trace("Value(%p, %p)\n", value, retval);
 446     ok(V_VT(value) == VT_I2, "V_VT(value) was %d instead of VT_I2\n", V_VT(value));
 447     ok(V_I2(value) == 1, "V_I2(value) was %d instead of 1\n", V_I2(value));
 448     V_VT(retval) = VT_I2;
 449     V_I2(retval) = 1234;
 450     return S_OK;
 451 }
 452
 453 HRESULT WINAPI Widget_Array(
 454     IWidget * iface,
 455     SAFEARRAY * values)
 456 {
 457     trace("Array(%p)\n", values);
 458     return S_OK;
 459 }
 460
 461 HRESULT WINAPI Widget_VariantArrayPtr(
 462     IWidget * iface,
 463     SAFEARRAY ** values)
 464 {
 465     trace("VariantArrayPtr(%p)\n", values);
 466     return S_OK;
 467 }
 468
 469 void WINAPI Widget_Variant(
 470     IWidget __RPC_FAR * iface,
 471     VARIANT var)
 472 {
 473     trace("Variant()\n");
 474     ok(V_VT(&var) == VT_CY, "V_VT(&var) was %d\n", V_VT(&var));
 475     ok(S(V_CY(&var)).Hi == 0xdababe, "V_CY(&var).Hi was 0x%x\n", S(V_CY(&var)).Hi);
 476     ok(S(V_CY(&var)).Lo == 0xdeadbeef, "V_CY(&var).Lo was 0x%x\n", S(V_CY(&var)).Lo);
 477 }
 478
 479 void WINAPI Widget_VarArg(
 480     IWidget * iface,
 481     int numexpect,
 482     SAFEARRAY * values)
 483 {
 484     LONG lbound, ubound, i;
 485     VARIANT * data;
 486     HRESULT hr;
 487
 488     trace("VarArg(%p)\n", values);
 489
 490     hr = SafeArrayGetLBound(values, 1, &lbound);
 491     ok(hr == S_OK, "SafeArrayGetLBound failed with %x\n", hr);
 492     ok(lbound == 0, "SafeArrayGetLBound returned %d\n", lbound);
 493
 494     hr = SafeArrayGetUBound(values, 1, &ubound);
 495     ok(hr == S_OK, "SafeArrayGetUBound failed with %x\n", hr);
 496     ok(ubound == numexpect-1, "SafeArrayGetUBound returned %d, but expected %d\n", ubound, numexpect-1);
 497
 498     hr = SafeArrayAccessData(values, (LPVOID)&data);
 499     ok(hr == S_OK, "SafeArrayAccessData failed with %x\n", hr);
 500
 501     for (i=0; i<=ubound-lbound; i++)
 502     {
 503         ok(V_VT(&data[i]) == VT_I4, "V_VT(&data[%d]) was %d\n", i, V_VT(&data[i]));
 504         ok(V_I4(&data[i]) == i, "V_I4(&data[%d]) was %d\n", i, V_I4(&data[i]));
 505     }
 506
 507     hr = SafeArrayUnaccessData(values);
 508     ok(hr == S_OK, "SafeArrayUnaccessData failed with %x\n", hr);
 509 }
 510
 511 HRESULT WINAPI Widget_Error(
 512     IWidget __RPC_FAR * iface)
 513 {
 514     trace("Error()\n");
 515     return E_NOTIMPL;
 516 }
 517
 518 HRESULT WINAPI Widget_CloneInterface(
 519     IWidget __RPC_FAR * iface,
 520     ISomethingFromDispatch **ppVal)
 521 {
 522     trace("CloneInterface()\n");
 523     *ppVal = 0;
 524     return S_OK;
 525 }
 526
 527 static const struct IWidgetVtbl Widget_VTable =
 528 {
 529     Widget_QueryInterface,
 530     Widget_AddRef,
 531     Widget_Release,
 532     Widget_GetTypeInfoCount,
 533     Widget_GetTypeInfo,
 534     Widget_GetIDsOfNames,
 535     Widget_Invoke,
 536     Widget_put_Name,
 537     Widget_get_Name,
 538     Widget_DoSomething,
 539     Widget_get_State,
 540     Widget_put_State,
 541     Widget_Map,
 542     Widget_SetOleColor,
 543     Widget_GetOleColor,
 544     Widget_Clone,
 545     Widget_CloneDispatch,
 546     Widget_CloneCoclass,
 547     Widget_Value,
 548     Widget_Array,
 549     Widget_VariantArrayPtr,
 550     Widget_Variant,
 551     Widget_VarArg,
 552     Widget_Error,
 553     Widget_CloneInterface
 554 };
 555
 556
 557 typedef struct KindaEnum
 558 {
 559     const IKindaEnumWidgetVtbl *lpVtbl;
 560     LONG refs;
 561 } KindaEnum;
 562
 563 static HRESULT register_current_module_typelib(void)
 564 {
 565     WCHAR path[MAX_PATH];
 566     HRESULT hr;
 567     ITypeLib *typelib;
 568
 569     GetModuleFileNameW(NULL, path, MAX_PATH);
 570
 571     hr = LoadTypeLib(path, &typelib);
 572     if (SUCCEEDED(hr))
 573     {
 574         hr = RegisterTypeLib(typelib, path, NULL);
 575         ITypeLib_Release(typelib);
 576     }
 577     return hr;
 578 }
 579
 580 static IWidget *Widget_Create(void)
 581 {
 582     Widget *This = HeapAlloc(GetProcessHeap(), 0, sizeof(*This));
 583     HRESULT hr;
 584     ITypeLib *pTypeLib;
 585
 586     This->lpVtbl = &Widget_VTable;
 587     This->refs = 1;
 588
 589     hr = LoadRegTypeLib(&LIBID_TestTypelib, 1, 0, LOCALE_NEUTRAL, &pTypeLib);
 590     ok_ole_success(hr, LoadRegTypeLib);
 591     if (SUCCEEDED(hr))
 592     {
 593         ITypeInfo *pTypeInfo;
 594         hr = ITypeLib_GetTypeInfoOfGuid(pTypeLib, &IID_IWidget, &pTypeInfo);
 595         ok_ole_success(hr, ITypeLib_GetTypeInfoOfGuid);
 596         if (SUCCEEDED(hr))
 597         {
 598             This->pDispatchUnknown = NULL;
 599             hr = CreateStdDispatch((IUnknown *)&This->lpVtbl, This, pTypeInfo, &This->pDispatchUnknown);
 600             ok_ole_success(hr, CreateStdDispatch);
 601             ITypeInfo_Release(pTypeInfo);
 602         }
 603         ITypeLib_Release(pTypeLib);
 604     }
 605
 606     if (SUCCEEDED(hr))
 607         return (IWidget *)&This->lpVtbl;
 608     else
 609     {
 610         HeapFree(GetProcessHeap(), 0, This);
 611         return NULL;
 612     }
 613 }
 614
 615 HRESULT WINAPI KindaEnum_QueryInterface(
 616     IKindaEnumWidget *iface,
 617     /* [in] */ REFIID riid,
 618     /* [iid_is][out] */ void __RPC_FAR *__RPC_FAR *ppvObject)
 619 {
 620     if (IsEqualIID(riid, &IID_IKindaEnumWidget) || IsEqualIID(riid, &IID_IUnknown))
 621     {
 622         IKindaEnumWidget_AddRef(iface);
 623         *ppvObject = iface;
 624         return S_OK;
 625     }
 626     else
 627     {
 628         *ppvObject = NULL;
 629         return E_NOINTERFACE;
 630     }
 631 }
 632
 633 ULONG WINAPI KindaEnum_AddRef(
 634     IKindaEnumWidget *iface)
 635 {
 636     KindaEnum *This = (KindaEnum *)iface;
 637
 638     return InterlockedIncrement(&This->refs);
 639 }
 640
 641 ULONG WINAPI KindaEnum_Release(
 642     IKindaEnumWidget *iface)
 643 {
 644     KindaEnum *This = (KindaEnum *)iface;
 645     ULONG refs = InterlockedDecrement(&This->refs);
 646     if (!refs)
 647     {
 648         memset(This, 0xcc, sizeof(*This));
 649         HeapFree(GetProcessHeap(), 0, This);
 650         trace("KindaEnumWidget destroyed!\n");
 651     }
 652
 653     return refs;
 654 }
 655
 656 HRESULT WINAPI KindaEnum_Next(
 657     IKindaEnumWidget *iface,
 658     /* [out] */ IWidget __RPC_FAR *__RPC_FAR *widget)
 659 {
 660     *widget = Widget_Create();
 661     if (*widget)
 662         return S_OK;
 663     else
 664         return E_OUTOFMEMORY;
 665 }
 666
 667 HRESULT WINAPI KindaEnum_Count(
 668     IKindaEnumWidget *iface,
 669     /* [out] */ unsigned long __RPC_FAR *count)
 670 {
 671     return E_NOTIMPL;
 672 }
 673
 674 HRESULT WINAPI KindaEnum_Reset(
 675     IKindaEnumWidget *iface)
 676 {
 677     return E_NOTIMPL;
 678 }
 679
 680 HRESULT WINAPI KindaEnum_Clone(
 681     IKindaEnumWidget *iface,
 682     /* [out] */ IKindaEnumWidget __RPC_FAR *__RPC_FAR *ppenum)
 683 {
 684     return E_NOTIMPL;
 685 }
 686
 687 static const IKindaEnumWidgetVtbl KindaEnumWidget_VTable =
 688 {
 689     KindaEnum_QueryInterface,
 690     KindaEnum_AddRef,
 691     KindaEnum_Release,
 692     KindaEnum_Next,
 693     KindaEnum_Count,
 694     KindaEnum_Reset,
 695     KindaEnum_Clone
 696 };
 697
 698 static IKindaEnumWidget *KindaEnumWidget_Create(void)
 699 {
 700     KindaEnum *This;
 701
 702     This = HeapAlloc(GetProcessHeap(), 0, sizeof(*This));
 703     if (!This) return NULL;
 704     This->lpVtbl = &KindaEnumWidget_VTable;
 705     This->refs = 1;
 706     return (IKindaEnumWidget *)This;
 707 }
 708
 709 static HRESULT WINAPI NonOleAutomation_QueryInterface(INonOleAutomation *iface, REFIID riid, void **ppv)
 710 {
 711     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_INonOleAutomation))
 712     {
 713         *(INonOleAutomation **)ppv = iface;
 714         return S_OK;
 715     }
 716     *ppv = NULL;
 717     return E_NOINTERFACE;
 718 }
 719
 720 static ULONG WINAPI NonOleAutomation_AddRef(INonOleAutomation *iface)
 721 {
 722     return 2;
 723 }
 724
 725 static ULONG WINAPI NonOleAutomation_Release(INonOleAutomation *iface)
 726 {
 727     return 1;
 728 }
 729
 730 static BSTR WINAPI NonOleAutomation_BstrRet(INonOleAutomation *iface)
 731 {
 732     static const WCHAR wszTestString[] = {'T','h','i','s',' ','i','s',' ','a',' ','t','e','s','t',' ','s','t','r','i','n','g',0};
 733     return SysAllocString(wszTestString);
 734 }
 735
 736 static INonOleAutomationVtbl NonOleAutomation_VTable =
 737 {
 738     NonOleAutomation_QueryInterface,
 739     NonOleAutomation_AddRef,
 740     NonOleAutomation_Release,
 741     NonOleAutomation_BstrRet,
 742 };
 743
 744 static INonOleAutomation NonOleAutomation = { &NonOleAutomation_VTable };
 745
 746 static ITypeInfo *NonOleAutomation_GetTypeInfo(void)
 747 {
 748     ITypeLib *pTypeLib;
 749     HRESULT hr = LoadRegTypeLib(&LIBID_TestTypelib, 1, 0, LOCALE_NEUTRAL, &pTypeLib);
 750     ok_ole_success(hr, LoadRegTypeLib);
 751     if (SUCCEEDED(hr))
 752     {
 753         ITypeInfo *pTypeInfo;
 754         hr = ITypeLib_GetTypeInfoOfGuid(pTypeLib, &IID_INonOleAutomation, &pTypeInfo);
 755         ok_ole_success(hr, ITypeLib_GetTypeInfoOfGuid);
 756         return pTypeInfo;
 757     }
 758     return NULL;
 759 }
 760
 761 static void test_typelibmarshal(void)
 762 {
 763     static const WCHAR szCat[] = { 'C','a','t',0 };
 764     static const WCHAR szTestTest[] = { 'T','e','s','t','T','e','s','t',0 };
 765     static WCHAR szSuperman[] = { 'S','u','p','e','r','m','a','n',0 };
 766     HRESULT hr;
 767     IKindaEnumWidget *pKEW = KindaEnumWidget_Create();
 768     IWidget *pWidget;
 769     IStream *pStream;
 770     IDispatch *pDispatch;
 771     static const LARGE_INTEGER ullZero;
 772     EXCEPINFO excepinfo;
 773     VARIANT varresult;
 774     DISPID dispidNamed = DISPID_PROPERTYPUT;
 775     DISPPARAMS dispparams;
 776     VARIANTARG vararg[4];
 777     STATE the_state;
 778     HANDLE thread;
 779     DWORD tid;
 780     BSTR bstr;
 781     ITypeInfo *pTypeInfo;
 782
 783     ok(pKEW != NULL, "Widget creation failed\n");
 784
 785     hr = CreateStreamOnHGlobal(NULL, TRUE, &pStream);
 786     ok_ole_success(hr, CreateStreamOnHGlobal);
 787     tid = start_host_object(pStream, &IID_IKindaEnumWidget, (IUnknown *)pKEW, MSHLFLAGS_NORMAL, &thread);
 788     IKindaEnumWidget_Release(pKEW);
 789
 790     IStream_Seek(pStream, ullZero, STREAM_SEEK_SET, NULL);
 791     hr = CoUnmarshalInterface(pStream, &IID_IKindaEnumWidget, (void **)&pKEW);
 792     ok_ole_success(hr, CoUnmarshalInterface);
 793     IStream_Release(pStream);
 794
 795     hr = IKindaEnumWidget_Next(pKEW, &pWidget);
 796     ok_ole_success(hr, IKindaEnumWidget_Next);
 797
 798     IKindaEnumWidget_Release(pKEW);
 799
 800     hr = IWidget_QueryInterface(pWidget, &IID_IDispatch, (void **)&pDispatch);
 801
 802     /* call put_Name */
 803     VariantInit(&vararg[0]);
 804     dispparams.cNamedArgs = 1;
 805     dispparams.rgdispidNamedArgs = &dispidNamed;
 806     dispparams.cArgs = 1;
 807     dispparams.rgvarg = vararg;
 808     VariantInit(&varresult);
 809     hr = IDispatch_Invoke(pDispatch, DISPID_TM_NAME, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT, &dispparams, &varresult, &excepinfo, NULL);
 810     ok_ole_success(hr, IDispatch_Invoke);
 811     ok(excepinfo.wCode == 0x0 && excepinfo.scode == S_OK,
 812         "EXCEPINFO differs from expected: wCode = 0x%x, scode = 0x%08x\n",
 813         excepinfo.wCode, excepinfo.scode);
 814     VariantClear(&varresult);
 815
 816     /* call put_Name (direct) */
 817     bstr = SysAllocString(szSuperman);
 818     hr = IWidget_put_Name(pWidget, bstr);
 819     ok_ole_success(hr, IWidget_put_Name);
 820     SysFreeString(bstr);
 821
 822     /* call get_Name */
 823     dispparams.cNamedArgs = 0;
 824     dispparams.rgdispidNamedArgs = NULL;
 825     dispparams.cArgs = 0;
 826     dispparams.rgvarg = NULL;
 827     VariantInit(&varresult);
 828     hr = IDispatch_Invoke(pDispatch, DISPID_TM_NAME, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
 829     ok_ole_success(hr, IDispatch_Invoke);
 830     ok(excepinfo.wCode == 0x0 && excepinfo.scode == S_OK,
 831         "EXCEPINFO differs from expected: wCode = 0x%x, scode = 0x%08x\n",
 832         excepinfo.wCode, excepinfo.scode);
 833     trace("Name = %s\n", wine_dbgstr_w(V_BSTR(&varresult)));
 834     VariantClear(&varresult);
 835
 836     /* call get_Name (direct) */
 837     bstr = NULL;
 838     hr = IWidget_get_Name(pWidget, &bstr);
 839     ok_ole_success(hr, IWidget_get_Name);
 840     ok(!lstrcmpW(bstr, szCat), "IWidget_get_Name should have returned string \"Cat\" instead of %s\n", wine_dbgstr_w(bstr));
 841     SysFreeString(bstr);
 842
 843     /* call DoSomething */
 844     VariantInit(&vararg[0]);
 845     VariantInit(&vararg[1]);
 846     V_VT(&vararg[1]) = VT_R8;
 847     V_R8(&vararg[1]) = 3.141;
 848     dispparams.cNamedArgs = 0;
 849     dispparams.cArgs = 2;
 850     dispparams.rgdispidNamedArgs = NULL;
 851     dispparams.rgvarg = vararg;
 852     VariantInit(&varresult);
 853     hr = IDispatch_Invoke(pDispatch, DISPID_TM_DOSOMETHING, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
 854     ok_ole_success(hr, IDispatch_Invoke);
 855     ok(V_VT(&varresult) == VT_EMPTY, "varresult should be VT_EMPTY\n");
 856     VariantClear(&varresult);
 857
 858     /* call get_State */
 859     dispparams.cNamedArgs = 0;
 860     dispparams.cArgs = 0;
 861     dispparams.rgdispidNamedArgs = NULL;
 862     dispparams.rgvarg = NULL;
 863     hr = IDispatch_Invoke(pDispatch, DISPID_TM_STATE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
 864     ok_ole_success(hr, IDispatch_Invoke);
 865     ok((V_VT(&varresult) == VT_I4) && (V_I4(&varresult) == STATE_WIDGETIFIED), "Return val mismatch\n");
 866
 867     /* call get_State (direct) */
 868     hr = IWidget_get_State(pWidget, &the_state);
 869     ok_ole_success(hr, IWidget_get_state);
 870     ok(the_state == STATE_WIDGETIFIED, "should have returned WIDGET_WIDGETIFIED instead of %d\n", the_state);
 871
 872     /* call put_State */
 873     the_state = STATE_WIDGETIFIED;
 874     VariantInit(&vararg[0]);
 875     V_VT(&vararg[0]) = VT_BYREF|VT_I4;
 876     V_I4REF(&vararg[0]) = (int *)&the_state;
 877     dispparams.cNamedArgs = 1;
 878     dispparams.cArgs = 1;
 879     dispparams.rgdispidNamedArgs = &dispidNamed;
 880     dispparams.rgvarg = vararg;
 881     hr = IDispatch_Invoke(pDispatch, DISPID_TM_STATE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT, &dispparams, &varresult, &excepinfo, NULL);
 882     ok_ole_success(hr, IDispatch_Invoke);
 883
 884     /* call Map */
 885     bstr = SysAllocString(szTestTest);
 886     VariantInit(&vararg[0]);
 887     V_VT(&vararg[0]) = VT_BYREF|VT_BSTR;
 888     V_BSTRREF(&vararg[0]) = &bstr;
 889     dispparams.cNamedArgs = 0;
 890     dispparams.cArgs = 1;
 891     dispparams.rgdispidNamedArgs = NULL;
 892     dispparams.rgvarg = vararg;
 893     VariantInit(&varresult);
 894     hr = IDispatch_Invoke(pDispatch, DISPID_TM_MAP, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
 895     ok_ole_success(hr, IDispatch_Invoke);
 896     ok(V_VT(&varresult) == VT_BSTR, "Return value should be of type BSTR instead of %d\n", V_VT(&varresult));
 897     ok(!lstrcmpW(V_BSTR(&varresult), szTestTest), "Return value should have been \"TestTest\" instead of %s\n", wine_dbgstr_w(V_BSTR(&varresult)));
 898     VariantClear(&varresult);
 899
 900     /* call SetOleColor with large negative VT_I4 param */
 901     VariantInit(&vararg[0]);
 902     V_VT(&vararg[0]) = VT_I4;
 903     V_I4(&vararg[0]) = 0x80000005;
 904     dispparams.cNamedArgs = 0;
 905     dispparams.cArgs = 1;
 906     dispparams.rgdispidNamedArgs = NULL;
 907     dispparams.rgvarg = vararg;
 908     hr = IDispatch_Invoke(pDispatch, DISPID_TM_SETOLECOLOR, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, NULL, &excepinfo, NULL);
 909     ok_ole_success(hr, IDispatch_Invoke);
 910
 911     /* call GetOleColor */
 912     dispparams.cNamedArgs = 0;
 913     dispparams.cArgs = 0;
 914     dispparams.rgdispidNamedArgs = NULL;
 915     dispparams.rgvarg = NULL;
 916     VariantInit(&varresult);
 917     hr = IDispatch_Invoke(pDispatch, DISPID_TM_GETOLECOLOR, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
 918     ok_ole_success(hr, IDispatch_Invoke);
 919     VariantClear(&varresult);
 920
 921     /* call Clone */
 922     dispparams.cNamedArgs = 0;
 923     dispparams.cArgs = 0;
 924     dispparams.rgdispidNamedArgs = NULL;
 925     dispparams.rgvarg = NULL;
 926     VariantInit(&varresult);
 927     hr = IDispatch_Invoke(pDispatch, DISPID_TM_CLONE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
 928     ok_ole_success(hr, IDispatch_Invoke);
 929     ok(V_VT(&varresult) == VT_DISPATCH, "vt %x\n", V_VT(&varresult));
 930     VariantClear(&varresult);
 931
 932     /* call CloneInterface */
 933     dispparams.cNamedArgs = 0;
 934     dispparams.cArgs = 0;
 935     dispparams.rgdispidNamedArgs = NULL;
 936     dispparams.rgvarg = NULL;
 937     VariantInit(&varresult);
 938     hr = IDispatch_Invoke(pDispatch, DISPID_TM_CLONEINTERFACE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
 939     ok_ole_success(hr, IDispatch_Invoke);
 940     ok(V_VT(&varresult) == VT_DISPATCH, "vt %x\n", V_VT(&varresult));
 941     VariantClear(&varresult);
 942
 943     /* call CloneDispatch with automatic value getting */
 944     V_VT(&vararg[0]) = VT_I2;
 945     V_I2(&vararg[0]) = 1;
 946     dispparams.cNamedArgs = 0;
 947     dispparams.rgdispidNamedArgs = NULL;
 948     dispparams.cArgs = 1;
 949     dispparams.rgvarg = vararg;
 950     VariantInit(&varresult);
 951     hr = IDispatch_Invoke(pDispatch, DISPID_TM_CLONEDISPATCH, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
 952     ok_ole_success(hr, IDispatch_Invoke);
 953
 954     ok(excepinfo.wCode == 0x0 && excepinfo.scode == S_OK,
 955         "EXCEPINFO differs from expected: wCode = 0x%x, scode = 0x%08x\n",
 956         excepinfo.wCode, excepinfo.scode);
 957
 958     ok(V_VT(&varresult) == VT_I2, "V_VT(&varresult) was %d instead of VT_I2\n", V_VT(&varresult));
 959     ok(V_I2(&varresult) == 1234, "V_I2(&varresult) was %d instead of 1234\n", V_I2(&varresult));
 960     VariantClear(&varresult);
 961
 962     /* call CloneCoclass */
 963     dispparams.cNamedArgs = 0;
 964     dispparams.cArgs = 0;
 965     dispparams.rgdispidNamedArgs = NULL;
 966     dispparams.rgvarg = NULL;
 967     VariantInit(&varresult);
 968     hr = IDispatch_Invoke(pDispatch, DISPID_TM_CLONECOCLASS, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
 969     ok_ole_success(hr, IDispatch_Invoke);
 970
 971     ok(excepinfo.wCode == 0x0 && excepinfo.scode == S_OK,
 972        "EXCEPINFO differs from expected: wCode = 0x%x, scode = 0x%08x\n",
 973        excepinfo.wCode, excepinfo.scode);
 974
 975     ok(V_VT(&varresult) == VT_DISPATCH, "V_VT(&varresult) was %d instead of VT_DISPATCH\n", V_VT(&varresult));
 976     ok(!V_DISPATCH(&varresult), "V_DISPATCH(&varresult) should be NULL instead of %p\n", V_DISPATCH(&varresult));
 977     VariantClear(&varresult);
 978
 979     /* call Value with a VT_VARIANT|VT_BYREF type */
 980     V_VT(&vararg[0]) = VT_VARIANT|VT_BYREF;
 981     V_VARIANTREF(&vararg[0]) = &vararg[1];
 982     V_VT(&vararg[1]) = VT_I2;
 983     V_I2(&vararg[1]) = 1;
 984     dispparams.cNamedArgs = 0;
 985     dispparams.rgdispidNamedArgs = NULL;
 986     dispparams.cArgs = 1;
 987     dispparams.rgvarg = vararg;
 988     VariantInit(&varresult);
 989     hr = IDispatch_Invoke(pDispatch, DISPID_VALUE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
 990     ok_ole_success(hr, IDispatch_Invoke);
 991
 992     ok(excepinfo.wCode == 0x0 && excepinfo.scode == S_OK,
 993         "EXCEPINFO differs from expected: wCode = 0x%x, scode = 0x%08x\n",
 994         excepinfo.wCode, excepinfo.scode);
 995
 996     ok(V_VT(&varresult) == VT_I2, "V_VT(&varresult) was %d instead of VT_I2\n", V_VT(&varresult));
 997     ok(V_I2(&varresult) == 1234, "V_I2(&varresult) was %d instead of 1234\n", V_I2(&varresult));
 998     VariantClear(&varresult);
 999
1000     /* call Variant - exercises variant copying in ITypeInfo::Invoke and
1001      * handling of void return types */
1002     /* use a big type to ensure that the variant was properly copied into the
1003      * destination function's args */
1004     V_VT(&vararg[0]) = VT_CY;
1005     S(V_CY(&vararg[0])).Hi = 0xdababe;
1006     S(V_CY(&vararg[0])).Lo = 0xdeadbeef;
1007     dispparams.cNamedArgs = 0;
1008     dispparams.cArgs = 1;
1009     dispparams.rgdispidNamedArgs = NULL;
1010     dispparams.rgvarg = vararg;
1011     VariantInit(&varresult);
1012     hr = IDispatch_Invoke(pDispatch, DISPID_TM_VARIANT, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, NULL, NULL, NULL);
1013     ok_ole_success(hr, IDispatch_Invoke);
1014     VariantClear(&varresult);
1015
1016     /* call VarArg */
1017     VariantInit(&vararg[3]);
1018     V_VT(&vararg[3]) = VT_I4;
1019     V_I4(&vararg[3]) = 3;
1020     VariantInit(&vararg[2]);
1021     V_VT(&vararg[2]) = VT_I4;
1022     V_I4(&vararg[2]) = 0;
1023     VariantInit(&vararg[1]);
1024     V_VT(&vararg[1]) = VT_I4;
1025     V_I4(&vararg[1]) = 1;
1026     VariantInit(&vararg[0]);
1027     V_VT(&vararg[0]) = VT_I4;
1028     V_I4(&vararg[0]) = 2;
1029     dispparams.cNamedArgs = 0;
1030     dispparams.cArgs = 4;
1031     dispparams.rgdispidNamedArgs = NULL;
1032     dispparams.rgvarg = vararg;
1033     hr = IDispatch_Invoke(pDispatch, DISPID_TM_VARARG, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, NULL, NULL, NULL);
1034     ok_ole_success(hr, ITypeInfo_Invoke);
1035
1036     /* call VarArg, even one (non-optional, non-safearray) named argument is not allowed */
1037     dispidNamed = 0;
1038     dispparams.cNamedArgs = 1;
1039     dispparams.rgdispidNamedArgs = &dispidNamed;
1040     hr = IDispatch_Invoke(pDispatch, DISPID_TM_VARARG, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, NULL, NULL, NULL);
1041     ok(hr == DISP_E_NONAMEDARGS, "IDispatch_Invoke should have returned DISP_E_NONAMEDARGS instead of 0x%08x\n", hr);
1042     dispidNamed = DISPID_PROPERTYPUT;
1043
1044     /* call Error */
1045     dispparams.cNamedArgs = 0;
1046     dispparams.cArgs = 0;
1047     dispparams.rgdispidNamedArgs = NULL;
1048     dispparams.rgvarg = NULL;
1049     VariantInit(&varresult);
1050     hr = IDispatch_Invoke(pDispatch, DISPID_TM_ERROR, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, NULL, &excepinfo, NULL);
1051     ok(hr == DISP_E_EXCEPTION, "IDispatch_Invoke should have returned DISP_E_EXCEPTION instead of 0x%08x\n", hr);
1052     ok(excepinfo.wCode == 0x0 && excepinfo.scode == E_NOTIMPL,
1053         "EXCEPINFO differs from expected: wCode = 0x%x, scode = 0x%08x\n",
1054         excepinfo.wCode, excepinfo.scode);
1055     VariantClear(&varresult);
1056
1057     /* call BstrRet */
1058     pTypeInfo = NonOleAutomation_GetTypeInfo();
1059     dispparams.cNamedArgs = 0;
1060     dispparams.cArgs = 0;
1061     dispparams.rgdispidNamedArgs = NULL;
1062     dispparams.rgvarg = NULL;
1063     VariantInit(&varresult);
1064     hr = ITypeInfo_Invoke(pTypeInfo, &NonOleAutomation, DISPID_NOA_BSTRRET, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
1065     ok_ole_success(hr, ITypeInfo_Invoke);
1066     ok(V_VT(&varresult) == VT_BSTR, "V_VT(&varresult) should be VT_BSTR instead of %d\n", V_VT(&varresult));
1067     ok(V_BSTR(&varresult) != NULL, "V_BSTR(&varresult) should not be NULL\n");
1068
1069     VariantClear(&varresult);
1070     ITypeInfo_Release(pTypeInfo);
1071
1072     /* tests call put_Name without named arg */
1073     VariantInit(&vararg[0]);
1074     dispparams.cNamedArgs = 0;
1075     dispparams.rgdispidNamedArgs = NULL;
1076     dispparams.cArgs = 1;
1077     dispparams.rgvarg = vararg;
1078     VariantInit(&varresult);
1079     hr = IDispatch_Invoke(pDispatch, DISPID_TM_NAME, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT, &dispparams, &varresult, &excepinfo, NULL);
1080     ok(hr == DISP_E_PARAMNOTFOUND, "IDispatch_Invoke should have returned DISP_E_PARAMNOTFOUND instead of 0x%08x\n", hr);
1081     VariantClear(&varresult);
1082
1083     /* tests param type that cannot be coerced */
1084     VariantInit(&vararg[0]);
1085     V_VT(&vararg[0]) = VT_UNKNOWN;
1086     V_UNKNOWN(&vararg[0]) = NULL;
1087     dispparams.cNamedArgs = 1;
1088     dispparams.rgdispidNamedArgs = &dispidNamed;
1089     dispparams.cArgs = 1;
1090     dispparams.rgvarg = vararg;
1091     VariantInit(&varresult);
1092 #if 0 /* NULL unknown not currently marshaled correctly */
1093     hr = IDispatch_Invoke(pDispatch, DISPID_TM_NAME, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT, &dispparams, &varresult, &excepinfo, NULL);
1094     ok(hr == DISP_E_TYPEMISMATCH, "IDispatch_Invoke should have returned DISP_E_TYPEMISMATCH instead of 0x%08x\n", hr);
1095 #endif
1096     VariantClear(&varresult);
1097
1098     /* tests bad param type */
1099     VariantInit(&vararg[0]);
1100     V_VT(&vararg[0]) = VT_CLSID;
1101     V_BYREF(&vararg[0]) = NULL;
1102     dispparams.cNamedArgs = 1;
1103     dispparams.rgdispidNamedArgs = &dispidNamed;
1104     dispparams.cArgs = 1;
1105     dispparams.rgvarg = vararg;
1106     VariantInit(&varresult);
1107     hr = IDispatch_Invoke(pDispatch, DISPID_TM_NAME, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT, &dispparams, &varresult, &excepinfo, NULL);
1108     ok(hr == DISP_E_BADVARTYPE, "IDispatch_Invoke should have returned DISP_E_BADVARTYPE instead of 0x%08x\n", hr);
1109     VariantClear(&varresult);
1110
1111     /* tests too small param count */
1112     dispparams.cNamedArgs = 0;
1113     dispparams.rgdispidNamedArgs = NULL;
1114     dispparams.cArgs = 0;
1115     dispparams.rgvarg = NULL;
1116     VariantInit(&varresult);
1117     hr = IDispatch_Invoke(pDispatch, DISPID_TM_DOSOMETHING, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_METHOD, &dispparams, &varresult, &excepinfo, NULL);
1118     ok(hr == DISP_E_BADPARAMCOUNT, "IDispatch_Invoke should have returned DISP_E_BADPARAMCOUNT instead of 0x%08x\n", hr);
1119     VariantClear(&varresult);
1120
1121     /* tests propget function with large param count */
1122     VariantInit(&vararg[0]);
1123     V_VT(&vararg[0]) = VT_BSTR;
1124     V_BSTR(&vararg[0]) = NULL;
1125     V_VT(&vararg[1]) = VT_I4;
1126     V_I4(&vararg[1]) = 1;
1127     dispparams.cNamedArgs = 0;
1128     dispparams.cArgs = 2;
1129     dispparams.rgdispidNamedArgs = NULL;
1130     dispparams.rgvarg = vararg;
1131     hr = IDispatch_Invoke(pDispatch, DISPID_TM_STATE, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, &excepinfo, NULL);
1132     ok(hr == DISP_E_NOTACOLLECTION, "IDispatch_Invoke should have returned DISP_E_NOTACOLLECTION instead of 0x%08x\n", hr);
1133
1134     IDispatch_Release(pDispatch);
1135     IWidget_Release(pWidget);
1136
1137     trace("calling end_host_object\n");
1138     end_host_object(tid, thread);
1139 }
1140
1141 static void test_DispCallFunc(void)
1142 {
1143     static const WCHAR szEmpty[] = { 0 };
1144     VARTYPE rgvt[] = { VT_R8, VT_BSTR, VT_BSTR, VT_VARIANT|VT_BYREF };
1145     VARIANTARG vararg[4];
1146     VARIANTARG varref;
1147     VARIANTARG *rgpvarg[4] = { &vararg[0], &vararg[1], &vararg[2], &vararg[3] };
1148     VARIANTARG varresult;
1149     HRESULT hr;
1150     IWidget *pWidget = Widget_Create();
1151     V_VT(&vararg[0]) = VT_R8;
1152     V_R8(&vararg[0]) = 3.141;
1153     V_VT(&vararg[1]) = VT_BSTR;
1154     V_BSTR(&vararg[1]) = SysAllocString(szEmpty);
1155     V_VT(&vararg[2]) = VT_BSTR;
1156     V_BSTR(&vararg[2]) = SysAllocString(szEmpty);
1157     V_VT(&vararg[3]) = VT_VARIANT|VT_BYREF;
1158     V_VARIANTREF(&vararg[3]) = &varref;
1159     V_VT(&varref) = VT_ERROR;
1160     V_ERROR(&varref) = DISP_E_PARAMNOTFOUND;
1161     VariantInit(&varresult);
1162     hr = DispCallFunc(pWidget, 36, CC_STDCALL, VT_UI4, 4, rgvt, rgpvarg, &varresult);
1163     ok_ole_success(hr, DispCallFunc);
1164     VariantClear(&varresult);
1165     VariantClear(&vararg[1]);
1166     VariantClear(&vararg[2]);
1167     IWidget_Release(pWidget);
1168 }
1169
1170 START_TEST(tmarshal)
1171 {
1172     HRESULT hr;
1173
1174     CoInitializeEx(NULL, COINIT_APARTMENTTHREADED);
1175
1176     hr = register_current_module_typelib();
1177     ok_ole_success(hr, register_current_module_typelib);
1178
1179     test_typelibmarshal();
1180     test_DispCallFunc();
1181
1182     CoUninitialize();
1183 }