2 * Implementation of hyperlinking (hlink.dll)
4 * Copyright 2005 Aric Stewart for CodeWeavers
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.
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.
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
33 #include "wine/debug.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(hlink);
41 extern HRESULT WINAPI HLink_Constructor(IUnknown *, REFIID, LPVOID*);
42 extern HRESULT WINAPI HLinkBrowseContext_Constructor(IUnknown *, REFIID, LPVOID*);
44 typedef HRESULT (CALLBACK *LPFNCREATEINSTANCE)(IUnknown*, REFIID, LPVOID*);
48 const IClassFactoryVtbl *lpVtbl;
49 LPFNCREATEINSTANCE lpfnCI;
52 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
54 TRACE("%p %ld %p\n", hinstDLL, fdwReason, lpvReserved);
58 case DLL_WINE_PREATTACH:
59 return FALSE; /* prefer native version */
60 case DLL_PROCESS_ATTACH:
61 DisableThreadLibraryCalls(hinstDLL);
63 case DLL_PROCESS_DETACH:
69 HRESULT WINAPI DllCanUnloadNow( void )
75 HRESULT WINAPI HlinkCreateFromMoniker( IMoniker *pimkTrgt, LPCWSTR pwzLocation,
76 LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
77 IUnknown* piunkOuter, REFIID riid, void** ppvObj)
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);
86 r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
91 IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
93 IHlink_SetFriendlyName(hl, pwzFriendlyName);
95 IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
97 IHlink_SetMonikerReference(hl, 0, pimkTrgt, pwzLocation);
101 TRACE("Returning %li\n",r);
106 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
107 LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
108 IUnknown* piunkOuter, REFIID riid, void** ppvObj)
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);
117 r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
122 IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
126 IMoniker *pTgtMk = NULL;
127 IBindCtx *pbc = NULL;
130 CreateBindCtx(0, &pbc);
131 r = MkParseDisplayName(pbc, pwzTarget, &eaten, &pTgtMk);
132 IBindCtx_Release(pbc);
136 FIXME("ParseDisplayName failed, falling back to file\n");
137 r = CreateFileMoniker(pwzTarget,&pTgtMk);
142 IHlink_SetMonikerReference(hl, 0, pTgtMk, pwzLocation);
143 IMoniker_Release(pTgtMk);
146 FIXME("Unable to come up with a moniker, expect problems\n");
148 IHlink_SetStringReference(hl, HLINKSETF_TARGET, pwzTarget, NULL);
152 IHlink_SetFriendlyName(hl, pwzFriendlyName);
154 IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
156 TRACE("Returning %li\n",r);
163 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
167 TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
169 r = CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
171 TRACE("returning %li\n",r);
176 HRESULT WINAPI HlinkNavigate(IHlink *phl, IHlinkFrame *phlFrame,
177 DWORD grfHLNF, LPBC pbc, IBindStatusCallback *pbsc,
178 IHlinkBrowseContext *phlbc)
182 TRACE("%p %p %li %p %p %p\n", phl, phlFrame, grfHLNF, pbc, pbsc, phlbc);
185 r = IHlinkFrame_Navigate(phlFrame, grfHLNF, pbc, pbsc, phl);
187 r = IHlink_Navigate(phl, grfHLNF, pbc, pbsc, phlbc);
192 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
193 IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
194 LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
198 TRACE("%p %p %li %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
199 debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
201 r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
202 pwzLocation, pwzFriendlyName, puHLID);
205 r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
211 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
212 IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
213 REFIID riid, void **ppvObj)
215 FIXME("%p %p %ld %p %p %p\n",
216 piDataObj, pihlsite, dwSiteData, piunkOuter, riid, ppvObj);
221 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
223 FIXME("%p\n", piDataObj);
227 HRESULT WINAPI HlinkCreateExtensionServices(LPCWSTR pwzAdditionalHeaders,
228 HWND phwnd, LPCWSTR pszUsername, LPCWSTR pszPassword,
229 IUnknown *punkOuter, REFIID riid, void** ppvObj)
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);
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)
242 FIXME("%s %s %p %08lx %p %08lx %p %p %p\n",
243 debugstr_w(pwzTarget), debugstr_w(pwzLocation), pihlsite,
244 dwSiteData, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
248 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
249 REFIID riid, LPVOID *ppvObj)
251 CFImpl *This = (CFImpl *)iface;
253 TRACE("(%p)->(%s)\n",This,debugstr_guid(riid));
257 if (IsEqualIID(riid, &IID_IUnknown) ||
258 IsEqualIID(riid, &IID_IClassFactory))
264 TRACE("-- E_NOINTERFACE\n");
265 return E_NOINTERFACE;
268 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
273 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
278 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
279 LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
281 CFImpl *This = (CFImpl *)iface;
283 TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
287 return This->lpfnCI(pUnkOuter, riid, ppvObject);
290 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
292 FIXME("%p %d\n", iface, fLock);
296 static const IClassFactoryVtbl hlcfvt =
298 HLinkCF_fnQueryInterface,
301 HLinkCF_fnCreateInstance,
305 static CFImpl HLink_cf = { &hlcfvt, &HLink_Constructor };
306 static CFImpl HLinkBrowseContext_cf = { &hlcfvt, &HLinkBrowseContext_Constructor };
308 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
310 IClassFactory *pcf = NULL;
312 TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
318 if (IsEqualIID(rclsid, &CLSID_StdHlink))
319 pcf = (IClassFactory*) &HLink_cf;
320 else if (IsEqualIID(rclsid, &CLSID_StdHlinkBrowseContext))
321 pcf = (IClassFactory*) &HLinkBrowseContext_cf;
323 return CLASS_E_CLASSNOTAVAILABLE;
325 return IClassFactory_QueryInterface(pcf, iid, ppv);
328 static HRESULT register_clsid(LPCGUID guid)
330 static const WCHAR clsid[] =
331 {'C','L','S','I','D','\\',0};
332 static const WCHAR ips[] =
333 {'\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0};
334 static const WCHAR hlink[] =
335 {'h','l','i','n','k','.','d','l','l',0};
336 static const WCHAR threading_model[] =
337 {'T','h','r','e','a','d','i','n','g','M','o','d','e','l',0};
338 static const WCHAR apartment[] =
339 {'A','p','a','r','t','m','e','n','t',0};
344 lstrcpyW(path, clsid);
345 StringFromGUID2(guid, &path[6], 80);
347 r = RegCreateKeyW(HKEY_CLASSES_ROOT, path, &key);
348 if (r != ERROR_SUCCESS)
351 RegSetValueExW(key, NULL, 0, REG_SZ, (LPBYTE)hlink, sizeof hlink);
352 RegSetValueExW(key, threading_model, 0, REG_SZ, (LPBYTE)apartment, sizeof apartment);
358 HRESULT WINAPI DllRegisterServer(void)
362 r = register_clsid(&CLSID_StdHlink);
364 r = register_clsid(&CLSID_StdHlinkBrowseContext);