dlls/ole32/ole2stubs.c

   1 /*
   2  * Temporary place for ole2 stubs.
   3  *
   4  * Copyright (C) 1999 Corel Corporation
   5  * Move these functions to dlls/ole32/ole2impl.c when you implement them.
   6  */
   7
   8 #include "ole2.h"
   9 #include "windef.h"
  10 #include "wingdi.h"
  11 #include "winuser.h"
  12 #include "debugtools.h"
  13
  14 DEFAULT_DEBUG_CHANNEL(ole)
  15
  16 /******************************************************************************
  17  *               OleCreateLinkToFile        [OLE32.96]
  18  */
  19 HRESULT WINAPI  OleCreateLinkToFile(LPCOLESTR lpszFileName, REFIID riid,
  20                         DWORD renderopt, LPFORMATETC lpFormatEtc,
  21                         LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
  22 {
  23     FIXME("(%p,%p,%li,%p,%p,%p,%p), stub!\n",lpszFileName, riid, renderopt, lpFormatEtc, pClientSite, pStg, ppvObj);
  24     return S_OK;
  25 }
  26
  27
  28 /******************************************************************************
  29  *              OleDuplicateData        [OLE32.102]
  30  */
  31 HRESULT WINAPI OleDuplicateData(HANDLE hSrc, CLIPFORMAT cfFormat,
  32                                   UINT uiFlags)
  33 {
  34     FIXME("(%x,%x,%x), stub!\n", hSrc, cfFormat, uiFlags);
  35     return S_OK;
  36 }
  37
  38
  39 /***********************************************************************
  40  *               WriteFmtUserTypeStg (OLE32.160)
  41  */
  42 HRESULT WINAPI WriteFmtUserTypeStg(
  43           LPSTORAGE pstg, CLIPFORMAT cf, LPOLESTR lpszUserType)
  44 {
  45     FIXME("(%p,%x,%s) stub!\n",pstg,cf,debugstr_w(lpszUserType));
  46     return S_OK;
  47 }
  48
  49 /***********************************************************************
  50  *             OleTranslateAccelerator [OLE32.130]
  51  */
  52 HRESULT WINAPI OleTranslateAccelerator (LPOLEINPLACEFRAME lpFrame,
  53                    LPOLEINPLACEFRAMEINFO lpFrameInfo, LPMSG lpmsg)
  54 {
  55     FIXME("(%p,%p,%p),stub!\n", lpFrame, lpFrameInfo, lpmsg);
  56     return S_OK;
  57 }
  58
  59 /******************************************************************************
  60  *              CoTreatAsClass        [OLE32.46]
  61  */
  62 HRESULT WINAPI CoTreatAsClass(REFCLSID clsidOld, REFCLSID clsidNew)
  63 {
  64   FIXME("(%p,%p), stub!\n", clsidOld, clsidNew);
  65   return S_OK;
  66 }
  67
  68 /******************************************************************************
  69  *              OleSetAutoConvert        [OLE32.@]
  70  */
  71 HRESULT WINAPI OleSetAutoConvert(REFCLSID clsidOld, REFCLSID clsidNew)
  72 {
  73     FIXME("(%p,%p), stub!\n", clsidOld, clsidNew);
  74     return S_OK;
  75 }
  76
  77 /******************************************************************************
  78  *              IsAccelerator        [OLE32.75]
  79  */
  80 BOOL WINAPI IsAccelerator(HACCEL hAccel, int cAccelEntries, LPMSG lpMsg, WORD* lpwCmd)
  81 {
  82   FIXME("(%x,%i,%p,%p), stub!\n", hAccel, cAccelEntries, lpMsg, lpwCmd);
  83   return TRUE;
  84 }
  85
  86 /******************************************************************************
  87  *              SetConvertStg        [OLE32.142]
  88  */
  89 HRESULT WINAPI SetConvertStg(LPSTORAGE pStg, BOOL fConvert)
  90 {
  91   FIXME("(%p,%x), stub!\n", pStg, fConvert);
  92   return S_OK;
  93 }
  94
  95 /******************************************************************************
  96  *              OleCreate        [OLE32.80]
  97  *
  98  */
  99 HRESULT WINAPI OleCreate(
 100         REFCLSID rclsid,
 101         REFIID riid,
 102         DWORD renderopt,
 103         LPFORMATETC pFormatEtc,
 104         LPOLECLIENTSITE pClientSite,
 105         LPSTORAGE pStg,
 106         LPVOID* ppvObj)
 107 {
 108   HRESULT hres, hres1;
 109   IUnknown * pUnk = NULL;
 110
 111   FIXME("\n\t%s\n\t%s stub!\n", debugstr_guid(rclsid), debugstr_guid(riid));
 112
 113   if (SUCCEEDED((hres = CoCreateInstance(rclsid, 0, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&pUnk))))
 114   {
 115     if (pClientSite)
 116     {
 117       IOleObject * pOE;
 118       IPersistStorage * pPS;
 119       if (SUCCEEDED((hres = IUnknown_QueryInterface( pUnk, &IID_IOleObject, (LPVOID*)&pOE))))
 120       {
 121         TRACE("trying to set clientsite %p\n", pClientSite);
 122         hres1 = IOleObject_SetClientSite(pOE, pClientSite);
 123         TRACE("-- result 0x%08lx\n", hres1);
 124         IOleObject_Release(pOE);
 125       }
 126       if (SUCCEEDED((hres = IUnknown_QueryInterface( pUnk, &IID_IPersistStorage, (LPVOID*)&pPS))))
 127       {
 128         TRACE("trying to set stg %p\n", pStg);
 129         hres1 = IPersistStorage_InitNew(pPS, pStg);
 130         TRACE("-- result 0x%08lx\n", hres1);
 131         IPersistStorage_Release(pPS);
 132       }
 133     }
 134   }
 135
 136   *ppvObj = pUnk;
 137
 138   TRACE("-- %p \n", pUnk);
 139   return hres;
 140 }
 141
 142 /******************************************************************************
 143  *              OleCreateLink        [OLE32.94]
 144  */
 145 HRESULT WINAPI OleCreateLink(LPMONIKER pmkLinkSrc, REFIID riid, DWORD renderopt, LPFORMATETC lpFormatEtc,
 146                 LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
 147 {
 148   FIXME("(not shown), stub!\n");
 149   return S_OK;
 150 }
 151
 152 /******************************************************************************
 153  *              OleCreateFromFile        [OLE32.93]
 154  */
 155 HRESULT WINAPI OleCreateFromFile(REFCLSID rclsid, LPCOLESTR lpszFileName, REFIID riid,
 156             DWORD renderopt, LPFORMATETC lpFormatEtc, LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
 157 {
 158   FIXME("(not shown), stub!\n");
 159   return S_OK;
 160 }
 161
 162 /******************************************************************************
 163  *              OleLockRunning        [OLE32.114]
 164  */
 165 HRESULT WINAPI OleLockRunning(LPUNKNOWN pUnknown, BOOL fLock, BOOL fLastUnlockCloses)
 166 {
 167   FIXME("(%p,%x,%x), stub!\n", pUnknown, fLock, fLastUnlockCloses);
 168   return S_OK;
 169 }
 170
 171 /******************************************************************************
 172  *              OleGetIconOfClass        [OLE32.106]
 173  */
 174 HGLOBAL WINAPI OleGetIconOfClass(REFCLSID rclsid, LPOLESTR lpszLabel, BOOL fUseTypeAsLabel)
 175 {
 176   FIXME("(%p,%p,%x), stub!\n", rclsid, lpszLabel, fUseTypeAsLabel);
 177   return S_OK;
 178 }
 179
 180 /******************************************************************************
 181  *              ReadFmtUserTypeStg        [OLE32.136]
 182  */
 183 HRESULT WINAPI ReadFmtUserTypeStg (LPSTORAGE pstg, CLIPFORMAT* pcf, LPOLESTR* lplpszUserType)
 184 {
 185   FIXME("(%p,%p,%p), stub!\n", pstg, pcf, lplpszUserType);
 186   return S_OK;
 187 }
 188
 189 /******************************************************************************
 190  *              OleCreateStaticFromData        [OLE32.98]
 191  */
 192 HRESULT     WINAPI OleCreateStaticFromData(LPDATAOBJECT pSrcDataObj, REFIID iid,
 193                 DWORD renderopt, LPFORMATETC pFormatEtc, LPOLECLIENTSITE pClientSite,
 194                 LPSTORAGE pStg, LPVOID* ppvObj)
 195 {
 196   FIXME("(not shown), stub!\n");
 197   return S_OK;
 198 }
 199
 200 /******************************************************************************
 201  *              OleCreateLinkFromData        [OLE32.95]
 202  */
 203
 204 HRESULT WINAPI  OleCreateLinkFromData(LPDATAOBJECT pSrcDataObj, REFIID riid,
 205                 DWORD renderopt, LPFORMATETC pFormatEtc,
 206                 LPOLECLIENTSITE pClientSite, LPSTORAGE pStg,
 207                 LPVOID* ppvObj)
 208 {
 209   FIXME("(not shown), stub!\n");
 210   return S_OK;
 211 }
 212
 213 /******************************************************************************
 214  *              OleIsRunning        [OLE32.111]
 215  */
 216 BOOL WINAPI OleIsRunning(LPOLEOBJECT pObject)
 217 {
 218   FIXME("(%p), stub!\n", pObject);
 219   return TRUE;
 220 }
 221
 222 /***********************************************************************
 223  *           OleRegEnumVerbs    [OLE32.120]
 224  */
 225 HRESULT WINAPI OleRegEnumVerbs (REFCLSID clsid, LPENUMOLEVERB* ppenum)
 226 {
 227     FIXME("(%p,%p), stub!\n", clsid, ppenum);
 228     return OLEOBJ_E_NOVERBS;
 229 }
 230
 231 /***********************************************************************
 232  *           OleRegEnumFormatEtc    [OLE32.119]
 233  */
 234 HRESULT     WINAPI OleRegEnumFormatEtc (
 235   REFCLSID clsid,
 236   DWORD    dwDirection,
 237   LPENUMFORMATETC* ppenumFormatetc)
 238 {
 239     FIXME("(%p, %ld, %p), stub!\n", clsid, dwDirection, ppenumFormatetc);
 240
 241     return S_OK;
 242 }
 243
 244 /***********************************************************************
 245  *           PropVariantClear                       [OLE32.166]
 246  */
 247 HRESULT WINAPI PropVariantClear(/*PROPVARIANT* */void* pvar)
 248 {
 249         FIXME("(%p): stub:\n", pvar);
 250
 251         *(LPWORD)pvar = 0;
 252         /* sets at least the vt field to VT_EMPTY */
 253         return S_OK;
 254 }
 255
 256 /***********************************************************************
 257  *           PropVariantCopy                        [OLE32.246]
 258  */
 259 HRESULT WINAPI PropVariantCopy(/*PROPVARIANT* */void* pvarDest,
 260                                  /*const PROPVARIANT* */ void* pvarSrc)
 261 {
 262         FIXME("(%p, %p): stub:\n", pvarDest, pvarSrc);
 263
 264         return S_OK;
 265 }
 266
 267 /***********************************************************************
 268  *           FreePropVariantArray                           [OLE32.195]
 269  */
 270 HRESULT WINAPI FreePropVariantArray(ULONG cVariants, /*PROPVARIANT* */void* rgvars)
 271 {
 272         FIXME("(%lu, %p): stub:\n", cVariants, rgvars);
 273
 274         return S_OK;
 275 }