git.oblomov.eu Git - wine/blob - 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 "windef.h"
   9 #include "winbase.h"
  10 #include "winuser.h"
  11 #include "ole2.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  *              SetConvertStg        [OLE32.142]
  61  */
  62 HRESULT WINAPI SetConvertStg(LPSTORAGE pStg, BOOL fConvert)
  63 {
  64   FIXME("(%p,%x), stub!\n", pStg, fConvert);
  65   return S_OK;
  66 }
  67
  68 /******************************************************************************
  69  *              OleCreate        [OLE32.89]
  70  *
  71  */
  72 HRESULT WINAPI OleCreate(
  73         REFCLSID rclsid,
  74         REFIID riid,
  75         DWORD renderopt,
  76         LPFORMATETC pFormatEtc,
  77         LPOLECLIENTSITE pClientSite,
  78         LPSTORAGE pStg,
  79         LPVOID* ppvObj)
  80 {
  81   HRESULT hres, hres1;
  82   IUnknown * pUnk = NULL;
  83
  84   FIXME("\n\t%s\n\t%s stub!\n", debugstr_guid(rclsid), debugstr_guid(riid));
  85
  86   if (SUCCEEDED((hres = CoCreateInstance(rclsid, 0, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&pUnk))))
  87   {
  88     if (pClientSite)
  89     {
  90       IOleObject * pOE;
  91       IPersistStorage * pPS;
  92       if (SUCCEEDED((hres = IUnknown_QueryInterface( pUnk, &IID_IOleObject, (LPVOID*)&pOE))))
  93       {
  94         TRACE("trying to set clientsite %p\n", pClientSite);
  95         hres1 = IOleObject_SetClientSite(pOE, pClientSite);
  96         TRACE("-- result 0x%08lx\n", hres1);
  97         IOleObject_Release(pOE);
  98       }
  99       if (SUCCEEDED((hres = IUnknown_QueryInterface( pUnk, &IID_IPersistStorage, (LPVOID*)&pPS))))
 100       {
 101         TRACE("trying to set stg %p\n", pStg);
 102         hres1 = IPersistStorage_InitNew(pPS, pStg);
 103         TRACE("-- result 0x%08lx\n", hres1);
 104         IPersistStorage_Release(pPS);
 105       }
 106     }
 107   }
 108
 109   *ppvObj = pUnk;
 110
 111   TRACE("-- %p \n", pUnk);
 112   return hres;
 113 }
 114
 115 /******************************************************************************
 116  *              OleCreateLink        [OLE32.94]
 117  */
 118 HRESULT WINAPI OleCreateLink(LPMONIKER pmkLinkSrc, REFIID riid, DWORD renderopt, LPFORMATETC lpFormatEtc,
 119                 LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
 120 {
 121   FIXME("(not shown), stub!\n");
 122   return S_OK;
 123 }
 124
 125 /******************************************************************************
 126  *              OleCreateFromFile        [OLE32.93]
 127  */
 128 HRESULT WINAPI OleCreateFromFile(REFCLSID rclsid, LPCOLESTR lpszFileName, REFIID riid,
 129             DWORD renderopt, LPFORMATETC lpFormatEtc, LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
 130 {
 131   FIXME("(not shown), stub!\n");
 132   return S_OK;
 133 }
 134
 135
 136 /******************************************************************************
 137  *              OleGetIconOfClass        [OLE32.106]
 138  */
 139 HGLOBAL WINAPI OleGetIconOfClass(REFCLSID rclsid, LPOLESTR lpszLabel, BOOL fUseTypeAsLabel)
 140 {
 141   FIXME("(%p,%p,%x), stub!\n", rclsid, lpszLabel, fUseTypeAsLabel);
 142   return S_OK;
 143 }
 144
 145 /******************************************************************************
 146  *              ReadFmtUserTypeStg        [OLE32.136]
 147  */
 148 HRESULT WINAPI ReadFmtUserTypeStg (LPSTORAGE pstg, CLIPFORMAT* pcf, LPOLESTR* lplpszUserType)
 149 {
 150   FIXME("(%p,%p,%p), stub!\n", pstg, pcf, lplpszUserType);
 151   return S_OK;
 152 }
 153
 154 /******************************************************************************
 155  *              OleCreateStaticFromData        [OLE32.98]
 156  */
 157 HRESULT     WINAPI OleCreateStaticFromData(LPDATAOBJECT pSrcDataObj, REFIID iid,
 158                 DWORD renderopt, LPFORMATETC pFormatEtc, LPOLECLIENTSITE pClientSite,
 159                 LPSTORAGE pStg, LPVOID* ppvObj)
 160 {
 161   FIXME("(not shown), stub!\n");
 162   return S_OK;
 163 }
 164
 165 /******************************************************************************
 166  *              OleCreateLinkFromData        [OLE32.95]
 167  */
 168
 169 HRESULT WINAPI  OleCreateLinkFromData(LPDATAOBJECT pSrcDataObj, REFIID riid,
 170                 DWORD renderopt, LPFORMATETC pFormatEtc,
 171                 LPOLECLIENTSITE pClientSite, LPSTORAGE pStg,
 172                 LPVOID* ppvObj)
 173 {
 174   FIXME("(not shown), stub!\n");
 175   return S_OK;
 176 }
 177
 178 /******************************************************************************
 179  *              OleIsRunning        [OLE32.111]
 180  */
 181 BOOL WINAPI OleIsRunning(LPOLEOBJECT pObject)
 182 {
 183   FIXME("(%p), stub!\n", pObject);
 184   return TRUE;
 185 }
 186
 187 /***********************************************************************
 188  *           OleRegEnumVerbs    [OLE32.120]
 189  */
 190 HRESULT WINAPI OleRegEnumVerbs (REFCLSID clsid, LPENUMOLEVERB* ppenum)
 191 {
 192     FIXME("(%p,%p), stub!\n", clsid, ppenum);
 193     return OLEOBJ_E_NOVERBS;
 194 }
 195
 196 /***********************************************************************
 197  *           OleRegEnumFormatEtc    [OLE32.119]
 198  */
 199 HRESULT     WINAPI OleRegEnumFormatEtc (
 200   REFCLSID clsid,
 201   DWORD    dwDirection,
 202   LPENUMFORMATETC* ppenumFormatetc)
 203 {
 204     FIXME("(%p, %ld, %p), stub!\n", clsid, dwDirection, ppenumFormatetc);
 205
 206     return S_OK;
 207 }
 208
 209 /***********************************************************************
 210  *           PropVariantClear                       [OLE32.166]
 211  */
 212 HRESULT WINAPI PropVariantClear(void *pvar) /* [in/out] FIXME: PROPVARIANT * */
 213 {
 214         FIXME("(%p): stub:\n", pvar);
 215
 216         *(LPWORD)pvar = 0;
 217         /* sets at least the vt field to VT_EMPTY */
 218         return S_OK;
 219 }
 220
 221 /***********************************************************************
 222  *           PropVariantCopy                        [OLE32.246]
 223  */
 224 HRESULT WINAPI PropVariantCopy(void *pvarDest,      /* [out] FIXME: PROPVARIANT * */
 225                                const void *pvarSrc) /* [in] FIXME: const PROPVARIANT * */
 226 {
 227         FIXME("(%p, %p): stub:\n", pvarDest, pvarSrc);
 228
 229         return S_OK;
 230 }
 231
 232 /***********************************************************************
 233  *           FreePropVariantArray                           [OLE32.195]
 234  */
 235 HRESULT WINAPI FreePropVariantArray(ULONG cVariants, /* [in] */
 236                                     void *rgvars)    /* [in/out] FIXME: PROPVARIANT * */
 237 {
 238         FIXME("(%lu, %p): stub:\n", cVariants, rgvars);
 239
 240         return S_OK;
 241 }
 242
 243 /***********************************************************************
 244  *           CoIsOle1Class                              [OLE32.29]
 245  */
 246 BOOL WINAPI CoIsOle1Class(REFCLSID clsid)
 247 {
 248   FIXME("%s\n", debugstr_guid(clsid));
 249   return FALSE;
 250 }