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