2 * Copyright 2005 Jacek Caban
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
25 #define NONAMELESSUNION
26 #define NONAMELESSSTRUCT
35 #define NO_SHLWAPI_REG
38 #include "wine/debug.h"
40 #include "mshtml_private.h"
41 #include "htmlevent.h"
45 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
52 } download_proc_task_t
;
54 static BOOL
use_gecko_script(HTMLWindow
*window
)
59 hres
= IInternetSecurityManager_MapUrlToZone(window
->secmgr
, window
->url
, &zone
, 0);
61 WARN("Could not map %s to zone: %08x\n", debugstr_w(window
->url
), hres
);
65 TRACE("zone %d\n", zone
);
66 if(zone
== URLZONE_LOCAL_MACHINE
|| zone
== URLZONE_TRUSTED
|| !window
->uri
)
69 hres
= IUri_GetScheme(window
->uri
, &scheme
);
70 return FAILED(hres
) || scheme
!= URL_SCHEME_ABOUT
;
73 void set_current_uri(HTMLWindow
*window
, IUri
*uri
)
76 IUri_Release(window
->uri
);
80 SysFreeString(window
->url
);
89 IUri_GetDisplayUri(uri
, &window
->url
);
92 void set_current_mon(HTMLWindow
*This
, IMoniker
*mon
)
94 IUriContainer
*uri_container
;
99 IMoniker_Release(This
->mon
);
107 IMoniker_AddRef(mon
);
110 hres
= IMoniker_QueryInterface(mon
, &IID_IUriContainer
, (void**)&uri_container
);
111 if(SUCCEEDED(hres
)) {
112 hres
= IUriContainer_GetIUri(uri_container
, &uri
);
113 IUriContainer_Release(uri_container
);
115 WARN("GetIUri failed: %08x\n", hres
);
123 hres
= IMoniker_GetDisplayName(mon
, NULL
, NULL
, &url
);
124 if(SUCCEEDED(hres
)) {
125 hres
= CreateUri(url
, 0, 0, &uri
);
127 WARN("CrateUri failed: %08x\n", hres
);
128 set_current_uri(This
, NULL
);
129 This
->url
= SysAllocString(url
);
135 WARN("GetDisplayName failed: %08x\n", hres
);
139 set_current_uri(This
, uri
);
142 set_script_mode(This
, use_gecko_script(This
) ? SCRIPTMODE_GECKO
: SCRIPTMODE_ACTIVESCRIPT
);
145 void set_download_state(HTMLDocumentObj
*doc
, int state
)
148 IOleCommandTarget
*olecmd
;
151 hres
= IOleClientSite_QueryInterface(doc
->client
, &IID_IOleCommandTarget
, (void**)&olecmd
);
152 if(SUCCEEDED(hres
)) {
158 IOleCommandTarget_Exec(olecmd
, NULL
, OLECMDID_SETDOWNLOADSTATE
,
159 OLECMDEXECOPT_DONTPROMPTUSER
, &var
, NULL
);
160 IOleCommandTarget_Release(olecmd
);
164 doc
->download_state
= state
;
167 static void set_progress_proc(task_t
*_task
)
169 docobj_task_t
*task
= (docobj_task_t
*)_task
;
170 IOleCommandTarget
*olecmd
= NULL
;
171 HTMLDocumentObj
*doc
= task
->doc
;
174 TRACE("(%p)\n", doc
);
177 IOleClientSite_QueryInterface(doc
->client
, &IID_IOleCommandTarget
, (void**)&olecmd
);
180 VARIANT progress_max
, progress
;
182 V_VT(&progress_max
) = VT_I4
;
183 V_I4(&progress_max
) = 0; /* FIXME */
184 IOleCommandTarget_Exec(olecmd
, NULL
, OLECMDID_SETPROGRESSMAX
, OLECMDEXECOPT_DONTPROMPTUSER
,
185 &progress_max
, NULL
);
187 V_VT(&progress
) = VT_I4
;
188 V_I4(&progress
) = 0; /* FIXME */
189 IOleCommandTarget_Exec(olecmd
, NULL
, OLECMDID_SETPROGRESSPOS
, OLECMDEXECOPT_DONTPROMPTUSER
,
191 IOleCommandTarget_Release(olecmd
);
194 if(doc
->usermode
== EDITMODE
&& doc
->hostui
) {
195 DOCHOSTUIINFO hostinfo
;
197 memset(&hostinfo
, 0, sizeof(DOCHOSTUIINFO
));
198 hostinfo
.cbSize
= sizeof(DOCHOSTUIINFO
);
199 hres
= IDocHostUIHandler_GetHostInfo(doc
->hostui
, &hostinfo
);
201 /* FIXME: use hostinfo */
202 TRACE("hostinfo = {%u %08x %08x %s %s}\n",
203 hostinfo
.cbSize
, hostinfo
.dwFlags
, hostinfo
.dwDoubleClick
,
204 debugstr_w(hostinfo
.pchHostCss
), debugstr_w(hostinfo
.pchHostNS
));
208 static void set_downloading_proc(task_t
*_task
)
210 download_proc_task_t
*task
= (download_proc_task_t
*)_task
;
211 HTMLDocumentObj
*doc
= task
->doc
;
214 TRACE("(%p)\n", doc
);
216 set_statustext(doc
, IDS_STATUS_DOWNLOADINGFROM
, task
->url
);
218 if(task
->set_download
)
219 set_download_state(doc
, 1);
225 IAdviseSink_OnViewChange(doc
->view_sink
, DVASPECT_CONTENT
, -1);
228 IDropTarget
*drop_target
= NULL
;
230 hres
= IDocHostUIHandler_GetDropTarget(doc
->hostui
, NULL
/* FIXME */, &drop_target
);
231 if(SUCCEEDED(hres
)) {
232 FIXME("Use IDropTarget\n");
233 IDropTarget_Release(drop_target
);
238 static void set_downloading_task_destr(task_t
*_task
)
240 download_proc_task_t
*task
= (download_proc_task_t
*)_task
;
242 CoTaskMemFree(task
->url
);
246 void prepare_for_binding(HTMLDocument
*This
, IMoniker
*mon
, BOOL navigated_binding
)
250 if(This
->doc_obj
->client
) {
251 VARIANT silent
, offline
;
253 hres
= get_client_disp_property(This
->doc_obj
->client
, DISPID_AMBIENT_SILENT
, &silent
);
254 if(SUCCEEDED(hres
)) {
255 if(V_VT(&silent
) != VT_BOOL
)
256 WARN("V_VT(silent) = %d\n", V_VT(&silent
));
257 else if(V_BOOL(&silent
))
258 FIXME("silent == true\n");
261 hres
= get_client_disp_property(This
->doc_obj
->client
,
262 DISPID_AMBIENT_OFFLINEIFNOTCONNECTED
, &offline
);
263 if(SUCCEEDED(hres
)) {
264 if(V_VT(&offline
) != VT_BOOL
)
265 WARN("V_VT(offline) = %d\n", V_VT(&offline
));
266 else if(V_BOOL(&offline
))
267 FIXME("offline == true\n");
271 if(This
->window
->mon
) {
272 update_doc(This
, UPDATE_TITLE
|UPDATE_UI
);
274 update_doc(This
, UPDATE_TITLE
);
275 set_current_mon(This
->window
, mon
);
278 if(This
->doc_obj
->client
) {
279 IOleCommandTarget
*cmdtrg
= NULL
;
281 hres
= IOleClientSite_QueryInterface(This
->doc_obj
->client
, &IID_IOleCommandTarget
,
283 if(SUCCEEDED(hres
)) {
286 if(!navigated_binding
) {
289 IOleCommandTarget_Exec(cmdtrg
, &CGID_ShellDocView
, 37, 0, &var
, NULL
);
291 V_VT(&var
) = VT_UNKNOWN
;
292 V_UNKNOWN(&var
) = (IUnknown
*)&This
->window
->IHTMLWindow2_iface
;
293 V_VT(&out
) = VT_EMPTY
;
294 hres
= IOleCommandTarget_Exec(cmdtrg
, &CGID_ShellDocView
, 63, 0, &var
, &out
);
299 IOleCommandTarget_Release(cmdtrg
);
304 HRESULT
set_moniker(HTMLDocument
*This
, IMoniker
*mon
, IBindCtx
*pibc
, nsChannelBSC
*async_bsc
, BOOL set_download
)
306 download_proc_task_t
*download_task
;
307 nsChannelBSC
*bscallback
;
312 hres
= IMoniker_GetDisplayName(mon
, pibc
, NULL
, &url
);
314 WARN("GetDiaplayName failed: %08x\n", hres
);
318 TRACE("got url: %s\n", debugstr_w(url
));
320 set_ready_state(This
->window
, READYSTATE_LOADING
);
322 hres
= create_doc_uri(This
->window
, url
, &nsuri
);
323 if(SUCCEEDED(hres
)) {
325 bscallback
= async_bsc
;
327 hres
= create_channelbsc(mon
, NULL
, NULL
, 0, &bscallback
);
330 if(SUCCEEDED(hres
)) {
331 remove_target_tasks(This
->task_magic
);
332 abort_document_bindings(This
->doc_node
);
334 hres
= load_nsuri(This
->window
, nsuri
, bscallback
, 0/*LOAD_INITIAL_DOCUMENT_URI*/);
335 nsISupports_Release((nsISupports
*)nsuri
); /* FIXME */
337 set_window_bscallback(This
->window
, bscallback
);
338 if(bscallback
!= async_bsc
)
339 IUnknown_Release((IUnknown
*)bscallback
);
347 HTMLDocument_LockContainer(This
->doc_obj
, TRUE
);
349 if(This
->doc_obj
->frame
) {
352 task
= heap_alloc(sizeof(docobj_task_t
));
353 task
->doc
= This
->doc_obj
;
354 push_task(&task
->header
, set_progress_proc
, NULL
, This
->doc_obj
->basedoc
.task_magic
);
357 download_task
= heap_alloc(sizeof(download_proc_task_t
));
358 download_task
->doc
= This
->doc_obj
;
359 download_task
->set_download
= set_download
;
360 download_task
->url
= url
;
361 push_task(&download_task
->header
, set_downloading_proc
, set_downloading_task_destr
, This
->doc_obj
->basedoc
.task_magic
);
366 void set_ready_state(HTMLWindow
*window
, READYSTATE readystate
)
368 window
->readystate
= readystate
;
370 if(window
->doc_obj
&& window
->doc_obj
->basedoc
.window
== window
)
371 call_property_onchanged(&window
->doc_obj
->basedoc
.cp_propnotif
, DISPID_READYSTATE
);
373 fire_event(window
->doc
, EVENTID_READYSTATECHANGE
, FALSE
, window
->doc
->node
.nsnode
, NULL
);
375 if(window
->frame_element
)
376 fire_event(window
->frame_element
->element
.node
.doc
, EVENTID_READYSTATECHANGE
,
377 TRUE
, window
->frame_element
->element
.node
.nsnode
, NULL
);
380 static HRESULT
get_doc_string(HTMLDocumentNode
*This
, char **str
)
389 WARN("NULL nsdoc\n");
393 nsres
= nsIDOMHTMLDocument_QueryInterface(This
->nsdoc
, &IID_nsIDOMNode
, (void**)&nsnode
);
394 if(NS_FAILED(nsres
)) {
395 ERR("Could not get nsIDOMNode failed: %08x\n", nsres
);
399 nsAString_Init(&nsstr
, NULL
);
400 hres
= nsnode_to_nsstring(nsnode
, &nsstr
);
401 nsIDOMNode_Release(nsnode
);
403 nsAString_Finish(&nsstr
);
407 nsAString_GetData(&nsstr
, &strw
);
408 TRACE("%s\n", debugstr_w(strw
));
410 *str
= heap_strdupWtoA(strw
);
412 nsAString_Finish(&nsstr
);
415 return E_OUTOFMEMORY
;
420 /**********************************************************
421 * IPersistMoniker implementation
424 static inline HTMLDocument
*impl_from_IPersistMoniker(IPersistMoniker
*iface
)
426 return CONTAINING_RECORD(iface
, HTMLDocument
, IPersistMoniker_iface
);
429 static HRESULT WINAPI
PersistMoniker_QueryInterface(IPersistMoniker
*iface
, REFIID riid
, void **ppv
)
431 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
432 return htmldoc_query_interface(This
, riid
, ppv
);
435 static ULONG WINAPI
PersistMoniker_AddRef(IPersistMoniker
*iface
)
437 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
438 return htmldoc_addref(This
);
441 static ULONG WINAPI
PersistMoniker_Release(IPersistMoniker
*iface
)
443 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
444 return htmldoc_release(This
);
447 static HRESULT WINAPI
PersistMoniker_GetClassID(IPersistMoniker
*iface
, CLSID
*pClassID
)
449 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
450 return IPersist_GetClassID(&This
->IPersistFile_iface
, pClassID
);
453 static HRESULT WINAPI
PersistMoniker_IsDirty(IPersistMoniker
*iface
)
455 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
457 TRACE("(%p)\n", This
);
459 return IPersistStreamInit_IsDirty(&This
->IPersistStreamInit_iface
);
462 static HRESULT WINAPI
PersistMoniker_Load(IPersistMoniker
*iface
, BOOL fFullyAvailable
,
463 IMoniker
*pimkName
, LPBC pibc
, DWORD grfMode
)
465 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
468 TRACE("(%p)->(%x %p %p %08x)\n", This
, fFullyAvailable
, pimkName
, pibc
, grfMode
);
471 IUnknown
*unk
= NULL
;
475 * "__PrecreatedObject"
476 * "BIND_CONTEXT_PARAM"
477 * "__HTMLLOADOPTIONS"
480 * "_ITransData_Object_"
484 IBindCtx_GetObjectParam(pibc
, (LPOLESTR
)SZ_HTML_CLIENTSITE_OBJECTPARAM
, &unk
);
486 IOleClientSite
*client
= NULL
;
488 hres
= IUnknown_QueryInterface(unk
, &IID_IOleClientSite
, (void**)&client
);
489 if(SUCCEEDED(hres
)) {
490 TRACE("Got client site %p\n", client
);
491 IOleObject_SetClientSite(&This
->IOleObject_iface
, client
);
492 IOleClientSite_Release(client
);
495 IUnknown_Release(unk
);
499 prepare_for_binding(This
, pimkName
, FALSE
);
500 hres
= set_moniker(This
, pimkName
, pibc
, NULL
, TRUE
);
504 return start_binding(This
->window
, NULL
, (BSCallback
*)This
->window
->bscallback
, pibc
);
507 static HRESULT WINAPI
PersistMoniker_Save(IPersistMoniker
*iface
, IMoniker
*pimkName
,
508 LPBC pbc
, BOOL fRemember
)
510 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
511 FIXME("(%p)->(%p %p %x)\n", This
, pimkName
, pbc
, fRemember
);
515 static HRESULT WINAPI
PersistMoniker_SaveCompleted(IPersistMoniker
*iface
, IMoniker
*pimkName
, LPBC pibc
)
517 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
518 FIXME("(%p)->(%p %p)\n", This
, pimkName
, pibc
);
522 static HRESULT WINAPI
PersistMoniker_GetCurMoniker(IPersistMoniker
*iface
, IMoniker
**ppimkName
)
524 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
526 TRACE("(%p)->(%p)\n", This
, ppimkName
);
528 if(!This
->window
|| !This
->window
->mon
)
531 IMoniker_AddRef(This
->window
->mon
);
532 *ppimkName
= This
->window
->mon
;
536 static const IPersistMonikerVtbl PersistMonikerVtbl
= {
537 PersistMoniker_QueryInterface
,
538 PersistMoniker_AddRef
,
539 PersistMoniker_Release
,
540 PersistMoniker_GetClassID
,
541 PersistMoniker_IsDirty
,
544 PersistMoniker_SaveCompleted
,
545 PersistMoniker_GetCurMoniker
548 /**********************************************************
549 * IMonikerProp implementation
552 static inline HTMLDocument
*impl_from_IMonikerProp(IMonikerProp
*iface
)
554 return CONTAINING_RECORD(iface
, HTMLDocument
, IMonikerProp_iface
);
557 static HRESULT WINAPI
MonikerProp_QueryInterface(IMonikerProp
*iface
, REFIID riid
, void **ppv
)
559 HTMLDocument
*This
= impl_from_IMonikerProp(iface
);
560 return htmldoc_query_interface(This
, riid
, ppv
);
563 static ULONG WINAPI
MonikerProp_AddRef(IMonikerProp
*iface
)
565 HTMLDocument
*This
= impl_from_IMonikerProp(iface
);
566 return htmldoc_addref(This
);
569 static ULONG WINAPI
MonikerProp_Release(IMonikerProp
*iface
)
571 HTMLDocument
*This
= impl_from_IMonikerProp(iface
);
572 return htmldoc_release(This
);
575 static HRESULT WINAPI
MonikerProp_PutProperty(IMonikerProp
*iface
, MONIKERPROPERTY mkp
, LPCWSTR val
)
577 HTMLDocument
*This
= impl_from_IMonikerProp(iface
);
579 TRACE("(%p)->(%d %s)\n", This
, mkp
, debugstr_w(val
));
583 heap_free(This
->doc_obj
->mime
);
584 This
->doc_obj
->mime
= heap_strdupW(val
);
591 FIXME("mkp %d\n", mkp
);
598 static const IMonikerPropVtbl MonikerPropVtbl
= {
599 MonikerProp_QueryInterface
,
602 MonikerProp_PutProperty
605 /**********************************************************
606 * IPersistFile implementation
609 static inline HTMLDocument
*impl_from_IPersistFile(IPersistFile
*iface
)
611 return CONTAINING_RECORD(iface
, HTMLDocument
, IPersistFile_iface
);
614 static HRESULT WINAPI
PersistFile_QueryInterface(IPersistFile
*iface
, REFIID riid
, void **ppv
)
616 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
617 return htmldoc_query_interface(This
, riid
, ppv
);
620 static ULONG WINAPI
PersistFile_AddRef(IPersistFile
*iface
)
622 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
623 return htmldoc_addref(This
);
626 static ULONG WINAPI
PersistFile_Release(IPersistFile
*iface
)
628 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
629 return htmldoc_release(This
);
632 static HRESULT WINAPI
PersistFile_GetClassID(IPersistFile
*iface
, CLSID
*pClassID
)
634 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
636 TRACE("(%p)->(%p)\n", This
, pClassID
);
641 *pClassID
= CLSID_HTMLDocument
;
645 static HRESULT WINAPI
PersistFile_IsDirty(IPersistFile
*iface
)
647 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
649 TRACE("(%p)\n", This
);
651 return IPersistStreamInit_IsDirty(&This
->IPersistStreamInit_iface
);
654 static HRESULT WINAPI
PersistFile_Load(IPersistFile
*iface
, LPCOLESTR pszFileName
, DWORD dwMode
)
656 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
657 FIXME("(%p)->(%s %08x)\n", This
, debugstr_w(pszFileName
), dwMode
);
661 static HRESULT WINAPI
PersistFile_Save(IPersistFile
*iface
, LPCOLESTR pszFileName
, BOOL fRemember
)
663 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
669 TRACE("(%p)->(%s %x)\n", This
, debugstr_w(pszFileName
), fRemember
);
671 file
= CreateFileW(pszFileName
, GENERIC_WRITE
, 0, NULL
, CREATE_ALWAYS
,
672 FILE_ATTRIBUTE_NORMAL
, NULL
);
673 if(file
== INVALID_HANDLE_VALUE
) {
674 WARN("Could not create file: %u\n", GetLastError());
678 hres
= get_doc_string(This
->doc_node
, &str
);
680 WriteFile(file
, str
, strlen(str
), &written
, NULL
);
686 static HRESULT WINAPI
PersistFile_SaveCompleted(IPersistFile
*iface
, LPCOLESTR pszFileName
)
688 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
689 FIXME("(%p)->(%s)\n", This
, debugstr_w(pszFileName
));
693 static HRESULT WINAPI
PersistFile_GetCurFile(IPersistFile
*iface
, LPOLESTR
*pszFileName
)
695 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
696 FIXME("(%p)->(%p)\n", This
, pszFileName
);
700 static const IPersistFileVtbl PersistFileVtbl
= {
701 PersistFile_QueryInterface
,
704 PersistFile_GetClassID
,
708 PersistFile_SaveCompleted
,
709 PersistFile_GetCurFile
712 static inline HTMLDocument
*impl_from_IPersistStreamInit(IPersistStreamInit
*iface
)
714 return CONTAINING_RECORD(iface
, HTMLDocument
, IPersistStreamInit_iface
);
717 static HRESULT WINAPI
PersistStreamInit_QueryInterface(IPersistStreamInit
*iface
,
718 REFIID riid
, void **ppv
)
720 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
721 return htmldoc_query_interface(This
, riid
, ppv
);
724 static ULONG WINAPI
PersistStreamInit_AddRef(IPersistStreamInit
*iface
)
726 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
727 return htmldoc_addref(This
);
730 static ULONG WINAPI
PersistStreamInit_Release(IPersistStreamInit
*iface
)
732 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
733 return htmldoc_release(This
);
736 static HRESULT WINAPI
PersistStreamInit_GetClassID(IPersistStreamInit
*iface
, CLSID
*pClassID
)
738 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
739 return IPersist_GetClassID(&This
->IPersistFile_iface
, pClassID
);
742 static HRESULT WINAPI
PersistStreamInit_IsDirty(IPersistStreamInit
*iface
)
744 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
746 TRACE("(%p)\n", This
);
748 if(This
->doc_obj
->usermode
== EDITMODE
)
749 return editor_is_dirty(This
);
754 static HRESULT WINAPI
PersistStreamInit_Load(IPersistStreamInit
*iface
, LPSTREAM pStm
)
756 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
760 static const WCHAR about_blankW
[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
762 TRACE("(%p)->(%p)\n", This
, pStm
);
764 hres
= CreateURLMoniker(NULL
, about_blankW
, &mon
);
766 WARN("CreateURLMoniker failed: %08x\n", hres
);
770 prepare_for_binding(This
, mon
, FALSE
);
771 hres
= set_moniker(This
, mon
, NULL
, NULL
, TRUE
);
772 IMoniker_Release(mon
);
776 return channelbsc_load_stream(This
->window
->bscallback
, pStm
);
779 static HRESULT WINAPI
PersistStreamInit_Save(IPersistStreamInit
*iface
, LPSTREAM pStm
,
782 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
787 TRACE("(%p)->(%p %x)\n", This
, pStm
, fClearDirty
);
789 hres
= get_doc_string(This
->doc_node
, &str
);
793 hres
= IStream_Write(pStm
, str
, strlen(str
), &written
);
795 FIXME("Write failed: %08x\n", hres
);
800 set_dirty(This
, VARIANT_FALSE
);
805 static HRESULT WINAPI
PersistStreamInit_GetSizeMax(IPersistStreamInit
*iface
,
806 ULARGE_INTEGER
*pcbSize
)
808 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
809 FIXME("(%p)->(%p)\n", This
, pcbSize
);
813 static HRESULT WINAPI
PersistStreamInit_InitNew(IPersistStreamInit
*iface
)
815 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
819 static const WCHAR about_blankW
[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
821 TRACE("(%p)\n", This
);
823 hres
= CreateURLMoniker(NULL
, about_blankW
, &mon
);
825 WARN("CreateURLMoniker failed: %08x\n", hres
);
829 prepare_for_binding(This
, mon
, FALSE
);
830 hres
= set_moniker(This
, mon
, NULL
, NULL
, FALSE
);
831 IMoniker_Release(mon
);
835 return channelbsc_load_stream(This
->window
->bscallback
, NULL
);
838 static const IPersistStreamInitVtbl PersistStreamInitVtbl
= {
839 PersistStreamInit_QueryInterface
,
840 PersistStreamInit_AddRef
,
841 PersistStreamInit_Release
,
842 PersistStreamInit_GetClassID
,
843 PersistStreamInit_IsDirty
,
844 PersistStreamInit_Load
,
845 PersistStreamInit_Save
,
846 PersistStreamInit_GetSizeMax
,
847 PersistStreamInit_InitNew
850 /**********************************************************
851 * IPersistHistory implementation
854 static inline HTMLDocument
*impl_from_IPersistHistory(IPersistHistory
*iface
)
856 return CONTAINING_RECORD(iface
, HTMLDocument
, IPersistHistory_iface
);
859 static HRESULT WINAPI
PersistHistory_QueryInterface(IPersistHistory
*iface
, REFIID riid
, void **ppv
)
861 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
862 return htmldoc_query_interface(This
, riid
, ppv
);
865 static ULONG WINAPI
PersistHistory_AddRef(IPersistHistory
*iface
)
867 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
868 return htmldoc_addref(This
);
871 static ULONG WINAPI
PersistHistory_Release(IPersistHistory
*iface
)
873 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
874 return htmldoc_release(This
);
877 static HRESULT WINAPI
PersistHistory_GetClassID(IPersistHistory
*iface
, CLSID
*pClassID
)
879 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
880 return IPersist_GetClassID(&This
->IPersistFile_iface
, pClassID
);
883 static HRESULT WINAPI
PersistHistory_LoadHistory(IPersistHistory
*iface
, IStream
*pStream
, IBindCtx
*pbc
)
885 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
886 FIXME("(%p)->(%p %p)\n", This
, pStream
, pbc
);
890 static HRESULT WINAPI
PersistHistory_SaveHistory(IPersistHistory
*iface
, IStream
*pStream
)
892 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
893 FIXME("(%p)->(%p)\n", This
, pStream
);
897 static HRESULT WINAPI
PersistHistory_SetPositionCookie(IPersistHistory
*iface
, DWORD dwPositioncookie
)
899 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
900 FIXME("(%p)->(%x)\n", This
, dwPositioncookie
);
904 static HRESULT WINAPI
PersistHistory_GetPositionCookie(IPersistHistory
*iface
, DWORD
*pdwPositioncookie
)
906 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
907 FIXME("(%p)->(%p)\n", This
, pdwPositioncookie
);
911 static const IPersistHistoryVtbl PersistHistoryVtbl
= {
912 PersistHistory_QueryInterface
,
913 PersistHistory_AddRef
,
914 PersistHistory_Release
,
915 PersistHistory_GetClassID
,
916 PersistHistory_LoadHistory
,
917 PersistHistory_SaveHistory
,
918 PersistHistory_SetPositionCookie
,
919 PersistHistory_GetPositionCookie
922 void HTMLDocument_Persist_Init(HTMLDocument
*This
)
924 This
->IPersistMoniker_iface
.lpVtbl
= &PersistMonikerVtbl
;
925 This
->IPersistFile_iface
.lpVtbl
= &PersistFileVtbl
;
926 This
->IMonikerProp_iface
.lpVtbl
= &MonikerPropVtbl
;
927 This
->IPersistStreamInit_iface
.lpVtbl
= &PersistStreamInitVtbl
;
928 This
->IPersistHistory_iface
.lpVtbl
= &PersistHistoryVtbl
;