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
21 #include "hlink_private.h"
26 #include "wine/debug.h"
28 WINE_DEFAULT_DEBUG_CHANNEL(hlink
);
30 #define HLINK_SAVE_MAGIC 0x00000002
31 #define HLINK_SAVE_MONIKER_PRESENT 0x01
32 #define HLINK_SAVE_MONIKER_IS_ABSOLUTE 0x02
33 #define HLINK_SAVE_LOCATION_PRESENT 0x08
34 #define HLINK_SAVE_FRIENDLY_PRESENT 0x10
35 /* 0x20, 0x40 unknown */
36 #define HLINK_SAVE_TARGET_FRAME_PRESENT 0x80
38 #define HLINK_SAVE_ALL (HLINK_SAVE_TARGET_FRAME_PRESENT|HLINK_SAVE_FRIENDLY_PRESENT|HLINK_SAVE_LOCATION_PRESENT|0x04|HLINK_SAVE_MONIKER_IS_ABSOLUTE|HLINK_SAVE_MONIKER_PRESENT)
45 IPersistStream IPersistStream_iface
;
46 IDataObject IDataObject_iface
;
50 LPWSTR TargetFrameName
;
57 static inline HlinkImpl
*impl_from_IHlink(IHlink
*iface
)
59 return CONTAINING_RECORD(iface
, HlinkImpl
, IHlink_iface
);
63 static inline HlinkImpl
* impl_from_IPersistStream( IPersistStream
* iface
)
65 return CONTAINING_RECORD(iface
, HlinkImpl
, IPersistStream_iface
);
68 static inline HlinkImpl
* impl_from_IDataObject( IDataObject
* iface
)
70 return CONTAINING_RECORD(iface
, HlinkImpl
, IDataObject_iface
);
73 static HRESULT
__GetMoniker(HlinkImpl
* This
, IMoniker
** moniker
,
78 if (ref_type
== HLINKGETREF_DEFAULT
)
79 ref_type
= HLINKGETREF_RELATIVE
;
81 if (ref_type
== HLINKGETREF_ABSOLUTE
&& This
->Site
)
83 IMoniker
*hls_moniker
;
85 hres
= IHlinkSite_GetMoniker(This
->Site
, This
->SiteData
,
86 OLEGETMONIKER_FORCEASSIGN
, OLEWHICHMK_CONTAINER
, &hls_moniker
);
92 hres
= IMoniker_ComposeWith(hls_moniker
, This
->Moniker
, FALSE
,
94 IMoniker_Release(hls_moniker
);
98 *moniker
= hls_moniker
;
102 *moniker
= This
->Moniker
;
104 IMoniker_AddRef(*moniker
);
109 static HRESULT WINAPI
IHlink_fnQueryInterface(IHlink
* iface
, REFIID riid
,
112 HlinkImpl
*This
= impl_from_IHlink(iface
);
114 TRACE ("(%p)->(%s,%p)\n", This
, debugstr_guid (riid
), ppvObj
);
118 if (IsEqualIID(riid
, &IID_IUnknown
) || (IsEqualIID(riid
, &IID_IHlink
)))
120 else if (IsEqualIID(riid
, &IID_IPersistStream
))
121 *ppvObj
= &This
->IPersistStream_iface
;
122 else if (IsEqualIID(riid
, &IID_IDataObject
))
123 *ppvObj
= &This
->IDataObject_iface
;
127 IUnknown_AddRef((IUnknown
*)(*ppvObj
));
130 return E_NOINTERFACE
;
133 static ULONG WINAPI
IHlink_fnAddRef (IHlink
* iface
)
135 HlinkImpl
*This
= impl_from_IHlink(iface
);
136 ULONG refCount
= InterlockedIncrement(&This
->ref
);
138 TRACE("(%p)->(count=%u)\n", This
, refCount
- 1);
143 static ULONG WINAPI
IHlink_fnRelease (IHlink
* iface
)
145 HlinkImpl
*This
= impl_from_IHlink(iface
);
146 ULONG refCount
= InterlockedDecrement(&This
->ref
);
148 TRACE("(%p)->(count=%u)\n", This
, refCount
+ 1);
152 TRACE("-- destroying IHlink (%p)\n", This
);
153 heap_free(This
->FriendlyName
);
154 heap_free(This
->TargetFrameName
);
155 heap_free(This
->Location
);
157 IMoniker_Release(This
->Moniker
);
159 IHlinkSite_Release(This
->Site
);
164 static HRESULT WINAPI
IHlink_fnSetHlinkSite( IHlink
* iface
,
165 IHlinkSite
* pihlSite
, DWORD dwSiteData
)
167 HlinkImpl
*This
= impl_from_IHlink(iface
);
169 TRACE("(%p)->(%p %i)\n", This
, pihlSite
, dwSiteData
);
172 IHlinkSite_Release(This
->Site
);
174 This
->Site
= pihlSite
;
176 IHlinkSite_AddRef(This
->Site
);
178 This
->SiteData
= dwSiteData
;
183 static HRESULT WINAPI
IHlink_fnGetHlinkSite( IHlink
* iface
,
184 IHlinkSite
** ppihlSite
, DWORD
*pdwSiteData
)
186 HlinkImpl
*This
= impl_from_IHlink(iface
);
188 TRACE("(%p)->(%p %p)\n", This
, ppihlSite
, pdwSiteData
);
190 *ppihlSite
= This
->Site
;
193 IHlinkSite_AddRef(This
->Site
);
194 *pdwSiteData
= This
->SiteData
;
200 static HRESULT WINAPI
IHlink_fnSetMonikerReference( IHlink
* iface
,
201 DWORD rfHLSETF
, IMoniker
*pmkTarget
, LPCWSTR pwzLocation
)
203 HlinkImpl
*This
= impl_from_IHlink(iface
);
205 TRACE("(%p)->(%i %p %s)\n", This
, rfHLSETF
, pmkTarget
,
206 debugstr_w(pwzLocation
));
210 if(!(rfHLSETF
& (HLINKSETF_TARGET
| HLINKSETF_LOCATION
)))
213 if(rfHLSETF
& HLINKSETF_TARGET
){
215 IMoniker_Release(This
->Moniker
);
217 This
->Moniker
= pmkTarget
;
221 LPOLESTR display_name
;
222 IMoniker_AddRef(This
->Moniker
);
223 CreateBindCtx( 0, &pbc
);
224 IMoniker_GetDisplayName(This
->Moniker
, pbc
, NULL
, &display_name
);
225 IBindCtx_Release(pbc
);
226 This
->absolute
= display_name
&& strchrW(display_name
, ':');
227 CoTaskMemFree(display_name
);
231 if(rfHLSETF
& HLINKSETF_LOCATION
){
232 heap_free(This
->Location
);
233 This
->Location
= hlink_strdupW( pwzLocation
);
239 static HRESULT WINAPI
IHlink_fnSetStringReference(IHlink
* iface
,
240 DWORD grfHLSETF
, LPCWSTR pwzTarget
, LPCWSTR pwzLocation
)
242 HlinkImpl
*This
= impl_from_IHlink(iface
);
244 TRACE("(%p)->(%i %s %s)\n", This
, grfHLSETF
, debugstr_w(pwzTarget
),
245 debugstr_w(pwzLocation
));
247 if(grfHLSETF
> (HLINKSETF_TARGET
| HLINKSETF_LOCATION
) &&
248 grfHLSETF
< -(HLINKSETF_TARGET
| HLINKSETF_LOCATION
))
251 if (grfHLSETF
& HLINKSETF_TARGET
)
255 IMoniker_Release(This
->Moniker
);
256 This
->Moniker
= NULL
;
258 if (pwzTarget
&& *pwzTarget
)
261 IBindCtx
*pbc
= NULL
;
265 r
= CreateBindCtx(0, &pbc
);
267 return E_OUTOFMEMORY
;
269 r
= MkParseDisplayName(pbc
, pwzTarget
, &eaten
, &pMon
);
270 IBindCtx_Release(pbc
);
274 LPCWSTR p
= strchrW(pwzTarget
, ':');
275 if (p
&& (p
- pwzTarget
> 1))
276 r
= CreateURLMoniker(NULL
, pwzTarget
, &pMon
);
278 r
= CreateFileMoniker(pwzTarget
, &pMon
);
281 ERR("couldn't create moniker for %s, failed with error 0x%08x\n",
282 debugstr_w(pwzTarget
), r
);
287 IHlink_SetMonikerReference(iface
, HLINKSETF_TARGET
, pMon
, NULL
);
288 IMoniker_Release(pMon
);
292 if (grfHLSETF
& HLINKSETF_LOCATION
)
294 heap_free(This
->Location
);
295 This
->Location
= NULL
;
296 if (pwzLocation
&& *pwzLocation
)
297 This
->Location
= hlink_strdupW( pwzLocation
);
303 static HRESULT WINAPI
IHlink_fnGetMonikerReference(IHlink
* iface
,
304 DWORD dwWhichRef
, IMoniker
**ppimkTarget
, LPWSTR
*ppwzLocation
)
306 HlinkImpl
*This
= impl_from_IHlink(iface
);
308 TRACE("(%p) -> (%i %p %p)\n", This
, dwWhichRef
, ppimkTarget
,
313 HRESULT hres
= __GetMoniker(This
, ppimkTarget
, dwWhichRef
);
317 *ppwzLocation
= NULL
;
323 IHlink_GetStringReference(iface
, dwWhichRef
, NULL
, ppwzLocation
);
328 static HRESULT WINAPI
IHlink_fnGetStringReference (IHlink
* iface
,
329 DWORD dwWhichRef
, LPWSTR
*ppwzTarget
, LPWSTR
*ppwzLocation
)
331 HlinkImpl
*This
= impl_from_IHlink(iface
);
333 TRACE("(%p) -> (%i %p %p)\n", This
, dwWhichRef
, ppwzTarget
, ppwzLocation
);
335 if(dwWhichRef
!= -1 && dwWhichRef
& ~(HLINKGETREF_DEFAULT
| HLINKGETREF_ABSOLUTE
| HLINKGETREF_RELATIVE
))
340 *ppwzLocation
= NULL
;
347 HRESULT hres
= __GetMoniker(This
, &mon
, dwWhichRef
);
351 *ppwzLocation
= NULL
;
358 CreateBindCtx( 0, &pbc
);
359 IMoniker_GetDisplayName(mon
, pbc
, NULL
, ppwzTarget
);
360 IBindCtx_Release(pbc
);
361 IMoniker_Release(mon
);
367 *ppwzLocation
= hlink_co_strdupW( This
->Location
);
369 TRACE("(Target: %s Location: %s)\n",
370 (ppwzTarget
)?debugstr_w(*ppwzTarget
):"<NULL>",
371 (ppwzLocation
)?debugstr_w(*ppwzLocation
):"<NULL>");
376 static HRESULT WINAPI
IHlink_fnSetFriendlyName (IHlink
*iface
,
377 LPCWSTR pwzFriendlyName
)
379 HlinkImpl
*This
= impl_from_IHlink(iface
);
381 TRACE("(%p) -> (%s)\n", This
, debugstr_w(pwzFriendlyName
));
383 heap_free(This
->FriendlyName
);
384 This
->FriendlyName
= hlink_strdupW( pwzFriendlyName
);
389 static HRESULT WINAPI
IHlink_fnGetFriendlyName (IHlink
* iface
,
390 DWORD grfHLFNAMEF
, LPWSTR
* ppwzFriendlyName
)
392 HlinkImpl
*This
= impl_from_IHlink(iface
);
394 TRACE("(%p) -> (%i %p)\n", This
, grfHLFNAMEF
, ppwzFriendlyName
);
396 /* FIXME: Only using explicitly set and cached friendly names */
398 if (This
->FriendlyName
)
399 *ppwzFriendlyName
= hlink_co_strdupW( This
->FriendlyName
);
403 HRESULT hres
= __GetMoniker(This
, &moniker
, HLINKGETREF_DEFAULT
);
406 *ppwzFriendlyName
= NULL
;
412 CreateBindCtx(0, &bcxt
);
414 IMoniker_GetDisplayName(moniker
, bcxt
, NULL
, ppwzFriendlyName
);
415 IBindCtx_Release(bcxt
);
416 IMoniker_Release(moniker
);
419 *ppwzFriendlyName
= NULL
;
425 static HRESULT WINAPI
IHlink_fnSetTargetFrameName(IHlink
* iface
,
426 LPCWSTR pwzTargetFramename
)
428 HlinkImpl
*This
= impl_from_IHlink(iface
);
429 TRACE("(%p)->(%s)\n", This
, debugstr_w(pwzTargetFramename
));
431 heap_free(This
->TargetFrameName
);
432 This
->TargetFrameName
= hlink_strdupW( pwzTargetFramename
);
437 static HRESULT WINAPI
IHlink_fnGetTargetFrameName(IHlink
* iface
,
438 LPWSTR
*ppwzTargetFrameName
)
440 HlinkImpl
*This
= impl_from_IHlink(iface
);
442 TRACE("(%p)->(%p)\n", This
, ppwzTargetFrameName
);
444 if(!This
->TargetFrameName
) {
445 *ppwzTargetFrameName
= NULL
;
449 *ppwzTargetFrameName
= hlink_co_strdupW( This
->TargetFrameName
);
450 if(!*ppwzTargetFrameName
)
451 return E_OUTOFMEMORY
;
456 static HRESULT WINAPI
IHlink_fnGetMiscStatus(IHlink
* iface
, DWORD
* pdwStatus
)
462 static HRESULT WINAPI
IHlink_fnNavigate(IHlink
* iface
, DWORD grfHLNF
, LPBC pbc
,
463 IBindStatusCallback
*pbsc
, IHlinkBrowseContext
*phbc
)
465 HlinkImpl
*This
= impl_from_IHlink(iface
);
466 IMoniker
*mon
= NULL
;
469 FIXME("Semi-Stub:(%p)->(%i %p %p %p)\n", This
, grfHLNF
, pbc
, pbsc
, phbc
);
471 r
= __GetMoniker(This
, &mon
, HLINKGETREF_ABSOLUTE
);
472 TRACE("Moniker %p\n", mon
);
477 IHlinkTarget
*target
= NULL
;
479 CreateBindCtx(0, &bcxt
);
481 RegisterBindStatusCallback(bcxt
, pbsc
, NULL
, 0);
483 r
= IMoniker_BindToObject(mon
, bcxt
, NULL
, &IID_IHlinkTarget
,
485 TRACE("IHlinkTarget returned 0x%x\n", r
);
488 IHlinkTarget_SetBrowseContext(target
, phbc
);
489 IHlinkTarget_Navigate(target
, grfHLNF
, This
->Location
);
490 IHlinkTarget_Release(target
);
494 static const WCHAR szOpen
[] = {'o','p','e','n',0};
495 LPWSTR target
= NULL
;
497 r
= IHlink_GetStringReference(iface
, HLINKGETREF_DEFAULT
, &target
, NULL
);
498 if (SUCCEEDED(r
) && target
)
500 ShellExecuteW(NULL
, szOpen
, target
, NULL
, NULL
, SW_SHOW
);
501 CoTaskMemFree(target
);
505 RevokeBindStatusCallback(bcxt
, pbsc
);
507 IBindCtx_Release(bcxt
);
508 IMoniker_Release(mon
);
512 IHlinkSite_OnNavigationComplete(This
->Site
, This
->SiteData
, 0, r
, NULL
);
514 TRACE("Finished Navigation\n");
518 static HRESULT WINAPI
IHlink_fnSetAdditonalParams(IHlink
* iface
,
519 LPCWSTR pwzAdditionalParams
)
521 TRACE("Not implemented in native IHlink\n");
525 static HRESULT WINAPI
IHlink_fnGetAdditionalParams(IHlink
* iface
,
526 LPWSTR
* ppwzAdditionalParams
)
528 TRACE("Not implemented in native IHlink\n");
532 static const IHlinkVtbl hlvt
=
534 IHlink_fnQueryInterface
,
537 IHlink_fnSetHlinkSite
,
538 IHlink_fnGetHlinkSite
,
539 IHlink_fnSetMonikerReference
,
540 IHlink_fnGetMonikerReference
,
541 IHlink_fnSetStringReference
,
542 IHlink_fnGetStringReference
,
543 IHlink_fnSetFriendlyName
,
544 IHlink_fnGetFriendlyName
,
545 IHlink_fnSetTargetFrameName
,
546 IHlink_fnGetTargetFrameName
,
547 IHlink_fnGetMiscStatus
,
549 IHlink_fnSetAdditonalParams
,
550 IHlink_fnGetAdditionalParams
553 static HRESULT WINAPI
IDataObject_fnQueryInterface(IDataObject
* iface
,
554 REFIID riid
, LPVOID
*ppvObj
)
556 HlinkImpl
*This
= impl_from_IDataObject(iface
);
558 return IHlink_QueryInterface(&This
->IHlink_iface
, riid
, ppvObj
);
561 static ULONG WINAPI
IDataObject_fnAddRef (IDataObject
* iface
)
563 HlinkImpl
*This
= impl_from_IDataObject(iface
);
565 return IHlink_AddRef(&This
->IHlink_iface
);
568 static ULONG WINAPI
IDataObject_fnRelease (IDataObject
* iface
)
570 HlinkImpl
*This
= impl_from_IDataObject(iface
);
572 return IHlink_Release(&This
->IHlink_iface
);
575 static HRESULT WINAPI
IDataObject_fnGetData(IDataObject
* iface
,
576 FORMATETC
* pformatetcIn
, STGMEDIUM
* pmedium
)
582 static HRESULT WINAPI
IDataObject_fnGetDataHere(IDataObject
* iface
,
583 FORMATETC
* pformatetc
, STGMEDIUM
* pmedium
)
589 static HRESULT WINAPI
IDataObject_fnQueryGetData(IDataObject
* iface
,
590 FORMATETC
* pformatetc
)
596 static HRESULT WINAPI
IDataObject_fnGetConicalFormatEtc(IDataObject
* iface
,
597 FORMATETC
* pformatetcIn
, FORMATETC
* pformatetcOut
)
603 static HRESULT WINAPI
IDataObject_fnSetData(IDataObject
* iface
,
604 FORMATETC
* pformatetc
, STGMEDIUM
* pmedium
, BOOL fRelease
)
610 static HRESULT WINAPI
IDataObject_fnEnumFormatEtc(IDataObject
* iface
,
611 DWORD dwDirection
, IEnumFORMATETC
** ppenumFormatEtc
)
617 static HRESULT WINAPI
IDataObject_fnDAdvise(IDataObject
* iface
,
618 FORMATETC
* pformatetc
, DWORD advf
, IAdviseSink
* pAdvSink
,
619 DWORD
* pdwConnection
)
625 static HRESULT WINAPI
IDataObject_fnDUnadvise(IDataObject
* iface
,
632 static HRESULT WINAPI
IDataObject_fnEnumDAdvise(IDataObject
* iface
,
633 IEnumSTATDATA
** ppenumAdvise
)
639 static const IDataObjectVtbl dovt
=
641 IDataObject_fnQueryInterface
,
642 IDataObject_fnAddRef
,
643 IDataObject_fnRelease
,
644 IDataObject_fnGetData
,
645 IDataObject_fnGetDataHere
,
646 IDataObject_fnQueryGetData
,
647 IDataObject_fnGetConicalFormatEtc
,
648 IDataObject_fnSetData
,
649 IDataObject_fnEnumFormatEtc
,
650 IDataObject_fnDAdvise
,
651 IDataObject_fnDUnadvise
,
652 IDataObject_fnEnumDAdvise
655 static HRESULT WINAPI
IPersistStream_fnQueryInterface(IPersistStream
* iface
,
656 REFIID riid
, LPVOID
*ppvObj
)
658 HlinkImpl
*This
= impl_from_IPersistStream(iface
);
659 TRACE("(%p)\n", This
);
660 return IHlink_QueryInterface(&This
->IHlink_iface
, riid
, ppvObj
);
663 static ULONG WINAPI
IPersistStream_fnAddRef (IPersistStream
* iface
)
665 HlinkImpl
*This
= impl_from_IPersistStream(iface
);
666 TRACE("(%p)\n", This
);
667 return IHlink_AddRef(&This
->IHlink_iface
);
670 static ULONG WINAPI
IPersistStream_fnRelease (IPersistStream
* iface
)
672 HlinkImpl
*This
= impl_from_IPersistStream(iface
);
673 TRACE("(%p)\n", This
);
674 return IHlink_Release(&This
->IHlink_iface
);
677 static HRESULT WINAPI
IPersistStream_fnGetClassID(IPersistStream
* iface
,
680 HlinkImpl
*This
= impl_from_IPersistStream(iface
);
681 TRACE("(%p)\n", This
);
682 *pClassID
= CLSID_StdHlink
;
686 static HRESULT WINAPI
IPersistStream_fnIsDirty(IPersistStream
* iface
)
692 static HRESULT
write_hlink_string(IStream
*pStm
, LPCWSTR str
)
697 TRACE("(%p, %s)\n", pStm
, debugstr_w(str
));
699 len
= strlenW(str
) + 1;
701 hr
= IStream_Write(pStm
, &len
, sizeof(len
), NULL
);
702 if (FAILED(hr
)) return hr
;
704 hr
= IStream_Write(pStm
, str
, len
* sizeof(WCHAR
), NULL
);
705 if (FAILED(hr
)) return hr
;
710 static inline ULONG
size_hlink_string(LPCWSTR str
)
712 return sizeof(DWORD
) + (strlenW(str
) + 1) * sizeof(WCHAR
);
715 static HRESULT
read_hlink_string(IStream
*pStm
, LPWSTR
*out_str
)
722 hr
= IStream_Read(pStm
, &len
, sizeof(len
), &read
);
723 if (FAILED(hr
)) return hr
;
724 if (read
!= sizeof(len
)) return STG_E_READFAULT
;
726 TRACE("read len %d\n", len
);
728 str
= heap_alloc(len
* sizeof(WCHAR
));
729 if (!str
) return E_OUTOFMEMORY
;
731 hr
= IStream_Read(pStm
, str
, len
* sizeof(WCHAR
), &read
);
737 if (read
!= len
* sizeof(WCHAR
))
740 return STG_E_READFAULT
;
742 TRACE("read string %s\n", debugstr_w(str
));
748 static HRESULT WINAPI
IPersistStream_fnLoad(IPersistStream
* iface
,
754 HlinkImpl
*This
= impl_from_IPersistStream(iface
);
756 r
= IStream_Read(pStm
, hdr
, sizeof(hdr
), &read
);
757 if (read
!= sizeof(hdr
) || (hdr
[0] != HLINK_SAVE_MAGIC
))
762 if (hdr
[1] & ~HLINK_SAVE_ALL
)
763 FIXME("unknown flag(s) 0x%x\n", hdr
[1] & ~HLINK_SAVE_ALL
);
765 if (hdr
[1] & HLINK_SAVE_TARGET_FRAME_PRESENT
)
767 TRACE("loading target frame name\n");
768 r
= read_hlink_string(pStm
, &This
->TargetFrameName
);
769 if (FAILED(r
)) goto end
;
772 if (hdr
[1] & HLINK_SAVE_FRIENDLY_PRESENT
)
774 TRACE("loading target friendly name\n");
776 FIXME("0x4 flag not present with friendly name flag - not sure what this means\n");
777 r
= read_hlink_string(pStm
, &This
->FriendlyName
);
778 if (FAILED(r
)) goto end
;
781 if (hdr
[1] & HLINK_SAVE_MONIKER_PRESENT
)
783 TRACE("loading moniker\n");
784 r
= OleLoadFromStream(pStm
, &IID_IMoniker
, (LPVOID
*)&(This
->Moniker
));
787 This
->absolute
= hdr
[1] & HLINK_SAVE_MONIKER_IS_ABSOLUTE
? TRUE
: FALSE
;
790 if (hdr
[1] & HLINK_SAVE_LOCATION_PRESENT
)
792 TRACE("loading location\n");
793 r
= read_hlink_string(pStm
, &This
->Location
);
794 if (FAILED(r
)) goto end
;
798 TRACE("Load Result 0x%x (%p)\n", r
, This
->Moniker
);
803 static HRESULT WINAPI
IPersistStream_fnSave(IPersistStream
* iface
,
804 IStream
* pStm
, BOOL fClearDirty
)
807 HlinkImpl
*This
= impl_from_IPersistStream(iface
);
811 TRACE("(%p) Moniker(%p)\n", This
, This
->Moniker
);
813 r
= __GetMoniker(This
, &moniker
, HLINKGETREF_DEFAULT
);
818 hdr
[0] = HLINK_SAVE_MAGIC
;
822 hdr
[1] |= HLINK_SAVE_MONIKER_PRESENT
;
824 hdr
[1] |= HLINK_SAVE_MONIKER_IS_ABSOLUTE
;
826 hdr
[1] |= HLINK_SAVE_LOCATION_PRESENT
;
827 if (This
->FriendlyName
)
828 hdr
[1] |= HLINK_SAVE_FRIENDLY_PRESENT
| 4 /* FIXME */;
829 if (This
->TargetFrameName
)
830 hdr
[1] |= HLINK_SAVE_TARGET_FRAME_PRESENT
;
832 IStream_Write(pStm
, hdr
, sizeof(hdr
), NULL
);
834 if (This
->TargetFrameName
)
836 r
= write_hlink_string(pStm
, This
->TargetFrameName
);
837 if (FAILED(r
)) goto end
;
840 if (This
->FriendlyName
)
842 r
= write_hlink_string(pStm
, This
->FriendlyName
);
843 if (FAILED(r
)) goto end
;
848 IPersistStream
* monstream
;
851 IMoniker_QueryInterface(moniker
, &IID_IPersistStream
,
852 (LPVOID
*)&monstream
);
855 r
= OleSaveToStream(monstream
, pStm
);
856 IPersistStream_Release(monstream
);
858 if (FAILED(r
)) goto end
;
863 r
= write_hlink_string(pStm
, This
->Location
);
864 if (FAILED(r
)) goto end
;
868 if (moniker
) IMoniker_Release(moniker
);
869 TRACE("Save Result 0x%x\n", r
);
874 static HRESULT WINAPI
IPersistStream_fnGetSizeMax(IPersistStream
* iface
,
875 ULARGE_INTEGER
* pcbSize
)
878 HlinkImpl
*This
= impl_from_IPersistStream(iface
);
881 TRACE("(%p) Moniker(%p)\n", This
, This
->Moniker
);
883 pcbSize
->QuadPart
= sizeof(DWORD
)*2;
885 if (This
->TargetFrameName
)
886 pcbSize
->QuadPart
+= size_hlink_string(This
->TargetFrameName
);
888 if (This
->FriendlyName
)
889 pcbSize
->QuadPart
+= size_hlink_string(This
->FriendlyName
);
891 r
= __GetMoniker(This
, &moniker
, HLINKGETREF_DEFAULT
);
898 IPersistStream
* monstream
= NULL
;
899 IMoniker_QueryInterface(moniker
, &IID_IPersistStream
,
900 (LPVOID
*)&monstream
);
903 ULARGE_INTEGER mon_size
;
904 r
= IPersistStream_GetSizeMax(monstream
, &mon_size
);
905 pcbSize
->QuadPart
+= mon_size
.QuadPart
;
906 IPersistStream_Release(monstream
);
908 IMoniker_Release(moniker
);
912 pcbSize
->QuadPart
+= size_hlink_string(This
->Location
);
917 static const IPersistStreamVtbl psvt
=
919 IPersistStream_fnQueryInterface
,
920 IPersistStream_fnAddRef
,
921 IPersistStream_fnRelease
,
922 IPersistStream_fnGetClassID
,
923 IPersistStream_fnIsDirty
,
924 IPersistStream_fnLoad
,
925 IPersistStream_fnSave
,
926 IPersistStream_fnGetSizeMax
,
929 HRESULT
HLink_Constructor(IUnknown
*pUnkOuter
, REFIID riid
, void **ppv
)
933 TRACE("unkOut=%p riid=%s\n", pUnkOuter
, debugstr_guid(riid
));
937 return CLASS_E_NOAGGREGATION
;
939 hl
= heap_alloc_zero(sizeof(HlinkImpl
));
941 return E_OUTOFMEMORY
;
944 hl
->IHlink_iface
.lpVtbl
= &hlvt
;
945 hl
->IPersistStream_iface
.lpVtbl
= &psvt
;
946 hl
->IDataObject_iface
.lpVtbl
= &dovt
;