user32/tests: Test pending redraw state with owner-drawn list box.
[wine.git] / dlls / hlink / hlink_main.c
blobc730616fbe62262abe96bc253869ec25fc6fb442
1 /*
2 * Implementation of hyperlinking (hlink.dll)
4 * Copyright 2005 Aric Stewart for CodeWeavers
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 #include "hlink_private.h"
23 #include "winreg.h"
24 #include "rpcproxy.h"
25 #include "hlguids.h"
27 #include "wine/debug.h"
29 WINE_DEFAULT_DEBUG_CHANNEL(hlink);
31 typedef HRESULT (*LPFNCREATEINSTANCE)(IUnknown*, REFIID, LPVOID*);
33 typedef struct
35 IClassFactory IClassFactory_iface;
36 LPFNCREATEINSTANCE lpfnCI;
37 } CFImpl;
39 static inline CFImpl *impl_from_IClassFactory(IClassFactory *iface)
41 return CONTAINING_RECORD(iface, CFImpl, IClassFactory_iface);
44 /***********************************************************************
45 * HlinkCreateFromMoniker (HLINK.@)
47 HRESULT WINAPI HlinkCreateFromMoniker( IMoniker *pimkTrgt, LPCWSTR pwzLocation,
48 LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
49 IUnknown* piunkOuter, REFIID riid, void** ppvObj)
51 IHlink *hl = NULL;
52 HRESULT r;
54 TRACE("%p %s %s %p %i %p %s %p\n", pimkTrgt, debugstr_w(pwzLocation),
55 debugstr_w(pwzFriendlyName), pihlsite, dwSiteData, piunkOuter,
56 debugstr_guid(riid), ppvObj);
58 r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
59 if (FAILED(r))
60 return r;
62 IHlink_SetMonikerReference(hl, HLINKSETF_LOCATION | HLINKSETF_TARGET, pimkTrgt, pwzLocation);
64 if (pwzFriendlyName)
65 IHlink_SetFriendlyName(hl, pwzFriendlyName);
66 if (pihlsite)
67 IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
69 *ppvObj = hl;
71 TRACE("Returning %i\n",r);
73 return r;
76 /***********************************************************************
77 * HlinkCreateFromString (HLINK.@)
79 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
80 LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
81 IUnknown* piunkOuter, REFIID riid, void** ppvObj)
83 IHlink *hl = NULL;
84 HRESULT r;
85 WCHAR *hash, *tgt;
86 const WCHAR *loc;
88 TRACE("%s %s %s %p %i %p %s %p\n", debugstr_w(pwzTarget),
89 debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), pihlsite,
90 dwSiteData, piunkOuter, debugstr_guid(riid), ppvObj);
92 r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
93 if (FAILED(r))
94 return r;
96 if (pwzTarget)
98 hash = wcschr(pwzTarget, '#');
99 if (hash)
101 if (hash == pwzTarget)
102 tgt = NULL;
103 else
105 int tgt_len = hash - pwzTarget;
106 tgt = heap_alloc((tgt_len + 1) * sizeof(WCHAR));
107 if (!tgt)
108 return E_OUTOFMEMORY;
109 memcpy(tgt, pwzTarget, tgt_len * sizeof(WCHAR));
110 tgt[tgt_len] = 0;
112 if (!pwzLocation)
113 loc = hash + 1;
114 else
115 loc = pwzLocation;
117 else
119 tgt = hlink_strdupW(pwzTarget);
120 if (!tgt)
121 return E_OUTOFMEMORY;
122 loc = pwzLocation;
125 else
127 tgt = NULL;
128 loc = pwzLocation;
131 IHlink_SetStringReference(hl, HLINKSETF_TARGET | HLINKSETF_LOCATION, tgt, loc);
133 heap_free(tgt);
135 if (pwzFriendlyName)
136 IHlink_SetFriendlyName(hl, pwzFriendlyName);
138 if (pihlsite)
139 IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
141 TRACE("Returning %i\n",r);
142 *ppvObj = hl;
144 return r;
148 /***********************************************************************
149 * HlinkCreateBrowseContext (HLINK.@)
151 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
153 TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
154 return CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
157 /***********************************************************************
158 * HlinkNavigate (HLINK.@)
160 HRESULT WINAPI HlinkNavigate(IHlink *phl, IHlinkFrame *phlFrame,
161 DWORD grfHLNF, LPBC pbc, IBindStatusCallback *pbsc,
162 IHlinkBrowseContext *phlbc)
164 HRESULT r = S_OK;
166 TRACE("%p %p %i %p %p %p\n", phl, phlFrame, grfHLNF, pbc, pbsc, phlbc);
168 if (phlFrame)
169 r = IHlinkFrame_Navigate(phlFrame, grfHLNF, pbc, pbsc, phl);
170 else if (phl)
171 r = IHlink_Navigate(phl, grfHLNF, pbc, pbsc, phlbc);
173 return r;
176 /***********************************************************************
177 * HlinkOnNavigate (HLINK.@)
179 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
180 IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
181 LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
183 HRESULT r;
185 TRACE("%p %p %i %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
186 debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
188 r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
189 pwzLocation, pwzFriendlyName, puHLID);
191 if (phlFrame)
192 r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
193 pwzFriendlyName, 0);
195 return r;
198 /***********************************************************************
199 * HlinkCreateFromData (HLINK.@)
201 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
202 IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
203 REFIID riid, void **ppvObj)
205 FIXME("%p, %p, %d, %p, %s, %p\n", piDataObj, pihlsite, dwSiteData,
206 piunkOuter, debugstr_guid(riid), ppvObj);
207 *ppvObj = NULL;
208 return E_NOTIMPL;
211 /***********************************************************************
212 * HlinkQueryCreateFromData (HLINK.@)
214 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
216 FIXME("%p\n", piDataObj);
217 return E_NOTIMPL;
220 /***********************************************************************
221 * HlinkNavigateToStringReference (HLINK.@)
223 HRESULT WINAPI HlinkNavigateToStringReference( LPCWSTR pwzTarget,
224 LPCWSTR pwzLocation, IHlinkSite *pihlsite, DWORD dwSiteData,
225 IHlinkFrame *pihlframe, DWORD grfHLNF, LPBC pibc,
226 IBindStatusCallback *pibsc, IHlinkBrowseContext *pihlbc)
228 HRESULT r;
229 IHlink *hlink = NULL;
231 TRACE("%s %s %p %08x %p %08x %p %p %p\n",
232 debugstr_w(pwzTarget), debugstr_w(pwzLocation), pihlsite,
233 dwSiteData, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
235 r = HlinkCreateFromString( pwzTarget, pwzLocation, NULL, pihlsite,
236 dwSiteData, NULL, &IID_IHlink, (LPVOID*) &hlink );
237 if (SUCCEEDED(r)) {
238 r = HlinkNavigate(hlink, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
239 IHlink_Release(hlink);
242 return r;
245 /***********************************************************************
246 * HlinkIsShortcut (HLINK.@)
248 HRESULT WINAPI HlinkIsShortcut(LPCWSTR pwzFileName)
250 int len;
252 TRACE("(%s)\n", debugstr_w(pwzFileName));
254 if(!pwzFileName)
255 return E_INVALIDARG;
257 len = lstrlenW(pwzFileName)-4;
258 if(len < 0)
259 return S_FALSE;
261 return wcsicmp(pwzFileName+len, L".url") ? S_FALSE : S_OK;
264 /***********************************************************************
265 * HlinkGetSpecialReference (HLINK.@)
267 HRESULT WINAPI HlinkGetSpecialReference(ULONG uReference, LPWSTR *ppwzReference)
269 DWORD res, type, size = 100;
270 LPCWSTR value_name;
271 WCHAR *buf;
272 HKEY hkey;
274 TRACE("(%u %p)\n", uReference, ppwzReference);
276 *ppwzReference = NULL;
278 switch(uReference) {
279 case HLSR_HOME:
280 value_name = L"Start Page";
281 break;
282 case HLSR_SEARCHPAGE:
283 value_name = L"Search Page";
284 break;
285 case HLSR_HISTORYFOLDER:
286 return E_NOTIMPL;
287 default:
288 return E_INVALIDARG;
291 res = RegOpenKeyW(HKEY_CURRENT_USER, L"Software\\Microsoft\\Internet Explorer\\Main", &hkey);
292 if(res != ERROR_SUCCESS) {
293 WARN("Could not open key: %u\n", res);
294 return HRESULT_FROM_WIN32(res);
297 buf = CoTaskMemAlloc(size);
298 res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
299 buf = CoTaskMemRealloc(buf, size);
300 if(res == ERROR_MORE_DATA)
301 res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
302 RegCloseKey(hkey);
303 if(res != ERROR_SUCCESS) {
304 WARN("Could not query value %s: %u\n", debugstr_w(value_name), res);
305 CoTaskMemFree(buf);
306 return HRESULT_FROM_WIN32(res);
309 *ppwzReference = buf;
310 return S_OK;
313 /***********************************************************************
314 * HlinkTranslateURL (HLINK.@)
316 HRESULT WINAPI HlinkTranslateURL(LPCWSTR pwzURL, DWORD grfFlags, LPWSTR *ppwzTranslatedURL)
318 FIXME("(%s %08x %p)\n", debugstr_w(pwzURL), grfFlags, ppwzTranslatedURL);
319 return E_NOTIMPL;
322 /***********************************************************************
323 * HlinkUpdateStackItem (HLINK.@)
325 HRESULT WINAPI HlinkUpdateStackItem(IHlinkFrame *frame, IHlinkBrowseContext *bc,
326 ULONG hlid, IMoniker *target, LPCWSTR location, LPCWSTR friendly_name)
328 HRESULT hr;
330 TRACE("(%p %p 0x%x %p %s %s)\n", frame, bc, hlid, target, debugstr_w(location), debugstr_w(friendly_name));
332 if (!frame && !bc) return E_INVALIDARG;
334 if (frame)
335 hr = IHlinkFrame_UpdateHlink(frame, hlid, target, location, friendly_name);
336 else
337 hr = IHlinkBrowseContext_UpdateHlink(bc, hlid, target, location, friendly_name);
339 return hr;
342 /***********************************************************************
343 * HlinkParseDisplayName (HLINK.@)
345 HRESULT WINAPI HlinkParseDisplayName(LPBC pibc, LPCWSTR pwzDisplayName, BOOL fNoForceAbs,
346 ULONG *pcchEaten, IMoniker **ppimk)
348 ULONG eaten = 0, len;
349 HRESULT hres;
351 TRACE("(%p %s %x %p %p)\n", pibc, debugstr_w(pwzDisplayName), fNoForceAbs, pcchEaten, ppimk);
353 if(fNoForceAbs)
354 FIXME("Unsupported fNoForceAbs\n");
356 len = ARRAY_SIZE(L"file:") - 1;
357 if(!wcsnicmp(pwzDisplayName, L"file:", len)) {
358 pwzDisplayName += len;
359 eaten += len;
361 while(*pwzDisplayName == '/') {
362 pwzDisplayName++;
363 eaten++;
365 }else {
366 hres = MkParseDisplayNameEx(pibc, pwzDisplayName, pcchEaten, ppimk);
367 if(SUCCEEDED(hres))
368 return hres;
370 hres = MkParseDisplayName(pibc, pwzDisplayName, pcchEaten, ppimk);
371 if(SUCCEEDED(hres))
372 return hres;
375 hres = CreateFileMoniker(pwzDisplayName, ppimk);
376 if(SUCCEEDED(hres))
377 *pcchEaten = eaten + lstrlenW(pwzDisplayName);
379 return hres;
382 /***********************************************************************
383 * HlinkResolveMonikerForData (HLINK.@)
385 HRESULT WINAPI HlinkResolveMonikerForData(LPMONIKER pimkReference, DWORD reserved, LPBC pibc,
386 ULONG cFmtetc, FORMATETC *rgFmtetc, IBindStatusCallback *pibsc, LPMONIKER pimkBase)
388 LPOLESTR name = NULL;
389 IBindCtx *bctx;
390 DWORD mksys = 0;
391 void *obj = NULL;
392 HRESULT hres;
394 TRACE("(%p %x %p %d %p %p %p)\n", pimkReference, reserved, pibc, cFmtetc, rgFmtetc, pibsc, pimkBase);
396 if(cFmtetc || rgFmtetc || pimkBase)
397 FIXME("Unsupported args\n");
399 hres = RegisterBindStatusCallback(pibc, pibsc, NULL /* FIXME */, 0);
400 if(FAILED(hres))
401 return hres;
403 hres = IMoniker_IsSystemMoniker(pimkReference, &mksys);
404 if(SUCCEEDED(hres) && mksys != MKSYS_URLMONIKER)
405 WARN("sysmk = %x\n", mksys);
407 /* FIXME: What is it for? */
408 CreateBindCtx(0, &bctx);
409 hres = IMoniker_GetDisplayName(pimkReference, bctx, NULL, &name);
410 IBindCtx_Release(bctx);
411 if(SUCCEEDED(hres)) {
412 TRACE("got display name %s\n", debugstr_w(name));
413 CoTaskMemFree(name);
416 return IMoniker_BindToStorage(pimkReference, pibc, NULL, &IID_IUnknown, &obj);
419 /***********************************************************************
420 * HlinkClone (HLINK.@)
422 HRESULT WINAPI HlinkClone(IHlink *hlink, REFIID riid, IHlinkSite *hls,
423 DWORD site_data, void **obj)
425 IMoniker *mk, *clone_mk = NULL;
426 WCHAR *loc, *name = NULL;
427 HRESULT hres;
429 if(!hlink || !riid || !obj)
430 return E_INVALIDARG;
432 *obj = NULL;
434 hres = IHlink_GetMonikerReference(hlink, HLINKGETREF_DEFAULT, &mk, &loc);
435 if(FAILED(hres))
436 return hres;
438 if(mk) {
439 IStream *strm;
440 LARGE_INTEGER lgint;
442 hres = CreateStreamOnHGlobal(NULL, TRUE, &strm);
443 if(FAILED(hres)) {
444 IMoniker_Release(mk);
445 goto cleanup;
448 hres = OleSaveToStream((IPersistStream*)mk, strm);
449 if(FAILED(hres)) {
450 IStream_Release(strm);
451 IMoniker_Release(mk);
452 goto cleanup;
454 IMoniker_Release(mk);
456 lgint.QuadPart = 0;
457 hres = IStream_Seek(strm, lgint, STREAM_SEEK_SET, NULL);
458 if(FAILED(hres)) {
459 IStream_Release(strm);
460 goto cleanup;
463 hres = OleLoadFromStream(strm, &IID_IMoniker, (void**)&clone_mk);
464 IStream_Release(strm);
465 if(FAILED(hres))
466 goto cleanup;
469 hres = IHlink_GetFriendlyName(hlink, HLFNAMEF_DEFAULT, &name);
470 if(FAILED(hres))
471 goto cleanup;
473 hres = HlinkCreateFromMoniker(clone_mk, loc, name, hls, site_data, NULL,
474 &IID_IHlink, obj);
476 cleanup:
477 if(clone_mk)
478 IMoniker_Release(clone_mk);
479 CoTaskMemFree(loc);
480 CoTaskMemFree(name);
481 return hres;
484 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
485 REFIID riid, LPVOID *ppvObj)
487 CFImpl *This = impl_from_IClassFactory(iface);
489 TRACE("(%p)->(%s, %p)\n", This, debugstr_guid(riid), ppvObj);
491 *ppvObj = NULL;
493 if (IsEqualIID(riid, &IID_IUnknown) ||
494 IsEqualIID(riid, &IID_IClassFactory))
496 *ppvObj = &This->IClassFactory_iface;
497 return S_OK;
500 TRACE("-- E_NOINTERFACE\n");
501 return E_NOINTERFACE;
504 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
506 return 2;
509 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
511 return 1;
514 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
515 LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
517 CFImpl *This = impl_from_IClassFactory(iface);
519 TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
521 *ppvObject = NULL;
523 return This->lpfnCI(pUnkOuter, riid, ppvObject);
526 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
528 FIXME("%p %d\n", iface, fLock);
529 return E_NOTIMPL;
532 static const IClassFactoryVtbl hlcfvt =
534 HLinkCF_fnQueryInterface,
535 HLinkCF_fnAddRef,
536 HLinkCF_fnRelease,
537 HLinkCF_fnCreateInstance,
538 HLinkCF_fnLockServer
541 static CFImpl HLink_cf = { { &hlcfvt }, HLink_Constructor };
542 static CFImpl HLinkBrowseContext_cf = { { &hlcfvt }, HLinkBrowseContext_Constructor };
544 /***********************************************************************
545 * DllGetClassObject (HLINK.@)
547 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
549 IClassFactory *pcf = NULL;
551 TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
553 if (!ppv)
554 return E_INVALIDARG;
555 *ppv = NULL;
557 if (IsEqualIID(rclsid, &CLSID_StdHlink))
558 pcf = &HLink_cf.IClassFactory_iface;
559 else if (IsEqualIID(rclsid, &CLSID_StdHlinkBrowseContext))
560 pcf = &HLinkBrowseContext_cf.IClassFactory_iface;
561 else
562 return CLASS_E_CLASSNOTAVAILABLE;
564 return IClassFactory_QueryInterface(pcf, iid, ppv);