ieframe: Added GoForward implementation.
[wine] / dlls / hlink / hlink_main.c
1 /*
2  * Implementation of hyperlinking (hlink.dll)
3  *
4  * Copyright 2005 Aric Stewart for CodeWeavers
5  *
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.
10  *
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.
15  *
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
19  */
20
21 #include "hlink_private.h"
22
23 #include "winreg.h"
24 #include "rpcproxy.h"
25 #include "hlguids.h"
26
27 #include "wine/debug.h"
28
29 WINE_DEFAULT_DEBUG_CHANNEL(hlink);
30
31 static HINSTANCE instance;
32
33 typedef HRESULT (*LPFNCREATEINSTANCE)(IUnknown*, REFIID, LPVOID*);
34
35 typedef struct
36 {
37     IClassFactory      IClassFactory_iface;
38     LPFNCREATEINSTANCE lpfnCI;
39 } CFImpl;
40
41 static inline CFImpl *impl_from_IClassFactory(IClassFactory *iface)
42 {
43     return CONTAINING_RECORD(iface, CFImpl, IClassFactory_iface);
44 }
45
46 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
47 {
48     TRACE("%p %d %p\n", hinstDLL, fdwReason, lpvReserved);
49
50     switch (fdwReason)
51     {
52     case DLL_PROCESS_ATTACH:
53         instance = hinstDLL;
54         DisableThreadLibraryCalls(hinstDLL);
55         break;
56     case DLL_PROCESS_DETACH:
57         break;
58     }
59     return TRUE;
60 }
61
62 /***********************************************************************
63  *             DllCanUnloadNow (HLINK.@)
64  */
65 HRESULT WINAPI DllCanUnloadNow( void )
66 {
67     return S_FALSE;
68 }
69
70 /***********************************************************************
71  *             HlinkCreateFromMoniker (HLINK.@)
72  */
73 HRESULT WINAPI HlinkCreateFromMoniker( IMoniker *pimkTrgt, LPCWSTR pwzLocation,
74         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
75         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
76 {
77     IHlink *hl = NULL;
78     HRESULT r;
79
80     TRACE("%p %s %s %p %i %p %s %p\n", pimkTrgt, debugstr_w(pwzLocation),
81             debugstr_w(pwzFriendlyName), pihlsite, dwSiteData, piunkOuter,
82             debugstr_guid(riid), ppvObj);
83
84     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
85     if (FAILED(r))
86         return r;
87
88     IHlink_SetMonikerReference(hl, HLINKSETF_LOCATION | HLINKSETF_TARGET, pimkTrgt, pwzLocation);
89
90     if (pwzFriendlyName)
91         IHlink_SetFriendlyName(hl, pwzFriendlyName);
92     if (pihlsite)
93         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
94
95     *ppvObj = hl;
96
97     TRACE("Returning %i\n",r);
98
99     return r;
100 }
101
102 /***********************************************************************
103  *             HlinkCreateFromString (HLINK.@)
104  */
105 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
106         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
107         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
108 {
109     IHlink *hl = NULL;
110     HRESULT r;
111     WCHAR *hash, *tgt;
112     const WCHAR *loc;
113
114     TRACE("%s %s %s %p %i %p %s %p\n", debugstr_w(pwzTarget),
115             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), pihlsite,
116             dwSiteData, piunkOuter, debugstr_guid(riid), ppvObj);
117
118     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
119     if (FAILED(r))
120         return r;
121
122     if (pwzTarget)
123     {
124         hash = strchrW(pwzTarget, '#');
125         if (hash)
126         {
127             if (hash == pwzTarget)
128                 tgt = NULL;
129             else
130             {
131                 int tgt_len = hash - pwzTarget;
132                 tgt = heap_alloc((tgt_len + 1) * sizeof(WCHAR));
133                 if (!tgt)
134                     return E_OUTOFMEMORY;
135                 memcpy(tgt, pwzTarget, tgt_len * sizeof(WCHAR));
136                 tgt[tgt_len] = 0;
137             }
138             if (!pwzLocation)
139                 loc = hash + 1;
140             else
141                 loc = pwzLocation;
142         }
143         else
144         {
145             tgt = hlink_strdupW(pwzTarget);
146             if (!tgt)
147                 return E_OUTOFMEMORY;
148             loc = pwzLocation;
149         }
150     }
151     else
152     {
153         tgt = NULL;
154         loc = pwzLocation;
155     }
156
157     IHlink_SetStringReference(hl, HLINKSETF_TARGET | HLINKSETF_LOCATION, tgt, loc);
158
159     heap_free(tgt);
160
161     if (pwzFriendlyName)
162         IHlink_SetFriendlyName(hl, pwzFriendlyName);
163
164     if (pihlsite)
165         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
166
167     TRACE("Returning %i\n",r);
168     *ppvObj = hl;
169
170     return r;
171 }
172
173
174 /***********************************************************************
175  *             HlinkCreateBrowseContext (HLINK.@)
176  */
177 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
178 {
179     TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
180     return CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
181 }
182
183 /***********************************************************************
184  *             HlinkNavigate (HLINK.@)
185  */
186 HRESULT WINAPI HlinkNavigate(IHlink *phl, IHlinkFrame *phlFrame,
187         DWORD grfHLNF, LPBC pbc, IBindStatusCallback *pbsc,
188         IHlinkBrowseContext *phlbc)
189 {
190     HRESULT r = S_OK;
191
192     TRACE("%p %p %i %p %p %p\n", phl, phlFrame, grfHLNF, pbc, pbsc, phlbc);
193
194     if (phlFrame)
195         r = IHlinkFrame_Navigate(phlFrame, grfHLNF, pbc, pbsc, phl);
196     else if (phl)
197         r = IHlink_Navigate(phl, grfHLNF, pbc, pbsc, phlbc);
198
199     return r;
200 }
201
202 /***********************************************************************
203  *             HlinkOnNavigate (HLINK.@)
204  */
205 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
206         IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
207         LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
208 {
209     HRESULT r;
210
211     TRACE("%p %p %i %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
212             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
213
214     r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
215             pwzLocation, pwzFriendlyName, puHLID);
216
217     if (phlFrame)
218         r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
219                 pwzFriendlyName, 0);
220
221     return r;
222 }
223
224 /***********************************************************************
225  *             HlinkCreateFromData (HLINK.@)
226  */
227 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
228         IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
229         REFIID riid, void **ppvObj)
230 {
231     FIXME("%p %p %d %p %p %p\n",
232           piDataObj, pihlsite, dwSiteData, piunkOuter, riid, ppvObj);
233     *ppvObj = NULL;
234     return E_NOTIMPL;
235 }
236
237 /***********************************************************************
238  *             HlinkQueryCreateFromData (HLINK.@)
239  */
240 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
241 {
242     FIXME("%p\n", piDataObj);
243     return E_NOTIMPL;
244 }
245
246 /***********************************************************************
247  *             HlinkNavigateToStringReference (HLINK.@)
248  */
249 HRESULT WINAPI HlinkNavigateToStringReference( LPCWSTR pwzTarget,
250         LPCWSTR pwzLocation, IHlinkSite *pihlsite, DWORD dwSiteData,
251         IHlinkFrame *pihlframe, DWORD grfHLNF, LPBC pibc,
252         IBindStatusCallback *pibsc, IHlinkBrowseContext *pihlbc)
253 {
254     HRESULT r;
255     IHlink *hlink = NULL;
256
257     TRACE("%s %s %p %08x %p %08x %p %p %p\n",
258           debugstr_w(pwzTarget), debugstr_w(pwzLocation), pihlsite,
259           dwSiteData, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
260
261     r = HlinkCreateFromString( pwzTarget, pwzLocation, NULL, pihlsite,
262                                dwSiteData, NULL, &IID_IHlink, (LPVOID*) &hlink );
263     if (SUCCEEDED(r)) {
264         r = HlinkNavigate(hlink, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
265         IHlink_Release(hlink);
266     }
267
268     return r;
269 }
270
271 /***********************************************************************
272  *             HlinkIsShortcut (HLINK.@)
273  */
274 HRESULT WINAPI HlinkIsShortcut(LPCWSTR pwzFileName)
275 {
276     int len;
277
278     static const WCHAR url_ext[] = {'.','u','r','l',0};
279
280     TRACE("(%s)\n", debugstr_w(pwzFileName));
281
282     if(!pwzFileName)
283         return E_INVALIDARG;
284
285     len = strlenW(pwzFileName)-4;
286     if(len < 0)
287         return S_FALSE;
288
289     return strcmpiW(pwzFileName+len, url_ext) ? S_FALSE : S_OK;
290 }
291
292 /***********************************************************************
293  *             HlinkGetSpecialReference (HLINK.@)
294  */
295 HRESULT WINAPI HlinkGetSpecialReference(ULONG uReference, LPWSTR *ppwzReference)
296 {
297     DWORD res, type, size = 100;
298     LPCWSTR value_name;
299     WCHAR *buf;
300     HKEY hkey;
301
302     static const WCHAR start_pageW[] = {'S','t','a','r','t',' ','P','a','g','e',0};
303     static const WCHAR search_pageW[] = {'S','e','a','r','c','h',' ','P','a','g','e',0};
304
305     static const WCHAR ie_main_keyW[] =
306         {'S','o','f','t','w','a','r','e',
307          '\\','M','i','c','r','o','s','o','f','t','\\',
308          'I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r',
309          '\\','M','a','i','n',0};
310
311     TRACE("(%u %p)\n", uReference, ppwzReference);
312
313     *ppwzReference = NULL;
314
315     switch(uReference) {
316     case HLSR_HOME:
317         value_name = start_pageW;
318         break;
319     case HLSR_SEARCHPAGE:
320         value_name = search_pageW;
321         break;
322     case HLSR_HISTORYFOLDER:
323         return E_NOTIMPL;
324     default:
325         return E_INVALIDARG;
326     }
327
328     res = RegOpenKeyW(HKEY_CURRENT_USER, ie_main_keyW, &hkey);
329     if(res != ERROR_SUCCESS) {
330         WARN("Could not open key: %u\n", res);
331         return HRESULT_FROM_WIN32(res);
332     }
333
334     buf = CoTaskMemAlloc(size);
335     res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
336     buf = CoTaskMemRealloc(buf, size);
337     if(res == ERROR_MORE_DATA)
338         res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
339     RegCloseKey(hkey);
340     if(res != ERROR_SUCCESS) {
341         WARN("Could not query value %s: %u\n", debugstr_w(value_name), res);
342         CoTaskMemFree(buf);
343         return HRESULT_FROM_WIN32(res);
344     }
345
346     *ppwzReference = buf;
347     return S_OK;
348 }
349
350 /***********************************************************************
351  *             HlinkTranslateURL (HLINK.@)
352  */
353 HRESULT WINAPI HlinkTranslateURL(LPCWSTR pwzURL, DWORD grfFlags, LPWSTR *ppwzTranslatedURL)
354 {
355     FIXME("(%s %08x %p)\n", debugstr_w(pwzURL), grfFlags, ppwzTranslatedURL);
356     return E_NOTIMPL;
357 }
358
359 /***********************************************************************
360  *             HlinkUpdateStackItem (HLINK.@)
361  */
362 HRESULT WINAPI HlinkUpdateStackItem(IHlinkFrame *frame, IHlinkBrowseContext *bc,
363         ULONG hlid, IMoniker *target, LPCWSTR location, LPCWSTR friendly_name)
364 {
365     HRESULT hr;
366
367     TRACE("(%p %p 0x%x %p %s %s)\n", frame, bc, hlid, target, debugstr_w(location), debugstr_w(friendly_name));
368
369     if (!frame && !bc) return E_INVALIDARG;
370
371     if (frame)
372         hr = IHlinkFrame_UpdateHlink(frame, hlid, target, location, friendly_name);
373     else
374         hr = IHlinkBrowseContext_UpdateHlink(bc, hlid, target, location, friendly_name);
375
376     return hr;
377 }
378
379 /***********************************************************************
380  *             HlinkParseDisplayName (HLINK.@)
381  */
382 HRESULT WINAPI HlinkParseDisplayName(LPBC pibc, LPCWSTR pwzDisplayName, BOOL fNoForceAbs,
383         ULONG *pcchEaten, IMoniker **ppimk)
384 {
385     HRESULT hres;
386
387     TRACE("(%p %s %x %p %p)\n", pibc, debugstr_w(pwzDisplayName), fNoForceAbs, pcchEaten, ppimk);
388
389     if(fNoForceAbs)
390         FIXME("Unsupported fNoForceAbs\n");
391
392     hres = MkParseDisplayNameEx(pibc, pwzDisplayName, pcchEaten, ppimk);
393     if(SUCCEEDED(hres))
394         return hres;
395
396     hres = MkParseDisplayName(pibc, pwzDisplayName, pcchEaten, ppimk);
397     if(SUCCEEDED(hres))
398         return hres;
399
400     hres = CreateFileMoniker(pwzDisplayName, ppimk);
401     if(SUCCEEDED(hres))
402         *pcchEaten = strlenW(pwzDisplayName);
403
404     return hres;
405 }
406
407 /***********************************************************************
408  *             HlinkResolveMonikerForData (HLINK.@)
409  */
410 HRESULT WINAPI HlinkResolveMonikerForData(LPMONIKER pimkReference, DWORD reserved, LPBC pibc,
411         ULONG cFmtetc, FORMATETC *rgFmtetc, IBindStatusCallback *pibsc, LPMONIKER pimkBase)
412 {
413     LPOLESTR name = NULL;
414     IBindCtx *bctx;
415     DWORD mksys = 0;
416     void *obj = NULL;
417     HRESULT hres;
418
419     TRACE("(%p %x %p %d %p %p %p)\n", pimkReference, reserved, pibc, cFmtetc, rgFmtetc, pibsc, pimkBase);
420
421     if(cFmtetc || rgFmtetc || pimkBase)
422         FIXME("Unsupported args\n");
423
424     hres = RegisterBindStatusCallback(pibc, pibsc, NULL /* FIXME */, 0);
425     if(FAILED(hres))
426         return hres;
427
428     hres = IMoniker_IsSystemMoniker(pimkReference, &mksys);
429     if(SUCCEEDED(hres) && mksys != MKSYS_URLMONIKER)
430         WARN("sysmk = %x\n", mksys);
431
432     /* FIXME: What is it for? */
433     CreateBindCtx(0, &bctx);
434     hres = IMoniker_GetDisplayName(pimkReference, bctx, NULL, &name);
435     IBindCtx_Release(bctx);
436     if(SUCCEEDED(hres)) {
437         TRACE("got display name %s\n", debugstr_w(name));
438         CoTaskMemFree(name);
439     }
440
441     return IMoniker_BindToStorage(pimkReference, pibc, NULL, &IID_IUnknown, &obj);
442 }
443
444 /***********************************************************************
445  *             HlinkClone (HLINK.@)
446  */
447 HRESULT WINAPI HlinkClone(IHlink *hlink, REFIID riid, IHlinkSite *hls,
448         DWORD site_data, void **obj)
449 {
450     IMoniker *mk, *clone_mk = NULL;
451     WCHAR *loc, *name = NULL;
452     HRESULT hres;
453
454     if(!hlink || !riid || !obj)
455         return E_INVALIDARG;
456
457     *obj = NULL;
458
459     hres = IHlink_GetMonikerReference(hlink, HLINKGETREF_DEFAULT, &mk, &loc);
460     if(FAILED(hres))
461         return hres;
462
463     if(mk) {
464         IStream *strm;
465         LARGE_INTEGER lgint;
466
467         hres = CreateStreamOnHGlobal(NULL, TRUE, &strm);
468         if(FAILED(hres)) {
469             IMoniker_Release(mk);
470             goto cleanup;
471         }
472
473         hres = OleSaveToStream((IPersistStream*)mk, strm);
474         if(FAILED(hres)) {
475             IStream_Release(strm);
476             IMoniker_Release(mk);
477             goto cleanup;
478         }
479         IMoniker_Release(mk);
480
481         lgint.QuadPart = 0;
482         hres = IStream_Seek(strm, lgint, STREAM_SEEK_SET, NULL);
483         if(FAILED(hres)) {
484             IStream_Release(strm);
485             goto cleanup;
486         }
487
488         hres = OleLoadFromStream(strm, &IID_IMoniker, (void**)&clone_mk);
489         IStream_Release(strm);
490         if(FAILED(hres))
491             goto cleanup;
492     }
493
494     hres = IHlink_GetFriendlyName(hlink, HLFNAMEF_DEFAULT, &name);
495     if(FAILED(hres))
496         goto cleanup;
497
498     hres = HlinkCreateFromMoniker(clone_mk, loc, name, hls, site_data, NULL,
499             &IID_IHlink, obj);
500
501 cleanup:
502     if(clone_mk)
503         IMoniker_Release(clone_mk);
504     CoTaskMemFree(loc);
505     CoTaskMemFree(name);
506     return hres;
507 }
508
509 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
510         REFIID riid, LPVOID *ppvObj)
511 {
512     CFImpl *This = impl_from_IClassFactory(iface);
513
514     TRACE("(%p)->(%s)\n",This,debugstr_guid(riid));
515
516     *ppvObj = NULL;
517
518     if (IsEqualIID(riid, &IID_IUnknown) ||
519         IsEqualIID(riid, &IID_IClassFactory))
520     {
521         *ppvObj = This;
522         return S_OK;
523     }
524
525     TRACE("-- E_NOINTERFACE\n");
526     return E_NOINTERFACE;
527 }
528
529 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
530 {
531     return 2;
532 }
533
534 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
535 {
536     return 1;
537 }
538
539 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
540         LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
541 {
542     CFImpl *This = impl_from_IClassFactory(iface);
543
544     TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
545
546     *ppvObject = NULL;
547
548     return This->lpfnCI(pUnkOuter, riid, ppvObject);
549 }
550
551 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
552 {
553     FIXME("%p %d\n", iface, fLock);
554     return E_NOTIMPL;
555 }
556
557 static const IClassFactoryVtbl hlcfvt =
558 {
559     HLinkCF_fnQueryInterface,
560     HLinkCF_fnAddRef,
561     HLinkCF_fnRelease,
562     HLinkCF_fnCreateInstance,
563     HLinkCF_fnLockServer
564 };
565
566 static CFImpl HLink_cf = { { &hlcfvt }, HLink_Constructor };
567 static CFImpl HLinkBrowseContext_cf = { { &hlcfvt }, HLinkBrowseContext_Constructor };
568
569 /***********************************************************************
570  *             DllGetClassObject (HLINK.@)
571  */
572 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
573 {
574     IClassFactory   *pcf = NULL;
575
576     TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
577
578     if (!ppv)
579         return E_INVALIDARG;
580     *ppv = NULL;
581
582     if (IsEqualIID(rclsid, &CLSID_StdHlink))
583         pcf = &HLink_cf.IClassFactory_iface;
584     else if (IsEqualIID(rclsid, &CLSID_StdHlinkBrowseContext))
585         pcf = &HLinkBrowseContext_cf.IClassFactory_iface;
586     else
587         return CLASS_E_CLASSNOTAVAILABLE;
588
589     return IClassFactory_QueryInterface(pcf, iid, ppv);
590 }
591
592 /***********************************************************************
593  *              DllRegisterServer (HLINK.@)
594  */
595 HRESULT WINAPI DllRegisterServer(void)
596 {
597     return __wine_register_resources( instance );
598 }
599
600 /***********************************************************************
601  *              DllUnregisterServer (HLINK.@)
602  */
603 HRESULT WINAPI DllUnregisterServer(void)
604 {
605     return __wine_unregister_resources( instance );
606 }