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
34 #define NO_SHLWAPI_REG
37 #include "wine/debug.h"
39 #include "mshtml_private.h"
40 #include "htmlscript.h"
41 #include "htmlevent.h"
45 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
47 /* Undocumented notification, see tests */
48 #define CMDID_EXPLORER_UPDATEHISTORY 38
50 static const WCHAR about_blankW
[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
57 } download_proc_task_t
;
59 static BOOL
use_gecko_script(HTMLOuterWindow
*window
)
64 hres
= IInternetSecurityManager_MapUrlToZone(window
->secmgr
, window
->url
, &zone
, 0);
66 WARN("Could not map %s to zone: %08x\n", debugstr_w(window
->url
), hres
);
70 TRACE("zone %d\n", zone
);
71 return zone
== URLZONE_UNTRUSTED
;
74 static void notify_travellog_update(HTMLDocumentObj
*doc
)
76 IOleCommandTarget
*cmdtrg
;
82 hres
= IOleClientSite_QueryInterface(doc
->client
, &IID_IOleCommandTarget
, (void**)&cmdtrg
);
89 IOleCommandTarget_Exec(cmdtrg
, &CGID_Explorer
, CMDID_EXPLORER_UPDATEHISTORY
, 0, &vin
, NULL
);
90 IOleCommandTarget_Release(cmdtrg
);
94 void set_current_uri(HTMLOuterWindow
*window
, IUri
*uri
)
97 IUri_Release(window
->uri
);
101 if(window
->uri_nofrag
) {
102 IUri_Release(window
->uri_nofrag
);
103 window
->uri_nofrag
= NULL
;
106 SysFreeString(window
->url
);
115 window
->uri_nofrag
= get_uri_nofrag(uri
);
116 if(!window
->uri_nofrag
) {
117 FIXME("get_uri_nofrag failed\n");
119 window
->uri_nofrag
= uri
;
122 IUri_GetDisplayUri(uri
, &window
->url
);
125 void set_current_mon(HTMLOuterWindow
*This
, IMoniker
*mon
, DWORD flags
)
127 IUriContainer
*uri_container
;
132 if(This
->doc_obj
&& !(flags
& (BINDING_REPLACE
|BINDING_REFRESH
))) {
133 if(This
== This
->doc_obj
->basedoc
.window
)
134 notify_travellog_update(This
->doc_obj
);
136 TRACE("Skipping travellog update for frame navigation.\n");
138 IMoniker_Release(This
->mon
);
142 This
->load_flags
= flags
;
146 IMoniker_AddRef(mon
);
149 hres
= IMoniker_QueryInterface(mon
, &IID_IUriContainer
, (void**)&uri_container
);
150 if(SUCCEEDED(hres
)) {
151 hres
= IUriContainer_GetIUri(uri_container
, &uri
);
152 IUriContainer_Release(uri_container
);
154 WARN("GetIUri failed: %08x\n", hres
);
162 hres
= IMoniker_GetDisplayName(mon
, NULL
, NULL
, &url
);
163 if(SUCCEEDED(hres
)) {
164 hres
= create_uri(url
, 0, &uri
);
166 WARN("CreateUri failed: %08x\n", hres
);
167 set_current_uri(This
, NULL
);
168 This
->url
= SysAllocString(url
);
174 WARN("GetDisplayName failed: %08x\n", hres
);
178 set_current_uri(This
, uri
);
181 set_script_mode(This
, use_gecko_script(This
) ? SCRIPTMODE_GECKO
: SCRIPTMODE_ACTIVESCRIPT
);
184 HRESULT
create_uri(const WCHAR
*uri_str
, DWORD flags
, IUri
**uri
)
186 return CreateUri(uri_str
, flags
| Uri_CREATE_ALLOW_IMPLICIT_FILE_SCHEME
, 0, uri
);
189 HRESULT
create_relative_uri(HTMLOuterWindow
*window
, const WCHAR
*rel_uri
, IUri
**uri
)
192 ? CoInternetCombineUrlEx(window
->uri
, rel_uri
, URL_ESCAPE_SPACES_ONLY
|URL_DONT_ESCAPE_EXTRA_INFO
, uri
, 0)
193 : create_uri(rel_uri
, 0, uri
);
196 void set_download_state(HTMLDocumentObj
*doc
, int state
)
199 IOleCommandTarget
*olecmd
;
202 hres
= IOleClientSite_QueryInterface(doc
->client
, &IID_IOleCommandTarget
, (void**)&olecmd
);
203 if(SUCCEEDED(hres
)) {
209 IOleCommandTarget_Exec(olecmd
, NULL
, OLECMDID_SETDOWNLOADSTATE
,
210 OLECMDEXECOPT_DONTPROMPTUSER
, &var
, NULL
);
211 IOleCommandTarget_Release(olecmd
);
215 doc
->download_state
= state
;
218 static void set_progress_proc(task_t
*_task
)
220 docobj_task_t
*task
= (docobj_task_t
*)_task
;
221 IOleCommandTarget
*olecmd
= NULL
;
222 HTMLDocumentObj
*doc
= task
->doc
;
225 TRACE("(%p)\n", doc
);
228 IOleClientSite_QueryInterface(doc
->client
, &IID_IOleCommandTarget
, (void**)&olecmd
);
231 VARIANT progress_max
, progress
;
233 V_VT(&progress_max
) = VT_I4
;
234 V_I4(&progress_max
) = 0; /* FIXME */
235 IOleCommandTarget_Exec(olecmd
, NULL
, OLECMDID_SETPROGRESSMAX
, OLECMDEXECOPT_DONTPROMPTUSER
,
236 &progress_max
, NULL
);
238 V_VT(&progress
) = VT_I4
;
239 V_I4(&progress
) = 0; /* FIXME */
240 IOleCommandTarget_Exec(olecmd
, NULL
, OLECMDID_SETPROGRESSPOS
, OLECMDEXECOPT_DONTPROMPTUSER
,
242 IOleCommandTarget_Release(olecmd
);
245 if(doc
->usermode
== EDITMODE
&& doc
->hostui
) {
246 DOCHOSTUIINFO hostinfo
;
248 memset(&hostinfo
, 0, sizeof(DOCHOSTUIINFO
));
249 hostinfo
.cbSize
= sizeof(DOCHOSTUIINFO
);
250 hres
= IDocHostUIHandler_GetHostInfo(doc
->hostui
, &hostinfo
);
252 /* FIXME: use hostinfo */
253 TRACE("hostinfo = {%u %08x %08x %s %s}\n",
254 hostinfo
.cbSize
, hostinfo
.dwFlags
, hostinfo
.dwDoubleClick
,
255 debugstr_w(hostinfo
.pchHostCss
), debugstr_w(hostinfo
.pchHostNS
));
259 static void set_downloading_proc(task_t
*_task
)
261 download_proc_task_t
*task
= (download_proc_task_t
*)_task
;
262 HTMLDocumentObj
*doc
= task
->doc
;
265 TRACE("(%p)\n", doc
);
267 set_statustext(doc
, IDS_STATUS_DOWNLOADINGFROM
, task
->url
);
269 if(task
->set_download
)
270 set_download_state(doc
, 1);
276 IAdviseSink_OnViewChange(doc
->view_sink
, DVASPECT_CONTENT
, -1);
279 IDropTarget
*drop_target
= NULL
;
281 hres
= IDocHostUIHandler_GetDropTarget(doc
->hostui
, NULL
/* FIXME */, &drop_target
);
282 if(SUCCEEDED(hres
) && drop_target
) {
283 FIXME("Use IDropTarget\n");
284 IDropTarget_Release(drop_target
);
289 static void set_downloading_task_destr(task_t
*_task
)
291 download_proc_task_t
*task
= (download_proc_task_t
*)_task
;
293 CoTaskMemFree(task
->url
);
297 void prepare_for_binding(HTMLDocument
*This
, IMoniker
*mon
, DWORD flags
)
301 if(This
->doc_obj
->client
) {
302 VARIANT silent
, offline
;
304 hres
= get_client_disp_property(This
->doc_obj
->client
, DISPID_AMBIENT_SILENT
, &silent
);
305 if(SUCCEEDED(hres
)) {
306 if(V_VT(&silent
) != VT_BOOL
)
307 WARN("silent = %s\n", debugstr_variant(&silent
));
308 else if(V_BOOL(&silent
))
309 FIXME("silent == true\n");
312 hres
= get_client_disp_property(This
->doc_obj
->client
,
313 DISPID_AMBIENT_OFFLINEIFNOTCONNECTED
, &offline
);
314 if(SUCCEEDED(hres
)) {
315 if(V_VT(&offline
) != VT_BOOL
)
316 WARN("offline = %s\n", debugstr_variant(&offline
));
317 else if(V_BOOL(&offline
))
318 FIXME("offline == true\n");
322 if(This
->window
->mon
) {
323 update_doc(This
, UPDATE_TITLE
|UPDATE_UI
);
325 update_doc(This
, UPDATE_TITLE
);
326 set_current_mon(This
->window
, mon
, flags
);
329 if(This
->doc_obj
->client
) {
330 IOleCommandTarget
*cmdtrg
= NULL
;
332 hres
= IOleClientSite_QueryInterface(This
->doc_obj
->client
, &IID_IOleCommandTarget
,
334 if(SUCCEEDED(hres
)) {
337 if(flags
& BINDING_NAVIGATED
) {
338 V_VT(&var
) = VT_UNKNOWN
;
339 V_UNKNOWN(&var
) = (IUnknown
*)&This
->window
->base
.IHTMLWindow2_iface
;
340 V_VT(&out
) = VT_EMPTY
;
341 hres
= IOleCommandTarget_Exec(cmdtrg
, &CGID_ShellDocView
, 63, 0, &var
, &out
);
344 }else if(!(flags
& BINDING_FROMHIST
)) {
347 IOleCommandTarget_Exec(cmdtrg
, &CGID_ShellDocView
, 37, 0, &var
, NULL
);
350 IOleCommandTarget_Release(cmdtrg
);
355 HRESULT
set_moniker(HTMLOuterWindow
*window
, IMoniker
*mon
, IUri
*nav_uri
, IBindCtx
*pibc
, nsChannelBSC
*async_bsc
,
358 download_proc_task_t
*download_task
;
359 HTMLDocumentObj
*doc_obj
= NULL
;
360 nsChannelBSC
*bscallback
;
366 if(window
->doc_obj
&& window
->doc_obj
->basedoc
.window
== window
)
367 doc_obj
= window
->doc_obj
;
369 hres
= IMoniker_GetDisplayName(mon
, pibc
, NULL
, &url
);
371 WARN("GetDiaplayName failed: %08x\n", hres
);
378 hres
= create_uri(url
, 0, &uri
);
385 TRACE("got url: %s\n", debugstr_w(url
));
387 set_ready_state(window
, READYSTATE_LOADING
);
389 hres
= create_doc_uri(window
, uri
, &nsuri
);
392 if(SUCCEEDED(hres
)) {
394 bscallback
= async_bsc
;
396 hres
= create_channelbsc(mon
, NULL
, NULL
, 0, TRUE
, &bscallback
);
399 if(SUCCEEDED(hres
)) {
400 if(window
->base
.inner_window
->doc
)
401 remove_target_tasks(window
->base
.inner_window
->task_magic
);
402 abort_window_bindings(window
->base
.inner_window
);
404 hres
= load_nsuri(window
, nsuri
, NULL
, bscallback
, LOAD_FLAGS_BYPASS_CACHE
);
405 nsISupports_Release((nsISupports
*)nsuri
); /* FIXME */
406 if(SUCCEEDED(hres
)) {
407 hres
= create_pending_window(window
, bscallback
);
408 TRACE("pending window for %p %p %p\n", window
, bscallback
, window
->pending_window
);
410 if(bscallback
!= async_bsc
)
411 IBindStatusCallback_Release(&bscallback
->bsc
.IBindStatusCallback_iface
);
420 HTMLDocument_LockContainer(doc_obj
, TRUE
);
425 task
= heap_alloc(sizeof(docobj_task_t
));
427 hres
= push_task(&task
->header
, set_progress_proc
, NULL
, doc_obj
->basedoc
.task_magic
);
434 download_task
= heap_alloc(sizeof(download_proc_task_t
));
435 download_task
->doc
= doc_obj
;
436 download_task
->set_download
= set_download
;
437 download_task
->url
= url
;
438 return push_task(&download_task
->header
, set_downloading_proc
, set_downloading_task_destr
, doc_obj
->basedoc
.task_magic
);
444 static void notif_readystate(HTMLOuterWindow
*window
)
446 window
->readystate_pending
= FALSE
;
448 if(window
->doc_obj
&& window
->doc_obj
->basedoc
.window
== window
)
449 call_property_onchanged(&window
->doc_obj
->basedoc
.cp_container
, DISPID_READYSTATE
);
451 fire_event(window
->base
.inner_window
->doc
, EVENTID_READYSTATECHANGE
, FALSE
,
452 &window
->base
.inner_window
->doc
->node
, NULL
, NULL
);
454 if(window
->frame_element
)
455 fire_event(window
->frame_element
->element
.node
.doc
, EVENTID_READYSTATECHANGE
,
456 TRUE
, &window
->frame_element
->element
.node
, NULL
, NULL
);
461 HTMLOuterWindow
*window
;
464 static void notif_readystate_proc(task_t
*_task
)
466 readystate_task_t
*task
= (readystate_task_t
*)_task
;
467 notif_readystate(task
->window
);
470 static void notif_readystate_destr(task_t
*_task
)
472 readystate_task_t
*task
= (readystate_task_t
*)_task
;
473 IHTMLWindow2_Release(&task
->window
->base
.IHTMLWindow2_iface
);
476 void set_ready_state(HTMLOuterWindow
*window
, READYSTATE readystate
)
478 READYSTATE prev_state
= window
->readystate
;
480 window
->readystate
= readystate
;
482 if(window
->readystate_locked
) {
483 readystate_task_t
*task
;
486 if(window
->readystate_pending
|| prev_state
== readystate
)
489 task
= heap_alloc(sizeof(*task
));
493 IHTMLWindow2_AddRef(&window
->base
.IHTMLWindow2_iface
);
494 task
->window
= window
;
496 hres
= push_task(&task
->header
, notif_readystate_proc
, notif_readystate_destr
, window
->task_magic
);
498 window
->readystate_pending
= TRUE
;
502 notif_readystate(window
);
505 static HRESULT
get_doc_string(HTMLDocumentNode
*This
, char **str
)
514 WARN("NULL nsdoc\n");
518 nsres
= nsIDOMHTMLDocument_QueryInterface(This
->nsdoc
, &IID_nsIDOMNode
, (void**)&nsnode
);
519 if(NS_FAILED(nsres
)) {
520 ERR("Could not get nsIDOMNode failed: %08x\n", nsres
);
524 nsAString_Init(&nsstr
, NULL
);
525 hres
= nsnode_to_nsstring(nsnode
, &nsstr
);
526 nsIDOMNode_Release(nsnode
);
528 nsAString_Finish(&nsstr
);
532 nsAString_GetData(&nsstr
, &strw
);
533 TRACE("%s\n", debugstr_w(strw
));
535 *str
= heap_strdupWtoA(strw
);
537 nsAString_Finish(&nsstr
);
540 return E_OUTOFMEMORY
;
545 /**********************************************************
546 * IPersistMoniker implementation
549 static inline HTMLDocument
*impl_from_IPersistMoniker(IPersistMoniker
*iface
)
551 return CONTAINING_RECORD(iface
, HTMLDocument
, IPersistMoniker_iface
);
554 static HRESULT WINAPI
PersistMoniker_QueryInterface(IPersistMoniker
*iface
, REFIID riid
, void **ppv
)
556 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
557 return htmldoc_query_interface(This
, riid
, ppv
);
560 static ULONG WINAPI
PersistMoniker_AddRef(IPersistMoniker
*iface
)
562 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
563 return htmldoc_addref(This
);
566 static ULONG WINAPI
PersistMoniker_Release(IPersistMoniker
*iface
)
568 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
569 return htmldoc_release(This
);
572 static HRESULT WINAPI
PersistMoniker_GetClassID(IPersistMoniker
*iface
, CLSID
*pClassID
)
574 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
575 return IPersistFile_GetClassID(&This
->IPersistFile_iface
, pClassID
);
578 static HRESULT WINAPI
PersistMoniker_IsDirty(IPersistMoniker
*iface
)
580 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
582 TRACE("(%p)\n", This
);
584 return IPersistStreamInit_IsDirty(&This
->IPersistStreamInit_iface
);
587 static HRESULT WINAPI
PersistMoniker_Load(IPersistMoniker
*iface
, BOOL fFullyAvailable
,
588 IMoniker
*pimkName
, LPBC pibc
, DWORD grfMode
)
590 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
594 TRACE("(%p)->(%x %p %p %08x)\n", This
, fFullyAvailable
, pimkName
, pibc
, grfMode
);
597 IUnknown
*unk
= NULL
;
601 * "__PrecreatedObject"
602 * "BIND_CONTEXT_PARAM"
603 * "__HTMLLOADOPTIONS"
606 * "_ITransData_Object_"
610 hres
= IBindCtx_GetObjectParam(pibc
, (LPOLESTR
)SZ_HTML_CLIENTSITE_OBJECTPARAM
, &unk
);
611 if(SUCCEEDED(hres
) && unk
) {
612 IOleClientSite
*client
= NULL
;
614 hres
= IUnknown_QueryInterface(unk
, &IID_IOleClientSite
, (void**)&client
);
615 if(SUCCEEDED(hres
)) {
616 TRACE("Got client site %p\n", client
);
617 IOleObject_SetClientSite(&This
->IOleObject_iface
, client
);
618 IOleClientSite_Release(client
);
621 IUnknown_Release(unk
);
625 if(This
->doc_obj
->is_mhtml
) {
628 hres
= MimeOleObjectFromMoniker(0, pimkName
, pibc
, &IID_IUnknown
, (void**)&unk
, &mon
);
631 IUnknown_Release(unk
);
634 IMoniker_AddRef(mon
= pimkName
);
637 prepare_for_binding(This
, mon
, FALSE
);
638 call_docview_84(This
->doc_obj
);
639 hres
= set_moniker(This
->window
, mon
, NULL
, pibc
, NULL
, TRUE
);
640 IMoniker_Release(mon
);
644 return start_binding(This
->window
->pending_window
, (BSCallback
*)This
->window
->pending_window
->bscallback
, pibc
);
647 static HRESULT WINAPI
PersistMoniker_Save(IPersistMoniker
*iface
, IMoniker
*pimkName
,
648 LPBC pbc
, BOOL fRemember
)
650 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
651 FIXME("(%p)->(%p %p %x)\n", This
, pimkName
, pbc
, fRemember
);
655 static HRESULT WINAPI
PersistMoniker_SaveCompleted(IPersistMoniker
*iface
, IMoniker
*pimkName
, LPBC pibc
)
657 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
658 FIXME("(%p)->(%p %p)\n", This
, pimkName
, pibc
);
662 static HRESULT WINAPI
PersistMoniker_GetCurMoniker(IPersistMoniker
*iface
, IMoniker
**ppimkName
)
664 HTMLDocument
*This
= impl_from_IPersistMoniker(iface
);
666 TRACE("(%p)->(%p)\n", This
, ppimkName
);
668 if(!This
->window
|| !This
->window
->mon
)
671 IMoniker_AddRef(This
->window
->mon
);
672 *ppimkName
= This
->window
->mon
;
676 static const IPersistMonikerVtbl PersistMonikerVtbl
= {
677 PersistMoniker_QueryInterface
,
678 PersistMoniker_AddRef
,
679 PersistMoniker_Release
,
680 PersistMoniker_GetClassID
,
681 PersistMoniker_IsDirty
,
684 PersistMoniker_SaveCompleted
,
685 PersistMoniker_GetCurMoniker
688 /**********************************************************
689 * IMonikerProp implementation
692 static inline HTMLDocument
*impl_from_IMonikerProp(IMonikerProp
*iface
)
694 return CONTAINING_RECORD(iface
, HTMLDocument
, IMonikerProp_iface
);
697 static HRESULT WINAPI
MonikerProp_QueryInterface(IMonikerProp
*iface
, REFIID riid
, void **ppv
)
699 HTMLDocument
*This
= impl_from_IMonikerProp(iface
);
700 return htmldoc_query_interface(This
, riid
, ppv
);
703 static ULONG WINAPI
MonikerProp_AddRef(IMonikerProp
*iface
)
705 HTMLDocument
*This
= impl_from_IMonikerProp(iface
);
706 return htmldoc_addref(This
);
709 static ULONG WINAPI
MonikerProp_Release(IMonikerProp
*iface
)
711 HTMLDocument
*This
= impl_from_IMonikerProp(iface
);
712 return htmldoc_release(This
);
715 static HRESULT WINAPI
MonikerProp_PutProperty(IMonikerProp
*iface
, MONIKERPROPERTY mkp
, LPCWSTR val
)
717 HTMLDocument
*This
= impl_from_IMonikerProp(iface
);
719 TRACE("(%p)->(%d %s)\n", This
, mkp
, debugstr_w(val
));
723 heap_free(This
->doc_obj
->mime
);
724 This
->doc_obj
->mime
= heap_strdupW(val
);
731 FIXME("mkp %d\n", mkp
);
738 static const IMonikerPropVtbl MonikerPropVtbl
= {
739 MonikerProp_QueryInterface
,
742 MonikerProp_PutProperty
745 /**********************************************************
746 * IPersistFile implementation
749 static inline HTMLDocument
*impl_from_IPersistFile(IPersistFile
*iface
)
751 return CONTAINING_RECORD(iface
, HTMLDocument
, IPersistFile_iface
);
754 static HRESULT WINAPI
PersistFile_QueryInterface(IPersistFile
*iface
, REFIID riid
, void **ppv
)
756 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
757 return htmldoc_query_interface(This
, riid
, ppv
);
760 static ULONG WINAPI
PersistFile_AddRef(IPersistFile
*iface
)
762 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
763 return htmldoc_addref(This
);
766 static ULONG WINAPI
PersistFile_Release(IPersistFile
*iface
)
768 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
769 return htmldoc_release(This
);
772 static HRESULT WINAPI
PersistFile_GetClassID(IPersistFile
*iface
, CLSID
*pClassID
)
774 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
776 TRACE("(%p)->(%p)\n", This
, pClassID
);
781 *pClassID
= CLSID_HTMLDocument
;
785 static HRESULT WINAPI
PersistFile_IsDirty(IPersistFile
*iface
)
787 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
789 TRACE("(%p)\n", This
);
791 return IPersistStreamInit_IsDirty(&This
->IPersistStreamInit_iface
);
794 static HRESULT WINAPI
PersistFile_Load(IPersistFile
*iface
, LPCOLESTR pszFileName
, DWORD dwMode
)
796 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
797 FIXME("(%p)->(%s %08x)\n", This
, debugstr_w(pszFileName
), dwMode
);
801 static HRESULT WINAPI
PersistFile_Save(IPersistFile
*iface
, LPCOLESTR pszFileName
, BOOL fRemember
)
803 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
809 TRACE("(%p)->(%s %x)\n", This
, debugstr_w(pszFileName
), fRemember
);
811 file
= CreateFileW(pszFileName
, GENERIC_WRITE
, 0, NULL
, CREATE_ALWAYS
,
812 FILE_ATTRIBUTE_NORMAL
, NULL
);
813 if(file
== INVALID_HANDLE_VALUE
) {
814 WARN("Could not create file: %u\n", GetLastError());
818 hres
= get_doc_string(This
->doc_node
, &str
);
820 WriteFile(file
, str
, strlen(str
), &written
, NULL
);
826 static HRESULT WINAPI
PersistFile_SaveCompleted(IPersistFile
*iface
, LPCOLESTR pszFileName
)
828 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
829 FIXME("(%p)->(%s)\n", This
, debugstr_w(pszFileName
));
833 static HRESULT WINAPI
PersistFile_GetCurFile(IPersistFile
*iface
, LPOLESTR
*pszFileName
)
835 HTMLDocument
*This
= impl_from_IPersistFile(iface
);
836 FIXME("(%p)->(%p)\n", This
, pszFileName
);
840 static const IPersistFileVtbl PersistFileVtbl
= {
841 PersistFile_QueryInterface
,
844 PersistFile_GetClassID
,
848 PersistFile_SaveCompleted
,
849 PersistFile_GetCurFile
852 static inline HTMLDocument
*impl_from_IPersistStreamInit(IPersistStreamInit
*iface
)
854 return CONTAINING_RECORD(iface
, HTMLDocument
, IPersistStreamInit_iface
);
857 static HRESULT WINAPI
PersistStreamInit_QueryInterface(IPersistStreamInit
*iface
,
858 REFIID riid
, void **ppv
)
860 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
861 return htmldoc_query_interface(This
, riid
, ppv
);
864 static ULONG WINAPI
PersistStreamInit_AddRef(IPersistStreamInit
*iface
)
866 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
867 return htmldoc_addref(This
);
870 static ULONG WINAPI
PersistStreamInit_Release(IPersistStreamInit
*iface
)
872 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
873 return htmldoc_release(This
);
876 static HRESULT WINAPI
PersistStreamInit_GetClassID(IPersistStreamInit
*iface
, CLSID
*pClassID
)
878 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
879 return IPersistFile_GetClassID(&This
->IPersistFile_iface
, pClassID
);
882 static HRESULT WINAPI
PersistStreamInit_IsDirty(IPersistStreamInit
*iface
)
884 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
886 TRACE("(%p)\n", This
);
888 if(This
->doc_obj
->usermode
== EDITMODE
)
889 return editor_is_dirty(This
);
894 static HRESULT WINAPI
PersistStreamInit_Load(IPersistStreamInit
*iface
, IStream
*pStm
)
896 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
900 TRACE("(%p)->(%p)\n", This
, pStm
);
902 hres
= CreateURLMoniker(NULL
, about_blankW
, &mon
);
904 WARN("CreateURLMoniker failed: %08x\n", hres
);
908 prepare_for_binding(This
, mon
, FALSE
);
909 hres
= set_moniker(This
->window
, mon
, NULL
, NULL
, NULL
, TRUE
);
913 hres
= channelbsc_load_stream(This
->window
->pending_window
, mon
, pStm
);
914 IMoniker_Release(mon
);
918 static HRESULT WINAPI
PersistStreamInit_Save(IPersistStreamInit
*iface
, IStream
*pStm
,
921 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
926 TRACE("(%p)->(%p %x)\n", This
, pStm
, fClearDirty
);
928 hres
= get_doc_string(This
->doc_node
, &str
);
932 hres
= IStream_Write(pStm
, str
, strlen(str
), &written
);
934 FIXME("Write failed: %08x\n", hres
);
939 set_dirty(This
, VARIANT_FALSE
);
944 static HRESULT WINAPI
PersistStreamInit_GetSizeMax(IPersistStreamInit
*iface
,
945 ULARGE_INTEGER
*pcbSize
)
947 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
948 FIXME("(%p)->(%p)\n", This
, pcbSize
);
952 static HRESULT WINAPI
PersistStreamInit_InitNew(IPersistStreamInit
*iface
)
954 HTMLDocument
*This
= impl_from_IPersistStreamInit(iface
);
958 TRACE("(%p)\n", This
);
960 hres
= CreateURLMoniker(NULL
, about_blankW
, &mon
);
962 WARN("CreateURLMoniker failed: %08x\n", hres
);
966 prepare_for_binding(This
, mon
, FALSE
);
967 hres
= set_moniker(This
->window
, mon
, NULL
, NULL
, NULL
, FALSE
);
971 hres
= channelbsc_load_stream(This
->window
->pending_window
, mon
, NULL
);
972 IMoniker_Release(mon
);
976 static const IPersistStreamInitVtbl PersistStreamInitVtbl
= {
977 PersistStreamInit_QueryInterface
,
978 PersistStreamInit_AddRef
,
979 PersistStreamInit_Release
,
980 PersistStreamInit_GetClassID
,
981 PersistStreamInit_IsDirty
,
982 PersistStreamInit_Load
,
983 PersistStreamInit_Save
,
984 PersistStreamInit_GetSizeMax
,
985 PersistStreamInit_InitNew
988 /**********************************************************
989 * IPersistHistory implementation
992 static inline HTMLDocument
*impl_from_IPersistHistory(IPersistHistory
*iface
)
994 return CONTAINING_RECORD(iface
, HTMLDocument
, IPersistHistory_iface
);
997 static HRESULT WINAPI
PersistHistory_QueryInterface(IPersistHistory
*iface
, REFIID riid
, void **ppv
)
999 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
1000 return htmldoc_query_interface(This
, riid
, ppv
);
1003 static ULONG WINAPI
PersistHistory_AddRef(IPersistHistory
*iface
)
1005 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
1006 return htmldoc_addref(This
);
1009 static ULONG WINAPI
PersistHistory_Release(IPersistHistory
*iface
)
1011 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
1012 return htmldoc_release(This
);
1015 static HRESULT WINAPI
PersistHistory_GetClassID(IPersistHistory
*iface
, CLSID
*pClassID
)
1017 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
1018 return IPersistFile_GetClassID(&This
->IPersistFile_iface
, pClassID
);
1021 static HRESULT WINAPI
PersistHistory_LoadHistory(IPersistHistory
*iface
, IStream
*pStream
, IBindCtx
*pbc
)
1023 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
1024 ULONG str_len
, read
;
1029 TRACE("(%p)->(%p %p)\n", This
, pStream
, pbc
);
1032 FIXME("No current window\n");
1033 return E_UNEXPECTED
;
1037 FIXME("pbc not supported\n");
1039 if(This
->doc_obj
->client
) {
1040 IOleCommandTarget
*cmdtrg
= NULL
;
1042 hres
= IOleClientSite_QueryInterface(This
->doc_obj
->client
, &IID_IOleCommandTarget
,
1044 if(SUCCEEDED(hres
)) {
1045 IOleCommandTarget_Exec(cmdtrg
, &CGID_ShellDocView
, 138, 0, NULL
, NULL
);
1046 IOleCommandTarget_Release(cmdtrg
);
1050 hres
= IStream_Read(pStream
, &str_len
, sizeof(str_len
), &read
);
1053 if(read
!= sizeof(str_len
))
1056 uri_str
= heap_alloc((str_len
+1)*sizeof(WCHAR
));
1058 return E_OUTOFMEMORY
;
1060 hres
= IStream_Read(pStream
, uri_str
, str_len
*sizeof(WCHAR
), &read
);
1061 if(SUCCEEDED(hres
) && read
!= str_len
*sizeof(WCHAR
))
1063 if(SUCCEEDED(hres
)) {
1064 uri_str
[str_len
] = 0;
1065 hres
= create_uri(uri_str
, 0, &uri
);
1071 hres
= load_uri(This
->window
, uri
, BINDING_FROMHIST
);
1076 static HRESULT WINAPI
PersistHistory_SaveHistory(IPersistHistory
*iface
, IStream
*pStream
)
1078 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
1083 TRACE("(%p)->(%p)\n", This
, pStream
);
1085 if(!This
->window
|| !This
->window
->uri
) {
1086 FIXME("No current URI\n");
1090 /* NOTE: The format we store is *not* compatible with native MSHTML. We currently
1091 * store only URI of the page (as a length followed by a string) */
1092 hres
= IUri_GetDisplayUri(This
->window
->uri
, &display_uri
);
1096 len
= SysStringLen(display_uri
);
1097 hres
= IStream_Write(pStream
, &len
, sizeof(len
), &written
);
1099 hres
= IStream_Write(pStream
, display_uri
, len
*sizeof(WCHAR
), &written
);
1100 SysFreeString(display_uri
);
1104 static HRESULT WINAPI
PersistHistory_SetPositionCookie(IPersistHistory
*iface
, DWORD dwPositioncookie
)
1106 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
1107 FIXME("(%p)->(%x)\n", This
, dwPositioncookie
);
1111 static HRESULT WINAPI
PersistHistory_GetPositionCookie(IPersistHistory
*iface
, DWORD
*pdwPositioncookie
)
1113 HTMLDocument
*This
= impl_from_IPersistHistory(iface
);
1114 FIXME("(%p)->(%p)\n", This
, pdwPositioncookie
);
1118 static const IPersistHistoryVtbl PersistHistoryVtbl
= {
1119 PersistHistory_QueryInterface
,
1120 PersistHistory_AddRef
,
1121 PersistHistory_Release
,
1122 PersistHistory_GetClassID
,
1123 PersistHistory_LoadHistory
,
1124 PersistHistory_SaveHistory
,
1125 PersistHistory_SetPositionCookie
,
1126 PersistHistory_GetPositionCookie
1129 void HTMLDocument_Persist_Init(HTMLDocument
*This
)
1131 This
->IPersistMoniker_iface
.lpVtbl
= &PersistMonikerVtbl
;
1132 This
->IPersistFile_iface
.lpVtbl
= &PersistFileVtbl
;
1133 This
->IMonikerProp_iface
.lpVtbl
= &MonikerPropVtbl
;
1134 This
->IPersistStreamInit_iface
.lpVtbl
= &PersistStreamInitVtbl
;
1135 This
->IPersistHistory_iface
.lpVtbl
= &PersistHistoryVtbl
;