503 lines
14 KiB
C
503 lines
14 KiB
C
/*
|
|
* Temporary place for ole2 stubs.
|
|
*
|
|
* Copyright (C) 1999 Corel Corporation
|
|
* Move these functions to dlls/ole32/ole2impl.c when you implement them.
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
|
|
#define NONAMELESSUNION
|
|
#define NONAMELESSSTRUCT
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "winuser.h"
|
|
#include "ole2.h"
|
|
#include "objidl.h"
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(ole);
|
|
|
|
/******************************************************************************
|
|
* OleCreateLinkToFile [OLE32.96]
|
|
*/
|
|
HRESULT WINAPI OleCreateLinkToFile(LPCOLESTR lpszFileName, REFIID riid,
|
|
DWORD renderopt, LPFORMATETC lpFormatEtc,
|
|
LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
|
|
{
|
|
FIXME("(%p,%p,%li,%p,%p,%p,%p), stub!\n",lpszFileName, riid, renderopt, lpFormatEtc, pClientSite, pStg, ppvObj);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
|
|
/******************************************************************************
|
|
* OleDuplicateData [OLE32.102]
|
|
*/
|
|
HRESULT WINAPI OleDuplicateData(HANDLE hSrc, CLIPFORMAT cfFormat,
|
|
UINT uiFlags)
|
|
{
|
|
FIXME("(%p,%x,%x), stub!\n", hSrc, cfFormat, uiFlags);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* OleTranslateAccelerator [OLE32.130]
|
|
*/
|
|
HRESULT WINAPI OleTranslateAccelerator (LPOLEINPLACEFRAME lpFrame,
|
|
LPOLEINPLACEFRAMEINFO lpFrameInfo, LPMSG lpmsg)
|
|
{
|
|
FIXME("(%p,%p,%p),stub!\n", lpFrame, lpFrameInfo, lpmsg);
|
|
return S_OK;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* SetConvertStg [OLE32.142]
|
|
*/
|
|
HRESULT WINAPI SetConvertStg(LPSTORAGE pStg, BOOL fConvert)
|
|
{
|
|
FIXME("(%p,%x), stub!\n", pStg, fConvert);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* OleCreate [OLE32.89]
|
|
*
|
|
*/
|
|
HRESULT WINAPI OleCreate(
|
|
REFCLSID rclsid,
|
|
REFIID riid,
|
|
DWORD renderopt,
|
|
LPFORMATETC pFormatEtc,
|
|
LPOLECLIENTSITE pClientSite,
|
|
LPSTORAGE pStg,
|
|
LPVOID* ppvObj)
|
|
{
|
|
HRESULT hres, hres1;
|
|
IUnknown * pUnk = NULL;
|
|
|
|
FIXME("\n\t%s\n\t%s stub!\n", debugstr_guid(rclsid), debugstr_guid(riid));
|
|
|
|
if (SUCCEEDED((hres = CoCreateInstance(rclsid, 0, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER|CLSCTX_LOCAL_SERVER , riid, (LPVOID*)&pUnk))))
|
|
{
|
|
if (pClientSite)
|
|
{
|
|
IOleObject * pOE;
|
|
IPersistStorage * pPS;
|
|
if (SUCCEEDED((hres = IUnknown_QueryInterface( pUnk, &IID_IOleObject, (LPVOID*)&pOE))))
|
|
{
|
|
TRACE("trying to set clientsite %p\n", pClientSite);
|
|
hres1 = IOleObject_SetClientSite(pOE, pClientSite);
|
|
TRACE("-- result 0x%08lx\n", hres1);
|
|
IOleObject_Release(pOE);
|
|
}
|
|
if (SUCCEEDED((hres = IUnknown_QueryInterface( pUnk, &IID_IPersistStorage, (LPVOID*)&pPS))))
|
|
{
|
|
TRACE("trying to set stg %p\n", pStg);
|
|
hres1 = IPersistStorage_InitNew(pPS, pStg);
|
|
TRACE("-- result 0x%08lx\n", hres1);
|
|
IPersistStorage_Release(pPS);
|
|
}
|
|
}
|
|
}
|
|
|
|
*ppvObj = pUnk;
|
|
|
|
TRACE("-- %p \n", pUnk);
|
|
return hres;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* OleCreateLink [OLE32.94]
|
|
*/
|
|
HRESULT WINAPI OleCreateLink(LPMONIKER pmkLinkSrc, REFIID riid, DWORD renderopt, LPFORMATETC lpFormatEtc,
|
|
LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
|
|
{
|
|
FIXME("(not shown), stub!\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* OleCreateFromFile [OLE32.93]
|
|
*/
|
|
HRESULT WINAPI OleCreateFromFile(REFCLSID rclsid, LPCOLESTR lpszFileName, REFIID riid,
|
|
DWORD renderopt, LPFORMATETC lpFormatEtc, LPOLECLIENTSITE pClientSite, LPSTORAGE pStg, LPVOID* ppvObj)
|
|
{
|
|
FIXME("(not shown), stub!\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
|
|
/******************************************************************************
|
|
* OleGetIconOfClass [OLE32.106]
|
|
*/
|
|
HGLOBAL WINAPI OleGetIconOfClass(REFCLSID rclsid, LPOLESTR lpszLabel, BOOL fUseTypeAsLabel)
|
|
{
|
|
FIXME("(%p,%p,%x), stub!\n", rclsid, lpszLabel, fUseTypeAsLabel);
|
|
return NULL;
|
|
}
|
|
|
|
|
|
/******************************************************************************
|
|
* OleCreateStaticFromData [OLE32.98]
|
|
*/
|
|
HRESULT WINAPI OleCreateStaticFromData(LPDATAOBJECT pSrcDataObj, REFIID iid,
|
|
DWORD renderopt, LPFORMATETC pFormatEtc, LPOLECLIENTSITE pClientSite,
|
|
LPSTORAGE pStg, LPVOID* ppvObj)
|
|
{
|
|
FIXME("(not shown), stub!\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* OleCreateLinkFromData [OLE32.95]
|
|
*/
|
|
|
|
HRESULT WINAPI OleCreateLinkFromData(LPDATAOBJECT pSrcDataObj, REFIID riid,
|
|
DWORD renderopt, LPFORMATETC pFormatEtc,
|
|
LPOLECLIENTSITE pClientSite, LPSTORAGE pStg,
|
|
LPVOID* ppvObj)
|
|
{
|
|
FIXME("(not shown), stub!\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
/******************************************************************************
|
|
* OleIsRunning [OLE32.111]
|
|
*/
|
|
BOOL WINAPI OleIsRunning(LPOLEOBJECT pObject)
|
|
{
|
|
FIXME("(%p), stub!\n", pObject);
|
|
return TRUE;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* OleRegEnumVerbs [OLE32.120]
|
|
*/
|
|
HRESULT WINAPI OleRegEnumVerbs (REFCLSID clsid, LPENUMOLEVERB* ppenum)
|
|
{
|
|
FIXME("(%p,%p), stub!\n", clsid, ppenum);
|
|
return OLEOBJ_E_NOVERBS;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* OleRegEnumFormatEtc [OLE32.119]
|
|
*/
|
|
HRESULT WINAPI OleRegEnumFormatEtc (
|
|
REFCLSID clsid,
|
|
DWORD dwDirection,
|
|
LPENUMFORMATETC* ppenumFormatetc)
|
|
{
|
|
FIXME("(%p, %ld, %p), stub!\n", clsid, dwDirection, ppenumFormatetc);
|
|
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* OLE_FreeClipDataArray [internal]
|
|
*
|
|
* NOTES:
|
|
* frees the data associated with an array of CLIPDATAs
|
|
*/
|
|
static void OLE_FreeClipDataArray(ULONG count, CLIPDATA * pClipDataArray)
|
|
{
|
|
ULONG i;
|
|
for (i = 0; i < count; i++)
|
|
{
|
|
if (pClipDataArray[i].pClipData)
|
|
{
|
|
CoTaskMemFree(pClipDataArray[i].pClipData);
|
|
}
|
|
}
|
|
}
|
|
|
|
HRESULT WINAPI FreePropVariantArray(ULONG,PROPVARIANT*);
|
|
|
|
/***********************************************************************
|
|
* PropVariantClear [OLE32.166]
|
|
*/
|
|
HRESULT WINAPI PropVariantClear(PROPVARIANT * pvar) /* [in/out] */
|
|
{
|
|
TRACE("(%p)\n", pvar);
|
|
|
|
if (!pvar)
|
|
return S_OK;
|
|
|
|
switch(pvar->vt)
|
|
{
|
|
case VT_STREAM:
|
|
case VT_STREAMED_OBJECT:
|
|
case VT_STORAGE:
|
|
case VT_STORED_OBJECT:
|
|
IUnknown_Release((LPUNKNOWN)pvar->u.pStream);
|
|
break;
|
|
case VT_CLSID:
|
|
case VT_LPSTR:
|
|
case VT_LPWSTR:
|
|
CoTaskMemFree(pvar->u.puuid); /* pick an arbitary typed pointer - we don't care about the type as we are just freeing it */
|
|
break;
|
|
case VT_BLOB:
|
|
case VT_BLOB_OBJECT:
|
|
CoTaskMemFree(pvar->u.blob.pBlobData);
|
|
break;
|
|
case VT_BSTR:
|
|
FIXME("Need to load OLEAUT32 for SysFreeString\n");
|
|
/* SysFreeString(pvar->u.bstrVal); */
|
|
break;
|
|
case VT_CF:
|
|
if (pvar->u.pclipdata)
|
|
{
|
|
OLE_FreeClipDataArray(1, pvar->u.pclipdata);
|
|
CoTaskMemFree(pvar->u.pclipdata);
|
|
}
|
|
break;
|
|
default:
|
|
if (pvar->vt & VT_ARRAY)
|
|
{
|
|
FIXME("Need to call SafeArrayDestroy\n");
|
|
/* SafeArrayDestroy(pvar->u.caub); */
|
|
}
|
|
switch (pvar->vt & VT_VECTOR)
|
|
{
|
|
case VT_VARIANT:
|
|
FreePropVariantArray(pvar->u.capropvar.cElems, pvar->u.capropvar.pElems);
|
|
break;
|
|
case VT_CF:
|
|
OLE_FreeClipDataArray(pvar->u.caclipdata.cElems, pvar->u.caclipdata.pElems);
|
|
break;
|
|
case VT_BSTR:
|
|
case VT_LPSTR:
|
|
case VT_LPWSTR:
|
|
FIXME("Freeing of vector sub-type not supported yet\n");
|
|
}
|
|
if (pvar->vt & VT_VECTOR)
|
|
{
|
|
CoTaskMemFree(pvar->u.capropvar.pElems); /* pick an arbitary VT_VECTOR structure - they all have the same memory layout */
|
|
}
|
|
}
|
|
|
|
ZeroMemory(pvar, sizeof(*pvar));
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* PropVariantCopy [OLE32.246]
|
|
*/
|
|
HRESULT WINAPI PropVariantCopy(PROPVARIANT *pvarDest, /* [out] FIXME: PROPVARIANT * */
|
|
const PROPVARIANT *pvarSrc) /* [in] FIXME: const PROPVARIANT * */
|
|
{
|
|
ULONG len;
|
|
TRACE("(%p, %p): stub:\n", pvarDest, pvarSrc);
|
|
|
|
/* this will deal with most cases */
|
|
CopyMemory(pvarDest, pvarSrc, sizeof(*pvarDest));
|
|
|
|
switch(pvarSrc->vt)
|
|
{
|
|
case VT_STREAM:
|
|
case VT_STREAMED_OBJECT:
|
|
case VT_STORAGE:
|
|
case VT_STORED_OBJECT:
|
|
IUnknown_AddRef((LPUNKNOWN)pvarDest->u.pStream);
|
|
break;
|
|
case VT_CLSID:
|
|
pvarDest->u.puuid = CoTaskMemAlloc(sizeof(CLSID));
|
|
CopyMemory(pvarDest->u.puuid, pvarSrc->u.puuid, sizeof(CLSID));
|
|
break;
|
|
case VT_LPSTR:
|
|
len = strlen(pvarSrc->u.pszVal);
|
|
pvarDest->u.pszVal = CoTaskMemAlloc(len);
|
|
CopyMemory(pvarDest->u.pszVal, pvarSrc->u.pszVal, len);
|
|
break;
|
|
case VT_LPWSTR:
|
|
len = lstrlenW(pvarSrc->u.pwszVal);
|
|
pvarDest->u.pwszVal = CoTaskMemAlloc(len);
|
|
CopyMemory(pvarDest->u.pwszVal, pvarSrc->u.pwszVal, len);
|
|
break;
|
|
case VT_BLOB:
|
|
case VT_BLOB_OBJECT:
|
|
if (pvarSrc->u.blob.pBlobData)
|
|
{
|
|
len = pvarSrc->u.blob.cbSize;
|
|
pvarDest->u.blob.pBlobData = CoTaskMemAlloc(len);
|
|
CopyMemory(pvarDest->u.blob.pBlobData, pvarSrc->u.blob.pBlobData, len);
|
|
}
|
|
break;
|
|
case VT_BSTR:
|
|
FIXME("Need to copy BSTR\n");
|
|
break;
|
|
case VT_CF:
|
|
if (pvarSrc->u.pclipdata)
|
|
{
|
|
len = pvarSrc->u.pclipdata->cbSize - sizeof(pvarSrc->u.pclipdata->ulClipFmt);
|
|
CoTaskMemAlloc(len);
|
|
CopyMemory(pvarDest->u.pclipdata->pClipData, pvarSrc->u.pclipdata->pClipData, len);
|
|
}
|
|
break;
|
|
default:
|
|
if (pvarSrc->vt & VT_ARRAY)
|
|
{
|
|
FIXME("Need to call SafeArrayCopy\n");
|
|
/* SafeArrayCopy(...); */
|
|
}
|
|
if (pvarSrc->vt & VT_VECTOR)
|
|
{
|
|
int elemSize;
|
|
switch(pvarSrc->vt & VT_VECTOR)
|
|
{
|
|
case VT_I1:
|
|
elemSize = sizeof(pvarSrc->u.cVal);
|
|
break;
|
|
case VT_UI1:
|
|
elemSize = sizeof(pvarSrc->u.bVal);
|
|
break;
|
|
case VT_I2:
|
|
elemSize = sizeof(pvarSrc->u.iVal);
|
|
break;
|
|
case VT_UI2:
|
|
elemSize = sizeof(pvarSrc->u.uiVal);
|
|
break;
|
|
case VT_BOOL:
|
|
elemSize = sizeof(pvarSrc->u.boolVal);
|
|
break;
|
|
case VT_I4:
|
|
elemSize = sizeof(pvarSrc->u.lVal);
|
|
break;
|
|
case VT_UI4:
|
|
elemSize = sizeof(pvarSrc->u.ulVal);
|
|
break;
|
|
case VT_R4:
|
|
elemSize = sizeof(pvarSrc->u.fltVal);
|
|
break;
|
|
case VT_R8:
|
|
elemSize = sizeof(pvarSrc->u.dblVal);
|
|
break;
|
|
case VT_ERROR:
|
|
elemSize = sizeof(pvarSrc->u.scode);
|
|
break;
|
|
case VT_I8:
|
|
elemSize = sizeof(pvarSrc->u.hVal);
|
|
break;
|
|
case VT_UI8:
|
|
elemSize = sizeof(pvarSrc->u.uhVal);
|
|
break;
|
|
case VT_CY:
|
|
elemSize = sizeof(pvarSrc->u.cyVal);
|
|
break;
|
|
case VT_DATE:
|
|
elemSize = sizeof(pvarSrc->u.date);
|
|
break;
|
|
case VT_FILETIME:
|
|
elemSize = sizeof(pvarSrc->u.filetime);
|
|
break;
|
|
case VT_CLSID:
|
|
elemSize = sizeof(*pvarSrc->u.puuid);
|
|
break;
|
|
case VT_CF:
|
|
elemSize = sizeof(*pvarSrc->u.pclipdata);
|
|
break;
|
|
case VT_BSTR:
|
|
case VT_LPSTR:
|
|
case VT_LPWSTR:
|
|
case VT_VARIANT:
|
|
default:
|
|
FIXME("Invalid element type: %ul\n", pvarSrc->vt & VT_VECTOR);
|
|
return E_INVALIDARG;
|
|
}
|
|
len = pvarSrc->u.capropvar.cElems;
|
|
pvarDest->u.capropvar.pElems = CoTaskMemAlloc(len * elemSize);
|
|
if (pvarSrc->vt == (VT_VECTOR | VT_VARIANT))
|
|
{
|
|
ULONG i;
|
|
for (i = 0; i < len; i++)
|
|
PropVariantCopy(&pvarDest->u.capropvar.pElems[i], &pvarSrc->u.capropvar.pElems[i]);
|
|
}
|
|
else if (pvarSrc->vt == (VT_VECTOR | VT_CF))
|
|
{
|
|
FIXME("Copy clipformats\n");
|
|
}
|
|
else if (pvarSrc->vt == (VT_VECTOR | VT_BSTR))
|
|
{
|
|
FIXME("Copy BSTRs\n");
|
|
}
|
|
else if (pvarSrc->vt == (VT_VECTOR | VT_LPSTR))
|
|
{
|
|
FIXME("Copy LPSTRs\n");
|
|
}
|
|
else if (pvarSrc->vt == (VT_VECTOR | VT_LPSTR))
|
|
{
|
|
FIXME("Copy LPWSTRs\n");
|
|
}
|
|
else
|
|
CopyMemory(pvarDest->u.capropvar.pElems, pvarSrc->u.capropvar.pElems, len * elemSize);
|
|
}
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* FreePropVariantArray [OLE32.195]
|
|
*/
|
|
HRESULT WINAPI FreePropVariantArray(ULONG cVariants, /* [in] */
|
|
PROPVARIANT *rgvars) /* [in/out] */
|
|
{
|
|
ULONG i;
|
|
|
|
TRACE("(%lu, %p)\n", cVariants, rgvars);
|
|
|
|
for(i = 0; i < cVariants; i++)
|
|
PropVariantClear(&rgvars[i]);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CoIsOle1Class [OLE32.29]
|
|
*/
|
|
BOOL WINAPI CoIsOle1Class(REFCLSID clsid)
|
|
{
|
|
FIXME("%s\n", debugstr_guid(clsid));
|
|
return FALSE;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* DllGetClassObject [OLE2.4]
|
|
*/
|
|
HRESULT WINAPI DllGetClassObject16(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
|
|
{
|
|
FIXME("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* OleSetClipboard [OLE2.49]
|
|
*/
|
|
HRESULT WINAPI OleSetClipboard16(IDataObject* pDataObj)
|
|
{
|
|
FIXME("(%p): stub\n", pDataObj);
|
|
return S_OK;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* OleGetClipboard [OLE2.50]
|
|
*/
|
|
HRESULT WINAPI OleGetClipboard16(IDataObject** ppDataObj)
|
|
{
|
|
FIXME("(%p): stub\n", ppDataObj);
|
|
return E_NOTIMPL;
|
|
}
|