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 r;
  53
  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);
  57
  58     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
  59     if (FAILED(r))
  60         return r;
  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     *ppvObj = hl;
  70
  71     TRACE("Returning %i\n",r);
  72
  73     return r;
  74 }
  75
  76 /***********************************************************************
  77  *             HlinkCreateFromString (HLINK.@)
  78  */
  79 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
  80         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
  81         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
  82 {
  83     IHlink *hl = NULL;
  84     HRESULT r;
  85     WCHAR *hash, *tgt;
  86     const WCHAR *loc;
  87
  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);
  91
  92     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
  93     if (FAILED(r))
  94         return r;
  95
  96     if (pwzTarget)
  97     {
  98         hash = wcschr(pwzTarget, '#');
  99         if (hash)
 100         {
 101             if (hash == pwzTarget)
 102                 tgt = NULL;
 103             else
 104             {
 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;
 111             }
 112             if (!pwzLocation)
 113                 loc = hash + 1;
 114             else
 115                 loc = pwzLocation;
 116         }
 117         else
 118         {
 119             tgt = hlink_strdupW(pwzTarget);
 120             if (!tgt)
 121                 return E_OUTOFMEMORY;
 122             loc = pwzLocation;
 123         }
 124     }
 125     else
 126     {
 127         tgt = NULL;
 128         loc = pwzLocation;
 129     }
 130
 131     IHlink_SetStringReference(hl, HLINKSETF_TARGET | HLINKSETF_LOCATION, tgt, loc);
 132
 133     heap_free(tgt);
 134
 135     if (pwzFriendlyName)
 136         IHlink_SetFriendlyName(hl, pwzFriendlyName);
 137
 138     if (pihlsite)
 139         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
 140
 141     TRACE("Returning %i\n",r);
 142     *ppvObj = hl;
 143
 144     return r;
 145 }
 146
 147
 148 /***********************************************************************
 149  *             HlinkCreateBrowseContext (HLINK.@)
 150  */
 151 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
 152 {
 153     TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
 154     return CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
 155 }
 156
 157 /***********************************************************************
 158  *             HlinkNavigate (HLINK.@)
 159  */
 160 HRESULT WINAPI HlinkNavigate(IHlink *phl, IHlinkFrame *phlFrame,
 161         DWORD grfHLNF, LPBC pbc, IBindStatusCallback *pbsc,
 162         IHlinkBrowseContext *phlbc)
 163 {
 164     HRESULT r = S_OK;
 165
 166     TRACE("%p %p %i %p %p %p\n", phl, phlFrame, grfHLNF, pbc, pbsc, phlbc);
 167
 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);
 172
 173     return r;
 174 }
 175
 176 /***********************************************************************
 177  *             HlinkOnNavigate (HLINK.@)
 178  */
 179 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
 180         IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
 181         LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
 182 {
 183     HRESULT r;
 184
 185     TRACE("%p %p %i %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
 186             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
 187
 188     r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
 189             pwzLocation, pwzFriendlyName, puHLID);
 190
 191     if (phlFrame)
 192         r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
 193                 pwzFriendlyName, 0);
 194
 195     return r;
 196 }
 197
 198 /***********************************************************************
 199  *             HlinkCreateFromData (HLINK.@)
 200  */
 201 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
 202         IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
 203         REFIID riid, void **ppvObj)
 204 {
 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;
 209 }
 210
 211 /***********************************************************************
 212  *             HlinkQueryCreateFromData (HLINK.@)
 213  */
 214 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
 215 {
 216     FIXME("%p\n", piDataObj);
 217     return E_NOTIMPL;
 218 }
 219
 220 /***********************************************************************
 221  *             HlinkNavigateToStringReference (HLINK.@)
 222  */
 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)
 227 {
 228     HRESULT r;
 229     IHlink *hlink = NULL;
 230
 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);
 234
 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);
 240     }
 241
 242     return r;
 243 }
 244
 245 /***********************************************************************
 246  *             HlinkIsShortcut (HLINK.@)
 247  */
 248 HRESULT WINAPI HlinkIsShortcut(LPCWSTR pwzFileName)
 249 {
 250     int len;
 251
 252     TRACE("(%s)\n", debugstr_w(pwzFileName));
 253
 254     if(!pwzFileName)
 255         return E_INVALIDARG;
 256
 257     len = lstrlenW(pwzFileName)-4;
 258     if(len < 0)
 259         return S_FALSE;
 260
 261     return wcsicmp(pwzFileName+len, L".url") ? S_FALSE : S_OK;
 262 }
 263
 264 /***********************************************************************
 265  *             HlinkGetSpecialReference (HLINK.@)
 266  */
 267 HRESULT WINAPI HlinkGetSpecialReference(ULONG uReference, LPWSTR *ppwzReference)
 268 {
 269     DWORD res, type, size = 100;
 270     LPCWSTR value_name;
 271     WCHAR *buf;
 272     HKEY hkey;
 273
 274     TRACE("(%u %p)\n", uReference, ppwzReference);
 275
 276     *ppwzReference = NULL;
 277
 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;
 289     }
 290
 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);
 295     }
 296
 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);
 307     }
 308
 309     *ppwzReference = buf;
 310     return S_OK;
 311 }
 312
 313 /***********************************************************************
 314  *             HlinkTranslateURL (HLINK.@)
 315  */
 316 HRESULT WINAPI HlinkTranslateURL(LPCWSTR pwzURL, DWORD grfFlags, LPWSTR *ppwzTranslatedURL)
 317 {
 318     FIXME("(%s %08x %p)\n", debugstr_w(pwzURL), grfFlags, ppwzTranslatedURL);
 319     return E_NOTIMPL;
 320 }
 321
 322 /***********************************************************************
 323  *             HlinkUpdateStackItem (HLINK.@)
 324  */
 325 HRESULT WINAPI HlinkUpdateStackItem(IHlinkFrame *frame, IHlinkBrowseContext *bc,
 326         ULONG hlid, IMoniker *target, LPCWSTR location, LPCWSTR friendly_name)
 327 {
 328     HRESULT hr;
 329
 330     TRACE("(%p %p 0x%x %p %s %s)\n", frame, bc, hlid, target, debugstr_w(location), debugstr_w(friendly_name));
 331
 332     if (!frame && !bc) return E_INVALIDARG;
 333
 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);
 338
 339     return hr;
 340 }
 341
 342 /***********************************************************************
 343  *             HlinkParseDisplayName (HLINK.@)
 344  */
 345 HRESULT WINAPI HlinkParseDisplayName(LPBC pibc, LPCWSTR pwzDisplayName, BOOL fNoForceAbs,
 346         ULONG *pcchEaten, IMoniker **ppimk)
 347 {
 348     ULONG eaten = 0, len;
 349     HRESULT hres;
 350
 351     TRACE("(%p %s %x %p %p)\n", pibc, debugstr_w(pwzDisplayName), fNoForceAbs, pcchEaten, ppimk);
 352
 353     if(fNoForceAbs)
 354         FIXME("Unsupported fNoForceAbs\n");
 355
 356     len = ARRAY_SIZE(L"file:") - 1;
 357     if(!wcsnicmp(pwzDisplayName, L"file:", len)) {
 358         pwzDisplayName += len;
 359         eaten += len;
 360
 361         while(*pwzDisplayName == '/') {
 362             pwzDisplayName++;
 363             eaten++;
 364         }
 365     }else {
 366         hres = MkParseDisplayNameEx(pibc, pwzDisplayName, pcchEaten, ppimk);
 367         if(SUCCEEDED(hres))
 368             return hres;
 369
 370         hres = MkParseDisplayName(pibc, pwzDisplayName, pcchEaten, ppimk);
 371         if(SUCCEEDED(hres))
 372             return hres;
 373     }
 374
 375     hres = CreateFileMoniker(pwzDisplayName, ppimk);
 376     if(SUCCEEDED(hres))
 377         *pcchEaten = eaten + lstrlenW(pwzDisplayName);
 378
 379     return hres;
 380 }
 381
 382 /***********************************************************************
 383  *             HlinkResolveMonikerForData (HLINK.@)
 384  */
 385 HRESULT WINAPI HlinkResolveMonikerForData(LPMONIKER pimkReference, DWORD reserved, LPBC pibc,
 386         ULONG cFmtetc, FORMATETC *rgFmtetc, IBindStatusCallback *pibsc, LPMONIKER pimkBase)
 387 {
 388     LPOLESTR name = NULL;
 389     IBindCtx *bctx;
 390     DWORD mksys = 0;
 391     void *obj = NULL;
 392     HRESULT hres;
 393
 394     TRACE("(%p %x %p %d %p %p %p)\n", pimkReference, reserved, pibc, cFmtetc, rgFmtetc, pibsc, pimkBase);
 395
 396     if(cFmtetc || rgFmtetc || pimkBase)
 397         FIXME("Unsupported args\n");
 398
 399     hres = RegisterBindStatusCallback(pibc, pibsc, NULL /* FIXME */, 0);
 400     if(FAILED(hres))
 401         return hres;
 402
 403     hres = IMoniker_IsSystemMoniker(pimkReference, &mksys);
 404     if(SUCCEEDED(hres) && mksys != MKSYS_URLMONIKER)
 405         WARN("sysmk = %x\n", mksys);
 406
 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);
 414     }
 415
 416     return IMoniker_BindToStorage(pimkReference, pibc, NULL, &IID_IUnknown, &obj);
 417 }
 418
 419 /***********************************************************************
 420  *             HlinkClone (HLINK.@)
 421  */
 422 HRESULT WINAPI HlinkClone(IHlink *hlink, REFIID riid, IHlinkSite *hls,
 423         DWORD site_data, void **obj)
 424 {
 425     IMoniker *mk, *clone_mk = NULL;
 426     WCHAR *loc, *name = NULL;
 427     HRESULT hres;
 428
 429     if(!hlink || !riid || !obj)
 430         return E_INVALIDARG;
 431
 432     *obj = NULL;
 433
 434     hres = IHlink_GetMonikerReference(hlink, HLINKGETREF_DEFAULT, &mk, &loc);
 435     if(FAILED(hres))
 436         return hres;
 437
 438     if(mk) {
 439         IStream *strm;
 440         LARGE_INTEGER lgint;
 441
 442         hres = CreateStreamOnHGlobal(NULL, TRUE, &strm);
 443         if(FAILED(hres)) {
 444             IMoniker_Release(mk);
 445             goto cleanup;
 446         }
 447
 448         hres = OleSaveToStream((IPersistStream*)mk, strm);
 449         if(FAILED(hres)) {
 450             IStream_Release(strm);
 451             IMoniker_Release(mk);
 452             goto cleanup;
 453         }
 454         IMoniker_Release(mk);
 455
 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;
 461         }
 462
 463         hres = OleLoadFromStream(strm, &IID_IMoniker, (void**)&clone_mk);
 464         IStream_Release(strm);
 465         if(FAILED(hres))
 466             goto cleanup;
 467     }
 468
 469     hres = IHlink_GetFriendlyName(hlink, HLFNAMEF_DEFAULT, &name);
 470     if(FAILED(hres))
 471         goto cleanup;
 472
 473     hres = HlinkCreateFromMoniker(clone_mk, loc, name, hls, site_data, NULL,
 474             &IID_IHlink, obj);
 475
 476 cleanup:
 477     if(clone_mk)
 478         IMoniker_Release(clone_mk);
 479     CoTaskMemFree(loc);
 480     CoTaskMemFree(name);
 481     return hres;
 482 }
 483
 484 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
 485         REFIID riid, LPVOID *ppvObj)
 486 {
 487     CFImpl *This = impl_from_IClassFactory(iface);
 488
 489     TRACE("(%p)->(%s, %p)\n", This, debugstr_guid(riid), ppvObj);
 490
 491     *ppvObj = NULL;
 492
 493     if (IsEqualIID(riid, &IID_IUnknown) ||
 494         IsEqualIID(riid, &IID_IClassFactory))
 495     {
 496         *ppvObj = &This->IClassFactory_iface;
 497         return S_OK;
 498     }
 499
 500     TRACE("-- E_NOINTERFACE\n");
 501     return E_NOINTERFACE;
 502 }
 503
 504 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
 505 {
 506     return 2;
 507 }
 508
 509 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
 510 {
 511     return 1;
 512 }
 513
 514 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
 515         LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
 516 {
 517     CFImpl *This = impl_from_IClassFactory(iface);
 518
 519     TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
 520
 521     *ppvObject = NULL;
 522
 523     return This->lpfnCI(pUnkOuter, riid, ppvObject);
 524 }
 525
 526 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
 527 {
 528     FIXME("%p %d\n", iface, fLock);
 529     return E_NOTIMPL;
 530 }
 531
 532 static const IClassFactoryVtbl hlcfvt =
 533 {
 534     HLinkCF_fnQueryInterface,
 535     HLinkCF_fnAddRef,
 536     HLinkCF_fnRelease,
 537     HLinkCF_fnCreateInstance,
 538     HLinkCF_fnLockServer
 539 };
 540
 541 static CFImpl HLink_cf = { { &hlcfvt }, HLink_Constructor };
 542 static CFImpl HLinkBrowseContext_cf = { { &hlcfvt }, HLinkBrowseContext_Constructor };
 543
 544 /***********************************************************************
 545  *             DllGetClassObject (HLINK.@)
 546  */
 547 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
 548 {
 549     IClassFactory   *pcf = NULL;
 550
 551     TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
 552
 553     if (!ppv)
 554         return E_INVALIDARG;
 555     *ppv = NULL;
 556
 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;
 563
 564     return IClassFactory_QueryInterface(pcf, iid, ppv);
 565 }