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