git.oblomov.eu Git - wine/blob - dlls/ole32/ole16.c

   1 /*
   2  * 16 bit ole functions
   3  *
   4  * Copyright 1995 Martin von Loewis
   5  * Copyright 1998 Justin Bradford
   6  * Copyright 1999 Francis Beaudet
   7  * Copyright 1999 Sylvain St-Germain
   8  * Copyright 2002 Marcus Meissner
   9  *
  10  * This library is free software; you can redistribute it and/or
  11  * modify it under the terms of the GNU Lesser General Public
  12  * License as published by the Free Software Foundation; either
  13  * version 2.1 of the License, or (at your option) any later version.
  14  *
  15  * This library is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18  * Lesser General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU Lesser General Public
  21  * License along with this library; if not, write to the Free Software
  22  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  23  */
  24
  25 #include "config.h"
  26
  27 #include <stdlib.h>
  28 #include <stdarg.h>
  29 #include <stdio.h>
  30 #include <string.h>
  31 #include <assert.h>
  32
  33 #include "windef.h"
  34 #include "winbase.h"
  35 #include "winuser.h"
  36 #include "objbase.h"
  37 #include "ole2.h"
  38 #include "ole2ver.h"
  39 #include "rpc.h"
  40 #include "winerror.h"
  41 #include "winreg.h"
  42 #include "wownt32.h"
  43 #include "wtypes.h"
  44 #include "wine/unicode.h"
  45 #include "wine/winbase16.h"
  46 #include "compobj_private.h"
  47 #include "ifs.h"
  48
  49 #include "wine/debug.h"
  50
  51 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  52
  53 static HTASK16 hETask = 0;
  54 static WORD Table_ETask[62];
  55
  56 static LPMALLOC16 currentMalloc16=NULL;
  57
  58 /* --- IMalloc16 implementation */
  59
  60
  61 typedef struct
  62 {
  63         /* IUnknown fields */
  64         const IMalloc16Vtbl    *lpVtbl;
  65         DWORD                   ref;
  66         /* IMalloc16 fields */
  67 } IMalloc16Impl;
  68
  69 /******************************************************************************
  70  *              IMalloc16_QueryInterface        [COMPOBJ.500]
  71  */
  72 HRESULT CDECL IMalloc16_fnQueryInterface(IMalloc16* iface,REFIID refiid,LPVOID *obj) {
  73         IMalloc16Impl *This = (IMalloc16Impl *)iface;
  74
  75         TRACE("(%p)->QueryInterface(%s,%p)\n",This,debugstr_guid(refiid),obj);
  76         if (    !memcmp(&IID_IUnknown,refiid,sizeof(IID_IUnknown)) ||
  77                 !memcmp(&IID_IMalloc,refiid,sizeof(IID_IMalloc))
  78         ) {
  79                 *obj = This;
  80                 return 0;
  81         }
  82         return OLE_E_ENUM_NOMORE;
  83 }
  84
  85 /******************************************************************************
  86  *              IMalloc16_AddRef        [COMPOBJ.501]
  87  */
  88 ULONG CDECL IMalloc16_fnAddRef(IMalloc16* iface) {
  89         IMalloc16Impl *This = (IMalloc16Impl *)iface;
  90         TRACE("(%p)->AddRef()\n",This);
  91         return 1; /* cannot be freed */
  92 }
  93
  94 /******************************************************************************
  95  *              IMalloc16_Release       [COMPOBJ.502]
  96  */
  97 ULONG CDECL IMalloc16_fnRelease(IMalloc16* iface) {
  98         IMalloc16Impl *This = (IMalloc16Impl *)iface;
  99         TRACE("(%p)->Release()\n",This);
 100         return 1; /* cannot be freed */
 101 }
 102
 103 /******************************************************************************
 104  * IMalloc16_Alloc [COMPOBJ.503]
 105  */
 106 SEGPTR CDECL IMalloc16_fnAlloc(IMalloc16* iface,DWORD cb) {
 107         IMalloc16Impl *This = (IMalloc16Impl *)iface;
 108         TRACE("(%p)->Alloc(%ld)\n",This,cb);
 109         return MapLS( HeapAlloc( GetProcessHeap(), 0, cb ) );
 110 }
 111
 112 /******************************************************************************
 113  * IMalloc16_Free [COMPOBJ.505]
 114  */
 115 VOID CDECL IMalloc16_fnFree(IMalloc16* iface,SEGPTR pv)
 116 {
 117     void *ptr = MapSL(pv);
 118     IMalloc16Impl *This = (IMalloc16Impl *)iface;
 119     TRACE("(%p)->Free(%08lx)\n",This,pv);
 120     UnMapLS(pv);
 121     HeapFree( GetProcessHeap(), 0, ptr );
 122 }
 123
 124 /******************************************************************************
 125  * IMalloc16_Realloc [COMPOBJ.504]
 126  */
 127 SEGPTR CDECL IMalloc16_fnRealloc(IMalloc16* iface,SEGPTR pv,DWORD cb)
 128 {
 129     SEGPTR ret;
 130     IMalloc16Impl *This = (IMalloc16Impl *)iface;
 131     TRACE("(%p)->Realloc(%08lx,%ld)\n",This,pv,cb);
 132     if (!pv)
 133         ret = IMalloc16_fnAlloc(iface, cb);
 134     else if (cb) {
 135         ret = MapLS( HeapReAlloc( GetProcessHeap(), 0, MapSL(pv), cb ) );
 136         UnMapLS(pv);
 137     } else {
 138         IMalloc16_fnFree(iface, pv);
 139         ret = 0;
 140     }
 141     return ret;
 142 }
 143
 144 /******************************************************************************
 145  * IMalloc16_GetSize [COMPOBJ.506]
 146  */
 147 DWORD CDECL IMalloc16_fnGetSize(IMalloc16* iface,SEGPTR pv)
 148 {
 149         IMalloc16Impl *This = (IMalloc16Impl *)iface;
 150         TRACE("(%p)->GetSize(%08lx)\n",This,pv);
 151         return HeapSize( GetProcessHeap(), 0, MapSL(pv) );
 152 }
 153
 154 /******************************************************************************
 155  * IMalloc16_DidAlloc [COMPOBJ.507]
 156  */
 157 INT16 CDECL IMalloc16_fnDidAlloc(IMalloc16* iface,LPVOID pv) {
 158         IMalloc16 *This = (IMalloc16 *)iface;
 159         TRACE("(%p)->DidAlloc(%p)\n",This,pv);
 160         return (INT16)-1;
 161 }
 162
 163 /******************************************************************************
 164  * IMalloc16_HeapMinimize [COMPOBJ.508]
 165  */
 166 LPVOID CDECL IMalloc16_fnHeapMinimize(IMalloc16* iface) {
 167         IMalloc16Impl *This = (IMalloc16Impl *)iface;
 168         TRACE("(%p)->HeapMinimize()\n",This);
 169         return NULL;
 170 }
 171
 172 /******************************************************************************
 173  * IMalloc16_Constructor [VTABLE]
 174  */
 175 LPMALLOC16
 176 IMalloc16_Constructor(void)
 177 {
 178     static IMalloc16Vtbl vt16;
 179     static SEGPTR msegvt16;
 180     IMalloc16Impl* This;
 181     HMODULE16 hcomp = GetModuleHandle16("COMPOBJ");
 182
 183     This = HeapAlloc( GetProcessHeap(), 0, sizeof(IMalloc16Impl) );
 184     if (!msegvt16)
 185     {
 186 #define VTENT(x) vt16.x = (void*)GetProcAddress16(hcomp,"IMalloc16_"#x);assert(vt16.x)
 187         VTENT(QueryInterface);
 188         VTENT(AddRef);
 189         VTENT(Release);
 190         VTENT(Alloc);
 191         VTENT(Realloc);
 192         VTENT(Free);
 193         VTENT(GetSize);
 194         VTENT(DidAlloc);
 195         VTENT(HeapMinimize);
 196 #undef VTENT
 197         msegvt16 = MapLS( &vt16 );
 198     }
 199     This->lpVtbl = (const IMalloc16Vtbl*)msegvt16;
 200     This->ref = 1;
 201     return (LPMALLOC16)MapLS( This );
 202 }
 203
 204
 205 /***********************************************************************
 206  *           CoGetMalloc    [COMPOBJ.4]
 207  *
 208  * Retrieve the current win16 IMalloc interface.
 209  *
 210  * RETURNS
 211  *      The current win16 IMalloc
 212  */
 213 HRESULT WINAPI CoGetMalloc16(
 214         DWORD dwMemContext,     /* [in] unknown */
 215         LPMALLOC16 * lpMalloc   /* [out] current win16 malloc interface */
 216 ) {
 217     if(!currentMalloc16)
 218         currentMalloc16 = IMalloc16_Constructor();
 219     *lpMalloc = currentMalloc16;
 220     return S_OK;
 221 }
 222
 223 /***********************************************************************
 224  *           CoCreateStandardMalloc [COMPOBJ.71]
 225  */
 226 HRESULT WINAPI CoCreateStandardMalloc16(DWORD dwMemContext,
 227                                           LPMALLOC16 *lpMalloc)
 228 {
 229     /* FIXME: docu says we shouldn't return the same allocator as in
 230      * CoGetMalloc16 */
 231     *lpMalloc = IMalloc16_Constructor();
 232     return S_OK;
 233 }
 234
 235 /******************************************************************************
 236  *              CoInitialize    [COMPOBJ.2]
 237  * Set the win16 IMalloc used for memory management
 238  */
 239 HRESULT WINAPI CoInitialize16(
 240         LPVOID lpReserved       /* [in] pointer to win16 malloc interface */
 241 ) {
 242     currentMalloc16 = (LPMALLOC16)lpReserved;
 243     return S_OK;
 244 }
 245
 246 /***********************************************************************
 247  *           CoUninitialize   [COMPOBJ.3]
 248  * Don't know what it does.
 249  * 3-Nov-98 -- this was originally misspelled, I changed it to what I
 250  *   believe is the correct spelling
 251  */
 252 void WINAPI CoUninitialize16(void)
 253 {
 254   TRACE("()\n");
 255   CoFreeAllLibraries();
 256 }
 257
 258 /***********************************************************************
 259  *           IsEqualGUID [COMPOBJ.18]
 260  *
 261  * Compares two Unique Identifiers.
 262  *
 263  * RETURNS
 264  *      TRUE if equal
 265  */
 266 BOOL16 WINAPI IsEqualGUID16(
 267         GUID* g1,       /* [in] unique id 1 */
 268         GUID* g2)       /* [in] unique id 2 */
 269 {
 270     return !memcmp( g1, g2, sizeof(GUID) );
 271 }
 272
 273 /******************************************************************************
 274  *              CLSIDFromString [COMPOBJ.20]
 275  * Converts a unique identifier from its string representation into
 276  * the GUID struct.
 277  *
 278  * Class id: DWORD-WORD-WORD-BYTES[2]-BYTES[6]
 279  *
 280  * RETURNS
 281  *      the converted GUID
 282  */
 283 HRESULT WINAPI CLSIDFromString16(
 284         LPCOLESTR16 idstr,      /* [in] string representation of guid */
 285         CLSID *id)              /* [out] GUID converted from string */
 286 {
 287   const BYTE *s;
 288   int   i;
 289   BYTE table[256];
 290
 291   if (!idstr) {
 292     memset( id, 0, sizeof (CLSID) );
 293     return S_OK;
 294   }
 295
 296   /* validate the CLSID string */
 297   if (strlen(idstr) != 38)
 298     return CO_E_CLASSSTRING;
 299
 300   s = (const BYTE *) idstr;
 301   if ((s[0]!='{') || (s[9]!='-') || (s[14]!='-') || (s[19]!='-') || (s[24]!='-') || (s[37]!='}'))
 302     return CO_E_CLASSSTRING;
 303
 304   for (i=1; i<37; i++) {
 305     if ((i == 9)||(i == 14)||(i == 19)||(i == 24)) continue;
 306     if (!(((s[i] >= '0') && (s[i] <= '9'))  ||
 307           ((s[i] >= 'a') && (s[i] <= 'f'))  ||
 308           ((s[i] >= 'A') && (s[i] <= 'F'))))
 309        return CO_E_CLASSSTRING;
 310   }
 311
 312   TRACE("%s -> %p\n", s, id);
 313
 314   /* quick lookup table */
 315   memset(table, 0, 256);
 316
 317   for (i = 0; i < 10; i++) {
 318     table['0' + i] = i;
 319   }
 320   for (i = 0; i < 6; i++) {
 321     table['A' + i] = i+10;
 322     table['a' + i] = i+10;
 323   }
 324
 325   /* in form {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} */
 326
 327   id->Data1 = (table[s[1]] << 28 | table[s[2]] << 24 | table[s[3]] << 20 | table[s[4]] << 16 |
 328                table[s[5]] << 12 | table[s[6]] << 8  | table[s[7]] << 4  | table[s[8]]);
 329   id->Data2 = table[s[10]] << 12 | table[s[11]] << 8 | table[s[12]] << 4 | table[s[13]];
 330   id->Data3 = table[s[15]] << 12 | table[s[16]] << 8 | table[s[17]] << 4 | table[s[18]];
 331
 332   /* these are just sequential bytes */
 333   id->Data4[0] = table[s[20]] << 4 | table[s[21]];
 334   id->Data4[1] = table[s[22]] << 4 | table[s[23]];
 335   id->Data4[2] = table[s[25]] << 4 | table[s[26]];
 336   id->Data4[3] = table[s[27]] << 4 | table[s[28]];
 337   id->Data4[4] = table[s[29]] << 4 | table[s[30]];
 338   id->Data4[5] = table[s[31]] << 4 | table[s[32]];
 339   id->Data4[6] = table[s[33]] << 4 | table[s[34]];
 340   id->Data4[7] = table[s[35]] << 4 | table[s[36]];
 341
 342   return S_OK;
 343 }
 344
 345 /******************************************************************************
 346  *              _xmalloc16      [internal]
 347  * Allocates size bytes from the standard ole16 allocator.
 348  *
 349  * RETURNS
 350  *      the allocated segmented pointer and a HRESULT
 351  */
 352 static HRESULT
 353 _xmalloc16(DWORD size, SEGPTR *ptr) {
 354   LPMALLOC16 mllc;
 355   DWORD args[2];
 356
 357   if (CoGetMalloc16(0,&mllc))
 358     return E_OUTOFMEMORY;
 359
 360   args[0] = (DWORD)mllc;
 361   args[1] = size;
 362   /* No need for a Callback entry, we have WOWCallback16Ex which does
 363    * everything we need.
 364    */
 365   if (!WOWCallback16Ex(
 366       (DWORD)((const IMalloc16Vtbl*)MapSL(
 367           (SEGPTR)((LPMALLOC16)MapSL((SEGPTR)mllc))->lpVtbl  )
 368       )->Alloc,
 369       WCB16_CDECL,
 370       2*sizeof(DWORD),
 371       (LPVOID)args,
 372       (LPDWORD)ptr
 373   )) {
 374       ERR("CallTo16 IMalloc16 (%ld) failed\n",size);
 375       return E_FAIL;
 376   }
 377   return S_OK;
 378 }
 379
 380 /******************************************************************************
 381  *              StringFromCLSID [COMPOBJ.19]
 382  * Converts a GUID into the respective string representation.
 383  * The target string is allocated using the OLE IMalloc.
 384  *
 385  * RETURNS
 386  *      the string representation and HRESULT
 387  */
 388
 389 HRESULT WINAPI StringFromCLSID16(
 390   REFCLSID id,          /* [in] the GUID to be converted */
 391   LPOLESTR16 *idstr     /* [out] a pointer to a to-be-allocated segmented pointer pointing to the resulting string */
 392
 393 ) {
 394   HRESULT ret;
 395
 396   ret = _xmalloc16(40,(SEGPTR*)idstr);
 397   if (ret != S_OK)
 398     return ret;
 399   return WINE_StringFromCLSID(id,MapSL((SEGPTR)*idstr));
 400 }
 401
 402 /******************************************************************************
 403  * ProgIDFromCLSID [COMPOBJ.62]
 404  *
 405  * Converts a class id into the respective Program ID. (By using a registry lookup)
 406  *
 407  * RETURNS
 408  *  S_OK on success
 409  *  riid associated with the progid
 410  */
 411 HRESULT WINAPI ProgIDFromCLSID16(
 412   REFCLSID clsid, /* [in] class id as found in registry */
 413   LPOLESTR16 *lplpszProgID/* [out] associated Prog ID */
 414 ) {
 415   static const WCHAR wszProgID[] = {'P','r','o','g','I','D',0};
 416   HKEY     hkey;
 417   HRESULT  ret;
 418   LONG     len;
 419   char    *buffer;
 420
 421   ret = COM_OpenKeyForCLSID(clsid, wszProgID, KEY_READ, &hkey);
 422   if (FAILED(ret))
 423     return ret;
 424
 425   if (RegQueryValueA(hkey, NULL, NULL, &len))
 426     ret = REGDB_E_READREGDB;
 427
 428   if (ret == S_OK)
 429   {
 430     buffer = HeapAlloc(GetProcessHeap(), 0, len);
 431     if (RegQueryValueA(hkey, NULL, buffer, &len))
 432       ret = REGDB_E_READREGDB;
 433
 434     if (ret == S_OK)
 435     {
 436       ret = _xmalloc16(len, (SEGPTR*)lplpszProgID);
 437       if (ret == S_OK)
 438         strcpy(MapSL((SEGPTR)*lplpszProgID),buffer);
 439     }
 440     HeapFree(GetProcessHeap(), 0, buffer);
 441   }
 442   RegCloseKey(hkey);
 443   return ret;
 444 }
 445
 446 /***********************************************************************
 447  *           LookupETask (COMPOBJ.94)
 448  */
 449 HRESULT WINAPI LookupETask16(HTASK16 *hTask,LPVOID p) {
 450         FIXME("(%p,%p),stub!\n",hTask,p);
 451         if ((*hTask = GetCurrentTask()) == hETask) {
 452                 memcpy(p, Table_ETask, sizeof(Table_ETask));
 453         }
 454         return 0;
 455 }
 456
 457 /***********************************************************************
 458  *           SetETask (COMPOBJ.95)
 459  */
 460 HRESULT WINAPI SetETask16(HTASK16 hTask, LPVOID p) {
 461         FIXME("(%04x,%p),stub!\n",hTask,p);
 462         hETask = hTask;
 463         return 0;
 464 }
 465
 466 /***********************************************************************
 467  *           CALLOBJECTINWOW (COMPOBJ.201)
 468  */
 469 HRESULT WINAPI CallObjectInWOW(LPVOID p1,LPVOID p2) {
 470         FIXME("(%p,%p),stub!\n",p1,p2);
 471         return 0;
 472 }
 473
 474 /******************************************************************************
 475  *              CoRegisterClassObject   [COMPOBJ.5]
 476  *
 477  * Don't know where it registers it ...
 478  */
 479 HRESULT WINAPI CoRegisterClassObject16(
 480         REFCLSID rclsid,
 481         LPUNKNOWN pUnk,
 482         DWORD dwClsContext, /* [in] CLSCTX flags indicating the context in which to run the executable */
 483         DWORD flags,        /* [in] REGCLS flags indicating how connections are made */
 484         LPDWORD lpdwRegister
 485 ) {
 486         FIXME("(%s,%p,0x%08lx,0x%08lx,%p),stub\n",
 487                 debugstr_guid(rclsid),pUnk,dwClsContext,flags,lpdwRegister
 488         );
 489         return 0;
 490 }
 491
 492 /******************************************************************************
 493  *      CoRevokeClassObject [COMPOBJ.6]
 494  *
 495  */
 496 HRESULT WINAPI CoRevokeClassObject16(DWORD dwRegister) /* [in] token on class obj */
 497 {
 498     FIXME("(0x%08lx),stub!\n", dwRegister);
 499     return 0;
 500 }
 501
 502 /******************************************************************************
 503  *      CoFileTimeToDosDateTime [COMPOBJ.30]
 504  */
 505 BOOL16 WINAPI CoFileTimeToDosDateTime16(const FILETIME *ft, LPWORD lpDosDate, LPWORD lpDosTime)
 506 {
 507     return FileTimeToDosDateTime(ft, lpDosDate, lpDosTime);
 508 }
 509
 510 /******************************************************************************
 511  *      CoDosDateTimeToFileTime [COMPOBJ.31]
 512  */
 513 BOOL16 WINAPI CoDosDateTimeToFileTime16(WORD wDosDate, WORD wDosTime, FILETIME *ft)
 514 {
 515     return DosDateTimeToFileTime(wDosDate, wDosTime, ft);
 516 }
 517
 518 /******************************************************************************
 519  *              CoRegisterMessageFilter [COMPOBJ.27]
 520  */
 521 HRESULT WINAPI CoRegisterMessageFilter16(
 522         LPMESSAGEFILTER lpMessageFilter,
 523         LPMESSAGEFILTER *lplpMessageFilter
 524 ) {
 525         FIXME("(%p,%p),stub!\n",lpMessageFilter,lplpMessageFilter);
 526         return 0;
 527 }
 528
 529 /******************************************************************************
 530  *              CoLockObjectExternal    [COMPOBJ.63]
 531  */
 532 HRESULT WINAPI CoLockObjectExternal16(
 533     LPUNKNOWN pUnk,             /* [in] object to be locked */
 534     BOOL16 fLock,               /* [in] do lock */
 535     BOOL16 fLastUnlockReleases  /* [in] ? */
 536 ) {
 537     FIXME("(%p,%d,%d),stub!\n",pUnk,fLock,fLastUnlockReleases);
 538     return S_OK;
 539 }
 540
 541 /***********************************************************************
 542  *           CoGetState [COMPOBJ.115]
 543  */
 544 HRESULT WINAPI CoGetState16(LPDWORD state)
 545 {
 546     FIXME("(%p),stub!\n", state);
 547
 548     *state = 0;
 549     return S_OK;
 550 }
 551
 552 /***********************************************************************
 553  *      DllEntryPoint                   [COMPOBJ.116]
 554  *
 555  *    Initialization code for the COMPOBJ DLL
 556  *
 557  * RETURNS:
 558  */
 559 BOOL WINAPI COMPOBJ_DllEntryPoint(DWORD Reason, HINSTANCE16 hInst, WORD ds, WORD HeapSize, DWORD res1, WORD res2)
 560 {
 561         TRACE("(%08lx, %04x, %04x, %04x, %08lx, %04x)\n", Reason, hInst, ds, HeapSize, res1, res2);
 562         return TRUE;
 563 }
 564
 565 /***********************************************************************
 566  *           CoMemAlloc [COMPOBJ.151]
 567  */
 568 SEGPTR WINAPI CoMemAlloc(DWORD size, DWORD dwMemContext, DWORD x) {
 569         HRESULT         hres;
 570         SEGPTR          segptr;
 571
 572         /* FIXME: check context handling */
 573         TRACE("(%ld, 0x%08lx, 0x%08lx)\n", size, dwMemContext, x);
 574         hres = _xmalloc16(size, &segptr);
 575         if (hres != S_OK)
 576                 return (SEGPTR)0;
 577         return segptr;
 578 }
 579
 580 /******************************************************************************
 581  *              CLSIDFromProgID [COMPOBJ.61]
 582  *
 583  * Converts a program ID into the respective GUID.
 584  *
 585  * PARAMS
 586  *  progid       [I] program id as found in registry
 587  *  riid         [O] associated CLSID
 588  *
 589  * RETURNS
 590  *      Success: S_OK
 591  *  Failure: CO_E_CLASSSTRING - the given ProgID cannot be found.
 592  */
 593 HRESULT WINAPI CLSIDFromProgID16(LPCOLESTR16 progid, LPCLSID riid)
 594 {
 595         char    *buf,buf2[80];
 596         LONG    buf2len;
 597         HRESULT err;
 598         HKEY    xhkey;
 599
 600         buf = HeapAlloc(GetProcessHeap(),0,strlen(progid)+8);
 601         sprintf(buf,"%s\\CLSID",progid);
 602         if ((err=RegOpenKeyA(HKEY_CLASSES_ROOT,buf,&xhkey))) {
 603                 HeapFree(GetProcessHeap(),0,buf);
 604                 return CO_E_CLASSSTRING;
 605         }
 606         HeapFree(GetProcessHeap(),0,buf);
 607         buf2len = sizeof(buf2);
 608         if ((err=RegQueryValueA(xhkey,NULL,buf2,&buf2len))) {
 609                 RegCloseKey(xhkey);
 610                 return CO_E_CLASSSTRING;
 611         }
 612         RegCloseKey(xhkey);
 613         return CLSIDFromString16(buf2,riid);
 614 }
 615
 616 /***********************************************************************
 617  *           CoGetClassObject [COMPOBJ.7]
 618  *
 619  */
 620 HRESULT WINAPI CoGetClassObject16(
 621     REFCLSID rclsid, DWORD dwClsContext, COSERVERINFO *pServerInfo,
 622     REFIID iid, LPVOID *ppv)
 623 {
 624     FIXME(", stub!\n\tCLSID:\t%s,\n\tIID:\t%s\n", debugstr_guid(rclsid), debugstr_guid(iid));
 625
 626     if (pServerInfo) {
 627         FIXME("\tpServerInfo: name=%s\n",debugstr_w(pServerInfo->pwszName));
 628         FIXME("\t\tpAuthInfo=%p\n",pServerInfo->pAuthInfo);
 629     }
 630     return E_NOTIMPL;
 631 }
 632
 633 /***********************************************************************
 634  *           CoCreateInstance [COMPOBJ.13]
 635  */
 636 HRESULT WINAPI CoCreateInstance16(
 637         REFCLSID rclsid,
 638         LPUNKNOWN pUnkOuter,
 639         DWORD dwClsContext,
 640         REFIID iid,
 641         LPVOID *ppv)
 642 {
 643   FIXME("(%s, %p, %lx, %s, %p), stub!\n",
 644         debugstr_guid(rclsid), pUnkOuter, dwClsContext, debugstr_guid(iid),
 645         ppv
 646   );
 647   return E_NOTIMPL;
 648 }
 649
 650 /***********************************************************************
 651  *           DllGetClassObject                          [OLE2.4]
 652  */
 653 HRESULT WINAPI DllGetClassObject16(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
 654 {
 655   FIXME("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
 656   return E_NOTIMPL;
 657 }
 658
 659 /******************************************************************************
 660  *              GetRunningObjectTable (OLE2.30)
 661  */
 662 HRESULT WINAPI
 663 GetRunningObjectTable16(DWORD reserved, LPRUNNINGOBJECTTABLE *pprot)
 664 {
 665     FIXME("(%ld,%p),stub!\n",reserved,pprot);
 666     return E_NOTIMPL;
 667 }