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  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #define NONAMELESSUNION
  23 #define NONAMELESSSTRUCT
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "ole2.h"
  28 #include "wine/debug.h"
  29
  30 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  31
  32 /******************************************************************************
  33  *               OleCreateLinkToFile        [OLE32.96]
  34  */
  35 HRESULT WINAPI  OleCreateLinkToFile(LPCOLESTR lpszFileName, REFIID riid,
  36                         DWORD renderopt, LPFORMATETC lpFormatEtc,
  37                         LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
  38 {
  39     FIXME("(%p,%p,%li,%p,%p,%p,%p), stub!\n",lpszFileName, riid, renderopt, lpFormatEtc, pClientSite, pStg, ppvObj);
  40     return E_NOTIMPL;
  41 }
  42
  43
  44 /******************************************************************************
  45  *              OleDuplicateData        [OLE32.102]
  46  */
  47 HRESULT WINAPI OleDuplicateData(HANDLE hSrc, CLIPFORMAT cfFormat,
  48                                   UINT uiFlags)
  49 {
  50     FIXME("(%p,%x,%x), stub!\n", hSrc, cfFormat, uiFlags);
  51     return E_NOTIMPL;
  52 }
  53
  54
  55 /***********************************************************************
  56  *               WriteFmtUserTypeStg (OLE32.160)
  57  */
  58 HRESULT WINAPI WriteFmtUserTypeStg(
  59           LPSTORAGE pstg, CLIPFORMAT cf, LPOLESTR lpszUserType)
  60 {
  61     FIXME("(%p,%x,%s) stub!\n",pstg,cf,debugstr_w(lpszUserType));
  62     return E_NOTIMPL;
  63 }
  64
  65 /***********************************************************************
  66  *             OleTranslateAccelerator [OLE32.130]
  67  */
  68 HRESULT WINAPI OleTranslateAccelerator (LPOLEINPLACEFRAME lpFrame,
  69                    LPOLEINPLACEFRAMEINFO lpFrameInfo, LPMSG lpmsg)
  70 {
  71     FIXME("(%p,%p,%p),stub!\n", lpFrame, lpFrameInfo, lpmsg);
  72     return S_OK;
  73 }
  74
  75 /******************************************************************************
  76  *              SetConvertStg        [OLE32.142]
  77  */
  78 HRESULT WINAPI SetConvertStg(LPSTORAGE pStg, BOOL fConvert)
  79 {
  80   FIXME("(%p,%x), stub!\n", pStg, fConvert);
  81   return E_NOTIMPL;
  82 }
  83
  84 /******************************************************************************
  85  *              OleCreate        [OLE32.89]
  86  *
  87  */
  88 HRESULT WINAPI OleCreate(
  89         REFCLSID rclsid,
  90         REFIID riid,
  91         DWORD renderopt,
  92         LPFORMATETC pFormatEtc,
  93         LPOLECLIENTSITE pClientSite,
  94         LPSTORAGE pStg,
  95         LPVOID* ppvObj)
  96 {
  97   HRESULT hres, hres1;
  98   IUnknown * pUnk = NULL;
  99
 100   FIXME("\n\t%s\n\t%s stub!\n", debugstr_guid(rclsid), debugstr_guid(riid));
 101
 102   if (SUCCEEDED((hres = CoCreateInstance(rclsid, 0, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER|CLSCTX_LOCAL_SERVER , riid, (LPVOID*)&pUnk))))
 103   {
 104     if (pClientSite)
 105     {
 106       IOleObject * pOE;
 107       IPersistStorage * pPS;
 108       if (SUCCEEDED((hres = IUnknown_QueryInterface( pUnk, &IID_IOleObject, (LPVOID*)&pOE))))
 109       {
 110         TRACE("trying to set clientsite %p\n", pClientSite);
 111         hres1 = IOleObject_SetClientSite(pOE, pClientSite);
 112         TRACE("-- result 0x%08lx\n", hres1);
 113         IOleObject_Release(pOE);
 114       }
 115       if (SUCCEEDED((hres = IUnknown_QueryInterface( pUnk, &IID_IPersistStorage, (LPVOID*)&pPS))))
 116       {
 117         TRACE("trying to set stg %p\n", pStg);
 118         hres1 = IPersistStorage_InitNew(pPS, pStg);
 119         TRACE("-- result 0x%08lx\n", hres1);
 120         IPersistStorage_Release(pPS);
 121       }
 122     }
 123   }
 124
 125   *ppvObj = pUnk;
 126
 127   TRACE("-- %p \n", pUnk);
 128   return hres;
 129 }
 130
 131 /******************************************************************************
 132  *              OleCreateLink        [OLE32.94]
 133  */
 134 HRESULT WINAPI OleCreateLink(LPMONIKER pmkLinkSrc, REFIID riid, DWORD renderopt, LPFORMATETC lpFormatEtc,
 135                 LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
 136 {
 137   FIXME("(not shown), stub!\n");
 138   return E_NOTIMPL;
 139 }
 140
 141 /******************************************************************************
 142  *              OleCreateFromFile        [OLE32.93]
 143  */
 144 HRESULT WINAPI OleCreateFromFile(REFCLSID rclsid, LPCOLESTR lpszFileName, REFIID riid,
 145             DWORD renderopt, LPFORMATETC lpFormatEtc, LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
 146 {
 147   FIXME("(not shown), stub!\n");
 148   return E_NOTIMPL;
 149 }
 150
 151
 152 /******************************************************************************
 153  *              OleGetIconOfClass        [OLE32.106]
 154  */
 155 HGLOBAL WINAPI OleGetIconOfClass(REFCLSID rclsid, LPOLESTR lpszLabel, BOOL fUseTypeAsLabel)
 156 {
 157   FIXME("(%p,%p,%x), stub!\n", rclsid, lpszLabel, fUseTypeAsLabel);
 158   return NULL;
 159 }
 160
 161 /******************************************************************************
 162  *              ReadFmtUserTypeStg        [OLE32.136]
 163  */
 164 HRESULT WINAPI ReadFmtUserTypeStg (LPSTORAGE pstg, CLIPFORMAT* pcf, LPOLESTR* lplpszUserType)
 165 {
 166   FIXME("(%p,%p,%p), stub!\n", pstg, pcf, lplpszUserType);
 167   return E_NOTIMPL;
 168 }
 169
 170 /******************************************************************************
 171  *              OleCreateStaticFromData        [OLE32.98]
 172  */
 173 HRESULT     WINAPI OleCreateStaticFromData(LPDATAOBJECT pSrcDataObj, REFIID iid,
 174                 DWORD renderopt, LPFORMATETC pFormatEtc, LPOLECLIENTSITE pClientSite,
 175                 LPSTORAGE pStg, LPVOID* ppvObj)
 176 {
 177   FIXME("(not shown), stub!\n");
 178   return E_NOTIMPL;
 179 }
 180
 181 /******************************************************************************
 182  *              OleCreateLinkFromData        [OLE32.95]
 183  */
 184
 185 HRESULT WINAPI  OleCreateLinkFromData(LPDATAOBJECT pSrcDataObj, REFIID riid,
 186                 DWORD renderopt, LPFORMATETC pFormatEtc,
 187                 LPOLECLIENTSITE pClientSite, LPSTORAGE pStg,
 188                 LPVOID* ppvObj)
 189 {
 190   FIXME("(not shown), stub!\n");
 191   return E_NOTIMPL;
 192 }
 193
 194 /******************************************************************************
 195  *              OleIsRunning        [OLE32.111]
 196  */
 197 BOOL WINAPI OleIsRunning(LPOLEOBJECT pObject)
 198 {
 199   FIXME("(%p), stub!\n", pObject);
 200   return TRUE;
 201 }
 202
 203 /***********************************************************************
 204  *           OleRegEnumVerbs    [OLE32.120]
 205  */
 206 HRESULT WINAPI OleRegEnumVerbs (REFCLSID clsid, LPENUMOLEVERB* ppenum)
 207 {
 208     FIXME("(%p,%p), stub!\n", clsid, ppenum);
 209     return OLEOBJ_E_NOVERBS;
 210 }
 211
 212 /***********************************************************************
 213  *           OleRegEnumFormatEtc    [OLE32.119]
 214  */
 215 HRESULT     WINAPI OleRegEnumFormatEtc (
 216   REFCLSID clsid,
 217   DWORD    dwDirection,
 218   LPENUMFORMATETC* ppenumFormatetc)
 219 {
 220     FIXME("(%p, %ld, %p), stub!\n", clsid, dwDirection, ppenumFormatetc);
 221
 222     return E_NOTIMPL;
 223 }
 224
 225 /***********************************************************************
 226  *           PropVariantClear                       [OLE32.166]
 227  */
 228 HRESULT WINAPI PropVariantClear(void *pvar) /* [in/out] FIXME: PROPVARIANT * */
 229 {
 230         FIXME("(%p): stub:\n", pvar);
 231
 232         *(LPWORD)pvar = 0;
 233         /* sets at least the vt field to VT_EMPTY */
 234         return E_NOTIMPL;
 235 }
 236
 237 /***********************************************************************
 238  *           PropVariantCopy                        [OLE32.246]
 239  */
 240 HRESULT WINAPI PropVariantCopy(void *pvarDest,      /* [out] FIXME: PROPVARIANT * */
 241                                const void *pvarSrc) /* [in] FIXME: const PROPVARIANT * */
 242 {
 243         FIXME("(%p, %p): stub:\n", pvarDest, pvarSrc);
 244
 245         return E_NOTIMPL;
 246 }
 247
 248 /***********************************************************************
 249  *           FreePropVariantArray                           [OLE32.195]
 250  */
 251 HRESULT WINAPI FreePropVariantArray(ULONG cVariants, /* [in] */
 252                                     void *rgvars)    /* [in/out] FIXME: PROPVARIANT * */
 253 {
 254         FIXME("(%lu, %p): stub:\n", cVariants, rgvars);
 255
 256         return E_NOTIMPL;
 257 }
 258
 259 /***********************************************************************
 260  *           CoIsOle1Class                              [OLE32.29]
 261  */
 262 BOOL WINAPI CoIsOle1Class(REFCLSID clsid)
 263 {
 264   FIXME("%s\n", debugstr_guid(clsid));
 265   return FALSE;
 266 }
 267
 268 /***********************************************************************
 269  *           DllGetClassObject                          [OLE2.4]
 270  */
 271 HRESULT WINAPI DllGetClassObject16(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
 272 {
 273   FIXME("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
 274   return E_NOTIMPL;
 275 }
 276
 277 /***********************************************************************
 278  *           OleSetClipboard                            [OLE2.49]
 279  */
 280 HRESULT WINAPI OleSetClipboard16(IDataObject* pDataObj)
 281 {
 282   FIXME("(%p): stub\n", pDataObj);
 283   return S_OK;
 284 }
 285
 286 /***********************************************************************
 287  *           OleGetClipboard                            [OLE2.50]
 288  */
 289 HRESULT WINAPI OleGetClipboard16(IDataObject** ppDataObj)
 290 {
 291   FIXME("(%p): stub\n", ppDataObj);
 292   return E_NOTIMPL;
 293 }