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 <stdarg.h>
  22
  23 #define COBJMACROS
  24
  25 #include "winerror.h"
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "winreg.h"
  30 #include "ole2.h"
  31 #include "unknwn.h"
  32
  33 #include "wine/debug.h"
  34 #include "wine/unicode.h"
  35 #include "hlink.h"
  36
  37 #include "initguid.h"
  38 #include "hlguids.h"
  39
  40 WINE_DEFAULT_DEBUG_CHANNEL(hlink);
  41
  42 extern HRESULT WINAPI HLink_Constructor(IUnknown *, REFIID, LPVOID*);
  43 extern HRESULT WINAPI HLinkBrowseContext_Constructor(IUnknown *, REFIID, LPVOID*);
  44
  45 typedef HRESULT (CALLBACK *LPFNCREATEINSTANCE)(IUnknown*, REFIID, LPVOID*);
  46
  47 typedef struct
  48 {
  49     const IClassFactoryVtbl *lpVtbl;
  50     LPFNCREATEINSTANCE      lpfnCI;
  51 } CFImpl;
  52
  53 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
  54 {
  55     TRACE("%p %d %p\n", hinstDLL, fdwReason, lpvReserved);
  56
  57     switch (fdwReason)
  58     {
  59     case DLL_WINE_PREATTACH:
  60         return FALSE;  /* prefer native version */
  61     case DLL_PROCESS_ATTACH:
  62         DisableThreadLibraryCalls(hinstDLL);
  63         break;
  64     case DLL_PROCESS_DETACH:
  65         break;
  66     }
  67     return TRUE;
  68 }
  69
  70 HRESULT WINAPI DllCanUnloadNow( void )
  71 {
  72     FIXME("\n");
  73     return S_OK;
  74 }
  75
  76 HRESULT WINAPI HlinkCreateFromMoniker( IMoniker *pimkTrgt, LPCWSTR pwzLocation,
  77         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
  78         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
  79 {
  80     IHlink *hl = NULL;
  81     HRESULT r = S_OK;
  82
  83     TRACE("%p %s %s %p %i %p %s %p\n", pimkTrgt, debugstr_w(pwzLocation),
  84             debugstr_w(pwzFriendlyName), pihlsite, dwSiteData, piunkOuter,
  85             debugstr_guid(riid), ppvObj);
  86
  87     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
  88     if (FAILED(r))
  89         return r;
  90
  91     if (pwzLocation)
  92         IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
  93     if (pwzFriendlyName)
  94         IHlink_SetFriendlyName(hl, pwzFriendlyName);
  95     if (pihlsite)
  96         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
  97     if (pimkTrgt)
  98         IHlink_SetMonikerReference(hl, 0, pimkTrgt, pwzLocation);
  99
 100     *ppvObj = hl;
 101
 102     TRACE("Returning %i\n",r);
 103
 104     return r;
 105 }
 106
 107 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
 108         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
 109         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
 110 {
 111     IHlink *hl = NULL;
 112     HRESULT r = S_OK;
 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 (pwzLocation)
 123         IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
 124
 125     if (pwzTarget)
 126     {
 127         IMoniker *pTgtMk = NULL;
 128         IBindCtx *pbc = NULL;
 129         ULONG eaten;
 130
 131         CreateBindCtx(0, &pbc);
 132         r = MkParseDisplayName(pbc, pwzTarget, &eaten, &pTgtMk);
 133         IBindCtx_Release(pbc);
 134
 135         if (FAILED(r))
 136         {
 137             FIXME("ParseDisplayName failed, falling back to file\n");
 138             r = CreateFileMoniker(pwzTarget,&pTgtMk);
 139         }
 140
 141         if (pTgtMk)
 142         {
 143             IHlink_SetMonikerReference(hl, 0, pTgtMk, pwzLocation);
 144             IMoniker_Release(pTgtMk);
 145         }
 146         else
 147             FIXME("Unable to come up with a moniker, expect problems\n");
 148
 149         IHlink_SetStringReference(hl, HLINKSETF_TARGET, pwzTarget, NULL);
 150     }
 151
 152     if (pwzFriendlyName)
 153         IHlink_SetFriendlyName(hl, pwzFriendlyName);
 154     if (pihlsite)
 155         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
 156
 157     TRACE("Returning %i\n",r);
 158     *ppvObj = hl;
 159
 160     return r;
 161 }
 162
 163
 164 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
 165 {
 166     HRESULT r = S_OK;
 167
 168     TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
 169
 170     r = CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
 171
 172     TRACE("returning %i\n",r);
 173
 174     return r;
 175 }
 176
 177 HRESULT WINAPI HlinkNavigate(IHlink *phl, IHlinkFrame *phlFrame,
 178         DWORD grfHLNF, LPBC pbc, IBindStatusCallback *pbsc,
 179         IHlinkBrowseContext *phlbc)
 180 {
 181     HRESULT r = S_OK;
 182
 183     TRACE("%p %p %i %p %p %p\n", phl, phlFrame, grfHLNF, pbc, pbsc, phlbc);
 184
 185     if (phlFrame)
 186         r = IHlinkFrame_Navigate(phlFrame, grfHLNF, pbc, pbsc, phl);
 187     else if (phl)
 188         r = IHlink_Navigate(phl, grfHLNF, pbc, pbsc, phlbc);
 189
 190     return r;
 191 }
 192
 193 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
 194         IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
 195         LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
 196 {
 197     HRESULT r = S_OK;
 198
 199     TRACE("%p %p %i %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
 200             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
 201
 202     r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
 203             pwzLocation, pwzFriendlyName, puHLID);
 204
 205     if (phlFrame)
 206         r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
 207                 pwzFriendlyName, 0);
 208
 209     return r;
 210 }
 211
 212 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
 213         IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
 214         REFIID riid, void **ppvObj)
 215 {
 216     FIXME("%p %p %d %p %p %p\n",
 217           piDataObj, pihlsite, dwSiteData, piunkOuter, riid, ppvObj);
 218     *ppvObj = NULL;
 219     return E_NOTIMPL;
 220 }
 221
 222 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
 223 {
 224     FIXME("%p\n", piDataObj);
 225     return E_NOTIMPL;
 226 }
 227
 228 HRESULT WINAPI HlinkCreateExtensionServices(LPCWSTR pwzAdditionalHeaders,
 229         HWND phwnd, LPCWSTR pszUsername, LPCWSTR pszPassword,
 230         IUnknown *punkOuter, REFIID riid, void** ppvObj)
 231 {
 232     FIXME("%s %p %s %s %p %s %p\n",debugstr_w(pwzAdditionalHeaders),
 233             phwnd, debugstr_w(pszUsername), debugstr_w(pszPassword),
 234             punkOuter, debugstr_guid(riid), ppvObj);
 235     return E_NOTIMPL;
 236 }
 237
 238 HRESULT WINAPI HlinkNavigateToStringReference( LPCWSTR pwzTarget,
 239         LPCWSTR pwzLocation, IHlinkSite *pihlsite, DWORD dwSiteData,
 240         IHlinkFrame *pihlframe, DWORD grfHLNF, LPBC pibc,
 241         IBindStatusCallback *pibsc, IHlinkBrowseContext *pihlbc)
 242 {
 243     HRESULT r;
 244     IHlink *hlink = NULL;
 245
 246     FIXME("%s %s %p %08x %p %08x %p %p %p\n",
 247           debugstr_w(pwzTarget), debugstr_w(pwzLocation), pihlsite,
 248           dwSiteData, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
 249
 250     r = HlinkCreateFromString( pwzTarget, pwzLocation, NULL, pihlsite,
 251                                dwSiteData, NULL, &IID_IHlink, (LPVOID*) &hlink );
 252     if (SUCCEEDED(r))
 253         r = HlinkNavigate(hlink, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
 254
 255     return r;
 256 }
 257
 258 HRESULT WINAPI HlinkIsShortcut(LPCWSTR pwzFileName)
 259 {
 260     int len;
 261
 262     static const WCHAR url_ext[] = {'.','u','r','l',0};
 263
 264     TRACE("(%s)\n", debugstr_w(pwzFileName));
 265
 266     if(!pwzFileName)
 267         return E_INVALIDARG;
 268
 269     len = strlenW(pwzFileName)-4;
 270     if(len < 0)
 271         return S_FALSE;
 272
 273     return strcmpiW(pwzFileName+len, url_ext) ? S_FALSE : S_OK;
 274 }
 275
 276 HRESULT WINAPI HlinkTranslateURL(LPCWSTR pwzURL, DWORD grfFlags, LPWSTR *ppwzTranslatedURL)
 277 {
 278     FIXME("(%s %08x %p)\n", debugstr_w(pwzURL), grfFlags, ppwzTranslatedURL);
 279     return E_NOTIMPL;
 280 }
 281
 282 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
 283         REFIID riid, LPVOID *ppvObj)
 284 {
 285     CFImpl *This = (CFImpl *)iface;
 286
 287     TRACE("(%p)->(%s)\n",This,debugstr_guid(riid));
 288
 289     *ppvObj = NULL;
 290
 291     if (IsEqualIID(riid, &IID_IUnknown) ||
 292         IsEqualIID(riid, &IID_IClassFactory))
 293     {
 294         *ppvObj = This;
 295         return S_OK;
 296     }
 297
 298     TRACE("-- E_NOINTERFACE\n");
 299     return E_NOINTERFACE;
 300 }
 301
 302 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
 303 {
 304     return 2;
 305 }
 306
 307 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
 308 {
 309     return 1;
 310 }
 311
 312 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
 313         LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
 314 {
 315     CFImpl *This = (CFImpl *)iface;
 316
 317     TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
 318
 319     *ppvObject = NULL;
 320
 321     return This->lpfnCI(pUnkOuter, riid, ppvObject);
 322 }
 323
 324 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
 325 {
 326     FIXME("%p %d\n", iface, fLock);
 327     return E_NOTIMPL;
 328 }
 329
 330 static const IClassFactoryVtbl hlcfvt =
 331 {
 332     HLinkCF_fnQueryInterface,
 333     HLinkCF_fnAddRef,
 334     HLinkCF_fnRelease,
 335     HLinkCF_fnCreateInstance,
 336     HLinkCF_fnLockServer
 337 };
 338
 339 static CFImpl HLink_cf = { &hlcfvt, &HLink_Constructor };
 340 static CFImpl HLinkBrowseContext_cf = { &hlcfvt, &HLinkBrowseContext_Constructor };
 341
 342 /***********************************************************************
 343  *             DllGetClassObject (HLINK.@)
 344  */
 345 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
 346 {
 347     IClassFactory   *pcf = NULL;
 348
 349     TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
 350
 351     if (!ppv)
 352         return E_INVALIDARG;
 353     *ppv = NULL;
 354
 355     if (IsEqualIID(rclsid, &CLSID_StdHlink))
 356         pcf = (IClassFactory*) &HLink_cf;
 357     else if (IsEqualIID(rclsid, &CLSID_StdHlinkBrowseContext))
 358         pcf = (IClassFactory*) &HLinkBrowseContext_cf;
 359     else
 360         return CLASS_E_CLASSNOTAVAILABLE;
 361
 362     return IClassFactory_QueryInterface(pcf, iid, ppv);
 363 }
 364
 365 static HRESULT register_clsid(LPCGUID guid)
 366 {
 367     static const WCHAR clsid[] =
 368         {'C','L','S','I','D','\\',0};
 369     static const WCHAR ips[] =
 370         {'\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0};
 371     static const WCHAR hlink[] =
 372         {'h','l','i','n','k','.','d','l','l',0};
 373     static const WCHAR threading_model[] =
 374         {'T','h','r','e','a','d','i','n','g','M','o','d','e','l',0};
 375     static const WCHAR apartment[] =
 376         {'A','p','a','r','t','m','e','n','t',0};
 377     WCHAR path[80];
 378     HKEY key = NULL;
 379     LONG r;
 380
 381     lstrcpyW(path, clsid);
 382     StringFromGUID2(guid, &path[6], 80);
 383     lstrcatW(path, ips);
 384     r = RegCreateKeyW(HKEY_CLASSES_ROOT, path, &key);
 385     if (r != ERROR_SUCCESS)
 386         return E_FAIL;
 387
 388     RegSetValueExW(key, NULL, 0, REG_SZ, (const BYTE *)hlink, sizeof hlink);
 389     RegSetValueExW(key, threading_model, 0, REG_SZ, (const BYTE *)apartment, sizeof apartment);
 390     RegCloseKey(key);
 391
 392     return S_OK;
 393 }
 394
 395 HRESULT WINAPI DllRegisterServer(void)
 396 {
 397     HRESULT r;
 398
 399     r = register_clsid(&CLSID_StdHlink);
 400     if (SUCCEEDED(r))
 401         r = register_clsid(&CLSID_StdHlinkBrowseContext);
 402
 403     return S_OK;
 404 }