2 * Temporary place for ole2 stubs.
4 * Copyright (C) 1999 Corel Corporation
5 * Move these functions to dlls/ole32/ole2impl.c when you implement them.
13 #include "debugtools.h"
15 DEFAULT_DEBUG_CHANNEL(ole
);
17 /******************************************************************************
18 * OleCreateLinkToFile [OLE32.96]
20 HRESULT WINAPI
OleCreateLinkToFile(LPCOLESTR lpszFileName
, REFIID riid
,
21 DWORD renderopt
, LPFORMATETC lpFormatEtc
,
22 LPOLECLIENTSITE pClientSite
, LPSTORAGE pStg
, LPVOID
* ppvObj
)
24 FIXME("(%p,%p,%li,%p,%p,%p,%p), stub!\n",lpszFileName
, riid
, renderopt
, lpFormatEtc
, pClientSite
, pStg
, ppvObj
);
29 /******************************************************************************
30 * OleDuplicateData [OLE32.102]
32 HRESULT WINAPI
OleDuplicateData(HANDLE hSrc
, CLIPFORMAT cfFormat
,
35 FIXME("(%x,%x,%x), stub!\n", hSrc
, cfFormat
, uiFlags
);
40 /***********************************************************************
41 * WriteFmtUserTypeStg (OLE32.160)
43 HRESULT WINAPI
WriteFmtUserTypeStg(
44 LPSTORAGE pstg
, CLIPFORMAT cf
, LPOLESTR lpszUserType
)
46 FIXME("(%p,%x,%s) stub!\n",pstg
,cf
,debugstr_w(lpszUserType
));
50 /***********************************************************************
51 * OleTranslateAccelerator [OLE32.130]
53 HRESULT WINAPI
OleTranslateAccelerator (LPOLEINPLACEFRAME lpFrame
,
54 LPOLEINPLACEFRAMEINFO lpFrameInfo
, LPMSG lpmsg
)
56 FIXME("(%p,%p,%p),stub!\n", lpFrame
, lpFrameInfo
, lpmsg
);
60 /******************************************************************************
61 * SetConvertStg [OLE32.142]
63 HRESULT WINAPI
SetConvertStg(LPSTORAGE pStg
, BOOL fConvert
)
65 FIXME("(%p,%x), stub!\n", pStg
, fConvert
);
69 /******************************************************************************
70 * OleCreate [OLE32.89]
73 HRESULT WINAPI
OleCreate(
77 LPFORMATETC pFormatEtc
,
78 LPOLECLIENTSITE pClientSite
,
83 IUnknown
* pUnk
= NULL
;
85 FIXME("\n\t%s\n\t%s stub!\n", debugstr_guid(rclsid
), debugstr_guid(riid
));
87 if (SUCCEEDED((hres
= CoCreateInstance(rclsid
, 0, CLSCTX_INPROC_SERVER
, riid
, (LPVOID
*)&pUnk
))))
92 IPersistStorage
* pPS
;
93 if (SUCCEEDED((hres
= IUnknown_QueryInterface( pUnk
, &IID_IOleObject
, (LPVOID
*)&pOE
))))
95 TRACE("trying to set clientsite %p\n", pClientSite
);
96 hres1
= IOleObject_SetClientSite(pOE
, pClientSite
);
97 TRACE("-- result 0x%08lx\n", hres1
);
98 IOleObject_Release(pOE
);
100 if (SUCCEEDED((hres
= IUnknown_QueryInterface( pUnk
, &IID_IPersistStorage
, (LPVOID
*)&pPS
))))
102 TRACE("trying to set stg %p\n", pStg
);
103 hres1
= IPersistStorage_InitNew(pPS
, pStg
);
104 TRACE("-- result 0x%08lx\n", hres1
);
105 IPersistStorage_Release(pPS
);
112 TRACE("-- %p \n", pUnk
);
116 /******************************************************************************
117 * OleCreateLink [OLE32.94]
119 HRESULT WINAPI
OleCreateLink(LPMONIKER pmkLinkSrc
, REFIID riid
, DWORD renderopt
, LPFORMATETC lpFormatEtc
,
120 LPOLECLIENTSITE pClientSite
, LPSTORAGE pStg
, LPVOID
* ppvObj
)
122 FIXME("(not shown), stub!\n");
126 /******************************************************************************
127 * OleCreateFromFile [OLE32.93]
129 HRESULT WINAPI
OleCreateFromFile(REFCLSID rclsid
, LPCOLESTR lpszFileName
, REFIID riid
,
130 DWORD renderopt
, LPFORMATETC lpFormatEtc
, LPOLECLIENTSITE pClientSite
, LPSTORAGE pStg
, LPVOID
* ppvObj
)
132 FIXME("(not shown), stub!\n");
137 /******************************************************************************
138 * OleGetIconOfClass [OLE32.106]
140 HGLOBAL WINAPI
OleGetIconOfClass(REFCLSID rclsid
, LPOLESTR lpszLabel
, BOOL fUseTypeAsLabel
)
142 FIXME("(%p,%p,%x), stub!\n", rclsid
, lpszLabel
, fUseTypeAsLabel
);
146 /******************************************************************************
147 * ReadFmtUserTypeStg [OLE32.136]
149 HRESULT WINAPI
ReadFmtUserTypeStg (LPSTORAGE pstg
, CLIPFORMAT
* pcf
, LPOLESTR
* lplpszUserType
)
151 FIXME("(%p,%p,%p), stub!\n", pstg
, pcf
, lplpszUserType
);
155 /******************************************************************************
156 * OleCreateStaticFromData [OLE32.98]
158 HRESULT WINAPI
OleCreateStaticFromData(LPDATAOBJECT pSrcDataObj
, REFIID iid
,
159 DWORD renderopt
, LPFORMATETC pFormatEtc
, LPOLECLIENTSITE pClientSite
,
160 LPSTORAGE pStg
, LPVOID
* ppvObj
)
162 FIXME("(not shown), stub!\n");
166 /******************************************************************************
167 * OleCreateLinkFromData [OLE32.95]
170 HRESULT WINAPI
OleCreateLinkFromData(LPDATAOBJECT pSrcDataObj
, REFIID riid
,
171 DWORD renderopt
, LPFORMATETC pFormatEtc
,
172 LPOLECLIENTSITE pClientSite
, LPSTORAGE pStg
,
175 FIXME("(not shown), stub!\n");
179 /******************************************************************************
180 * OleIsRunning [OLE32.111]
182 BOOL WINAPI
OleIsRunning(LPOLEOBJECT pObject
)
184 FIXME("(%p), stub!\n", pObject
);
188 /***********************************************************************
189 * OleRegEnumVerbs [OLE32.120]
191 HRESULT WINAPI
OleRegEnumVerbs (REFCLSID clsid
, LPENUMOLEVERB
* ppenum
)
193 FIXME("(%p,%p), stub!\n", clsid
, ppenum
);
194 return OLEOBJ_E_NOVERBS
;
197 /***********************************************************************
198 * OleRegEnumFormatEtc [OLE32.119]
200 HRESULT WINAPI
OleRegEnumFormatEtc (
203 LPENUMFORMATETC
* ppenumFormatetc
)
205 FIXME("(%p, %ld, %p), stub!\n", clsid
, dwDirection
, ppenumFormatetc
);
210 /***********************************************************************
211 * PropVariantClear [OLE32.166]
213 HRESULT WINAPI
PropVariantClear(void *pvar
) /* [in/out] FIXME: PROPVARIANT * */
215 FIXME("(%p): stub:\n", pvar
);
218 /* sets at least the vt field to VT_EMPTY */
222 /***********************************************************************
223 * PropVariantCopy [OLE32.246]
225 HRESULT WINAPI
PropVariantCopy(void *pvarDest
, /* [out] FIXME: PROPVARIANT * */
226 const void *pvarSrc
) /* [in] FIXME: const PROPVARIANT * */
228 FIXME("(%p, %p): stub:\n", pvarDest
, pvarSrc
);
233 /***********************************************************************
234 * FreePropVariantArray [OLE32.195]
236 HRESULT WINAPI
FreePropVariantArray(ULONG cVariants
, /* [in] */
237 void *rgvars
) /* [in/out] FIXME: PROPVARIANT * */
239 FIXME("(%lu, %p): stub:\n", cVariants
, rgvars
);
244 /***********************************************************************
245 * CoIsOle1Class [OLE32.29]
247 BOOL WINAPI
CoIsOle1Class(REFCLSID clsid
)
249 FIXME("%s\n", debugstr_guid(clsid
));