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 #include "wine/debug.h"
36 #include "wine/unicode.h"
38 #include "mshtml_private.h"
40 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
42 static nsIInputStream
*get_post_data_stream(IBindCtx
*bctx
)
44 nsIInputStream
*ret
= NULL
;
45 IBindStatusCallback
*callback
;
46 IHttpNegotiate
*http_negotiate
;
49 DWORD post_len
= 0, headers_len
= 0;
50 LPWSTR headers
= NULL
;
51 WCHAR emptystr
[] = {0};
55 static WCHAR _BSCB_Holder_
[] =
56 {'_','B','S','C','B','_','H','o','l','d','e','r','_',0};
59 /* FIXME: This should be done in URLMoniker */
63 hres
= IBindCtx_GetObjectParam(bctx
, _BSCB_Holder_
, (IUnknown
**)&callback
);
67 hres
= IBindStatusCallback_QueryInterface(callback
, &IID_IHttpNegotiate
,
68 (void**)&http_negotiate
);
70 hres
= IHttpNegotiate_BeginningTransaction(http_negotiate
, emptystr
,
71 emptystr
, 0, &headers
);
72 IHttpNegotiate_Release(http_negotiate
);
74 if(SUCCEEDED(hres
) && headers
)
75 headers_len
= WideCharToMultiByte(CP_ACP
, 0, headers
, -1, NULL
, 0, NULL
, NULL
);
78 memset(&bindinfo
, 0, sizeof(bindinfo
));
79 bindinfo
.cbSize
= sizeof(bindinfo
);
81 hres
= IBindStatusCallback_GetBindInfo(callback
, &bindf
, &bindinfo
);
83 if(SUCCEEDED(hres
) && bindinfo
.dwBindVerb
== BINDVERB_POST
)
84 post_len
= bindinfo
.cbstgmedData
;
86 if(headers_len
|| post_len
) {
87 int len
= headers_len
? headers_len
-1 : 0;
89 static const char content_length
[] = "Content-Length: %u\r\n\r\n";
91 data
= mshtml_alloc(headers_len
+post_len
+sizeof(content_length
)+8);
94 WideCharToMultiByte(CP_ACP
, 0, headers
, -1, data
, -1, NULL
, NULL
);
95 CoTaskMemFree(headers
);
99 sprintf(data
+len
, content_length
, post_len
);
102 memcpy(data
+len
, bindinfo
.stgmedData
.u
.hGlobal
, post_len
);
105 TRACE("data = %s\n", debugstr_an(data
, len
+post_len
));
107 ret
= create_nsstream(data
, len
+post_len
);
110 ReleaseBindInfo(&bindinfo
);
111 IBindStatusCallback_Release(callback
);
116 static HRESULT
set_moniker(HTMLDocument
*This
, IMoniker
*mon
, IBindCtx
*pibc
, BOOL
*bind_complete
)
118 BSCallback
*bscallback
;
125 IUnknown
*unk
= NULL
;
129 * "__PrecreatedObject"
130 * "BIND_CONTEXT_PARAM"
131 * "__HTMLLOADOPTIONS"
135 * "_ITransData_Object_"
139 IBindCtx_GetObjectParam(pibc
, (LPOLESTR
)SZ_HTML_CLIENTSITE_OBJECTPARAM
, &unk
);
141 IOleClientSite
*client
= NULL
;
143 hres
= IUnknown_QueryInterface(unk
, &IID_IOleClientSite
, (void**)&client
);
144 if(SUCCEEDED(hres
)) {
145 TRACE("Got client site %p\n", client
);
146 IOleObject_SetClientSite(OLEOBJ(This
), client
);
147 IOleClientSite_Release(client
);
150 IUnknown_Release(unk
);
154 This
->readystate
= READYSTATE_LOADING
;
155 call_property_onchanged(This
->cp_propnotif
, DISPID_READYSTATE
);
156 update_doc(This
, UPDATE_TITLE
);
158 HTMLDocument_LockContainer(This
, TRUE
);
160 hres
= IMoniker_GetDisplayName(mon
, pibc
, NULL
, &url
);
162 WARN("GetDiaplayName failed: %08x\n", hres
);
166 TRACE("got url: %s\n", debugstr_w(url
));
169 VARIANT silent
, offline
;
170 IOleCommandTarget
*cmdtrg
= NULL
;
172 hres
= get_client_disp_property(This
->client
, DISPID_AMBIENT_SILENT
, &silent
);
173 if(SUCCEEDED(hres
)) {
174 if(V_VT(&silent
) != VT_BOOL
)
175 WARN("V_VT(silent) = %d\n", V_VT(&silent
));
176 else if(V_BOOL(&silent
))
177 FIXME("silent == true\n");
180 hres
= get_client_disp_property(This
->client
,
181 DISPID_AMBIENT_OFFLINEIFNOTCONNECTED
, &offline
);
182 if(SUCCEEDED(hres
)) {
183 if(V_VT(&silent
) != VT_BOOL
)
184 WARN("V_VT(offline) = %d\n", V_VT(&silent
));
185 else if(V_BOOL(&silent
))
186 FIXME("offline == true\n");
189 hres
= IOleClientSite_QueryInterface(This
->client
, &IID_IOleCommandTarget
,
191 if(SUCCEEDED(hres
)) {
196 IOleCommandTarget_Exec(cmdtrg
, &CGID_ShellDocView
, 37, 0, &var
, NULL
);
198 IOleCommandTarget_Release(cmdtrg
);
202 bscallback
= create_bscallback(mon
);
205 task
= mshtml_alloc(sizeof(task_t
));
208 task
->task_id
= TASK_SETPROGRESS
;
214 task
= mshtml_alloc(sizeof(task_t
));
217 task
->task_id
= TASK_SETDOWNLOADSTATE
;
222 if(This
->nscontainer
) {
223 nsIInputStream
*post_data_stream
= get_post_data_stream(pibc
);
225 This
->nscontainer
->bscallback
= bscallback
;
226 nsres
= nsIWebNavigation_LoadURI(This
->nscontainer
->navigation
, url
,
227 LOAD_FLAGS_NONE
, NULL
, post_data_stream
, NULL
);
228 This
->nscontainer
->bscallback
= NULL
;
231 nsIInputStream_Release(post_data_stream
);
233 if(NS_SUCCEEDED(nsres
)) {
234 /* FIXME: don't return here (URL Moniker needs to be good enough) */
236 IBindStatusCallback_Release(STATUSCLB(bscallback
));
240 *bind_complete
= TRUE
;
242 }else if(nsres
!= WINE_NS_LOAD_FROM_MONIKER
) {
243 WARN("LoadURI failed: %08x\n", nsres
);
247 set_document_bscallback(This
, bscallback
);
248 IBindStatusCallback_Release(STATUSCLB(bscallback
));
252 *bind_complete
= FALSE
;
256 static HRESULT
get_doc_string(HTMLDocument
*This
, char **str
, DWORD
*len
)
258 nsIDOMDocument
*nsdoc
;
264 if(!This
->nscontainer
) {
265 WARN("no nscontainer, returning NULL\n");
269 nsres
= nsIWebNavigation_GetDocument(This
->nscontainer
->navigation
, &nsdoc
);
270 if(NS_FAILED(nsres
)) {
271 ERR("GetDocument failed: %08x\n", nsres
);
275 nsres
= nsIDOMDocument_QueryInterface(nsdoc
, &IID_nsIDOMNode
, (void**)&nsnode
);
276 nsIDOMDocument_Release(nsdoc
);
277 if(NS_FAILED(nsres
)) {
278 ERR("Could not get nsIDOMNode failed: %08x\n", nsres
);
282 nsAString_Init(&nsstr
, NULL
);
283 nsnode_to_nsstring(nsnode
, &nsstr
);
284 nsIDOMNode_Release(nsnode
);
286 nsAString_GetData(&nsstr
, &strw
, NULL
);
287 TRACE("%s\n", debugstr_w(strw
));
289 *len
= WideCharToMultiByte(CP_ACP
, 0, strw
, -1, NULL
, 0, NULL
, NULL
);
290 *str
= mshtml_alloc(*len
);
291 WideCharToMultiByte(CP_ACP
, 0, strw
, -1, *str
, *len
, NULL
, NULL
);
293 nsAString_Finish(&nsstr
);
299 /**********************************************************
300 * IPersistMoniker implementation
303 #define PERSISTMON_THIS(iface) DEFINE_THIS(HTMLDocument, PersistMoniker, iface)
305 static HRESULT WINAPI
PersistMoniker_QueryInterface(IPersistMoniker
*iface
, REFIID riid
,
308 HTMLDocument
*This
= PERSISTMON_THIS(iface
);
309 return IHTMLDocument2_QueryInterface(HTMLDOC(This
), riid
, ppvObject
);
312 static ULONG WINAPI
PersistMoniker_AddRef(IPersistMoniker
*iface
)
314 HTMLDocument
*This
= PERSISTMON_THIS(iface
);
315 return IHTMLDocument2_AddRef(HTMLDOC(This
));
318 static ULONG WINAPI
PersistMoniker_Release(IPersistMoniker
*iface
)
320 HTMLDocument
*This
= PERSISTMON_THIS(iface
);
321 return IHTMLDocument2_Release(HTMLDOC(This
));
324 static HRESULT WINAPI
PersistMoniker_GetClassID(IPersistMoniker
*iface
, CLSID
*pClassID
)
326 HTMLDocument
*This
= PERSISTMON_THIS(iface
);
327 return IPersist_GetClassID(PERSIST(This
), pClassID
);
330 static HRESULT WINAPI
PersistMoniker_IsDirty(IPersistMoniker
*iface
)
332 HTMLDocument
*This
= PERSISTMON_THIS(iface
);
334 TRACE("(%p)\n", This
);
336 return IPersistStreamInit_IsDirty(PERSTRINIT(This
));
339 static HRESULT WINAPI
PersistMoniker_Load(IPersistMoniker
*iface
, BOOL fFullyAvailable
,
340 IMoniker
*pimkName
, LPBC pibc
, DWORD grfMode
)
342 HTMLDocument
*This
= PERSISTMON_THIS(iface
);
343 BOOL bind_complete
= FALSE
;
346 TRACE("(%p)->(%x %p %p %08x)\n", This
, fFullyAvailable
, pimkName
, pibc
, grfMode
);
348 hres
= set_moniker(This
, pimkName
, pibc
, &bind_complete
);
353 return start_binding(This
->bscallback
);
358 static HRESULT WINAPI
PersistMoniker_Save(IPersistMoniker
*iface
, IMoniker
*pimkName
,
359 LPBC pbc
, BOOL fRemember
)
361 HTMLDocument
*This
= PERSISTMON_THIS(iface
);
362 FIXME("(%p)->(%p %p %x)\n", This
, pimkName
, pbc
, fRemember
);
366 static HRESULT WINAPI
PersistMoniker_SaveCompleted(IPersistMoniker
*iface
, IMoniker
*pimkName
, LPBC pibc
)
368 HTMLDocument
*This
= PERSISTMON_THIS(iface
);
369 FIXME("(%p)->(%p %p)\n", This
, pimkName
, pibc
);
373 static HRESULT WINAPI
PersistMoniker_GetCurMoniker(IPersistMoniker
*iface
, IMoniker
**ppimkName
)
375 HTMLDocument
*This
= PERSISTMON_THIS(iface
);
376 FIXME("(%p)->(%p)\n", This
, ppimkName
);
380 static const IPersistMonikerVtbl PersistMonikerVtbl
= {
381 PersistMoniker_QueryInterface
,
382 PersistMoniker_AddRef
,
383 PersistMoniker_Release
,
384 PersistMoniker_GetClassID
,
385 PersistMoniker_IsDirty
,
388 PersistMoniker_SaveCompleted
,
389 PersistMoniker_GetCurMoniker
392 /**********************************************************
393 * IMonikerProp implementation
396 #define MONPROP_THIS(iface) DEFINE_THIS(HTMLDocument, MonikerProp, iface)
398 static HRESULT WINAPI
MonikerProp_QueryInterface(IMonikerProp
*iface
, REFIID riid
, void **ppvObject
)
400 HTMLDocument
*This
= MONPROP_THIS(iface
);
401 return IHTMLDocument2_QueryInterface(HTMLDOC(This
), riid
, ppvObject
);
404 static ULONG WINAPI
MonikerProp_AddRef(IMonikerProp
*iface
)
406 HTMLDocument
*This
= MONPROP_THIS(iface
);
407 return IHTMLDocument2_AddRef(HTMLDOC(This
));
410 static ULONG WINAPI
MonikerProp_Release(IMonikerProp
*iface
)
412 HTMLDocument
*This
= MONPROP_THIS(iface
);
413 return IHTMLDocument_Release(HTMLDOC(This
));
416 static HRESULT WINAPI
MonikerProp_PutProperty(IMonikerProp
*iface
, MONIKERPROPERTY mkp
, LPCWSTR val
)
418 HTMLDocument
*This
= MONPROP_THIS(iface
);
419 FIXME("(%p)->(%d %s)\n", This
, mkp
, debugstr_w(val
));
423 static const IMonikerPropVtbl MonikerPropVtbl
= {
424 MonikerProp_QueryInterface
,
427 MonikerProp_PutProperty
430 /**********************************************************
431 * IPersistFile implementation
434 #define PERSISTFILE_THIS(iface) DEFINE_THIS(HTMLDocument, PersistFile, iface)
436 static HRESULT WINAPI
PersistFile_QueryInterface(IPersistFile
*iface
, REFIID riid
, void **ppvObject
)
438 HTMLDocument
*This
= PERSISTFILE_THIS(iface
);
439 return IHTMLDocument2_QueryInterface(HTMLDOC(This
), riid
, ppvObject
);
442 static ULONG WINAPI
PersistFile_AddRef(IPersistFile
*iface
)
444 HTMLDocument
*This
= PERSISTFILE_THIS(iface
);
445 return IHTMLDocument2_AddRef(HTMLDOC(This
));
448 static ULONG WINAPI
PersistFile_Release(IPersistFile
*iface
)
450 HTMLDocument
*This
= PERSISTFILE_THIS(iface
);
451 return IHTMLDocument2_Release(HTMLDOC(This
));
454 static HRESULT WINAPI
PersistFile_GetClassID(IPersistFile
*iface
, CLSID
*pClassID
)
456 HTMLDocument
*This
= PERSISTFILE_THIS(iface
);
458 TRACE("(%p)->(%p)\n", This
, pClassID
);
463 memcpy(pClassID
, &CLSID_HTMLDocument
, sizeof(CLSID
));
467 static HRESULT WINAPI
PersistFile_IsDirty(IPersistFile
*iface
)
469 HTMLDocument
*This
= PERSISTFILE_THIS(iface
);
471 TRACE("(%p)\n", This
);
473 return IPersistStreamInit_IsDirty(PERSTRINIT(This
));
476 static HRESULT WINAPI
PersistFile_Load(IPersistFile
*iface
, LPCOLESTR pszFileName
, DWORD dwMode
)
478 HTMLDocument
*This
= PERSISTFILE_THIS(iface
);
479 FIXME("(%p)->(%s %08x)\n", This
, debugstr_w(pszFileName
), dwMode
);
483 static HRESULT WINAPI
PersistFile_Save(IPersistFile
*iface
, LPCOLESTR pszFileName
, BOOL fRemember
)
485 HTMLDocument
*This
= PERSISTFILE_THIS(iface
);
487 DWORD len
, written
=0;
491 TRACE("(%p)->(%s %x)\n", This
, debugstr_w(pszFileName
), fRemember
);
493 file
= CreateFileW(pszFileName
, GENERIC_WRITE
, 0, NULL
, CREATE_ALWAYS
,
494 FILE_ATTRIBUTE_NORMAL
, NULL
);
495 if(file
== INVALID_HANDLE_VALUE
) {
496 WARN("Could not create file: %u\n", GetLastError());
500 hres
= get_doc_string(This
, &str
, &len
);
504 WriteFile(file
, str
, len
, &written
, NULL
);
509 static HRESULT WINAPI
PersistFile_SaveCompleted(IPersistFile
*iface
, LPCOLESTR pszFileName
)
511 HTMLDocument
*This
= PERSISTFILE_THIS(iface
);
512 FIXME("(%p)->(%s)\n", This
, debugstr_w(pszFileName
));
516 static HRESULT WINAPI
PersistFile_GetCurFile(IPersistFile
*iface
, LPOLESTR
*pszFileName
)
518 HTMLDocument
*This
= PERSISTFILE_THIS(iface
);
519 FIXME("(%p)->(%p)\n", This
, pszFileName
);
523 static const IPersistFileVtbl PersistFileVtbl
= {
524 PersistFile_QueryInterface
,
527 PersistFile_GetClassID
,
531 PersistFile_SaveCompleted
,
532 PersistFile_GetCurFile
535 #define PERSTRINIT_THIS(iface) DEFINE_THIS(HTMLDocument, PersistStreamInit, iface)
537 static HRESULT WINAPI
PersistStreamInit_QueryInterface(IPersistStreamInit
*iface
,
538 REFIID riid
, void **ppv
)
540 HTMLDocument
*This
= PERSTRINIT_THIS(iface
);
541 return IHTMLDocument2_QueryInterface(HTMLDOC(This
), riid
, ppv
);
544 static ULONG WINAPI
PersistStreamInit_AddRef(IPersistStreamInit
*iface
)
546 HTMLDocument
*This
= PERSTRINIT_THIS(iface
);
547 return IHTMLDocument2_AddRef(HTMLDOC(This
));
550 static ULONG WINAPI
PersistStreamInit_Release(IPersistStreamInit
*iface
)
552 HTMLDocument
*This
= PERSTRINIT_THIS(iface
);
553 return IHTMLDocument2_Release(HTMLDOC(This
));
556 static HRESULT WINAPI
PersistStreamInit_GetClassID(IPersistStreamInit
*iface
, CLSID
*pClassID
)
558 HTMLDocument
*This
= PERSTRINIT_THIS(iface
);
559 return IPersist_GetClassID(PERSIST(This
), pClassID
);
562 static HRESULT WINAPI
PersistStreamInit_IsDirty(IPersistStreamInit
*iface
)
564 HTMLDocument
*This
= PERSTRINIT_THIS(iface
);
566 TRACE("(%p)\n", This
);
568 if(This
->usermode
== EDITMODE
)
569 FIXME("Unimplemented in edit mode\n");
574 static HRESULT WINAPI
PersistStreamInit_Load(IPersistStreamInit
*iface
, LPSTREAM pStm
)
576 HTMLDocument
*This
= PERSTRINIT_THIS(iface
);
580 static const WCHAR about_blankW
[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
582 TRACE("(%p)->(%p)\n", This
, pStm
);
584 hres
= CreateURLMoniker(NULL
, about_blankW
, &mon
);
586 WARN("CreateURLMoniker failed: %08x\n", hres
);
590 hres
= set_moniker(This
, mon
, NULL
, NULL
);
591 IMoniker_Release(mon
);
595 return load_stream(This
->bscallback
, pStm
);
598 static HRESULT WINAPI
PersistStreamInit_Save(IPersistStreamInit
*iface
, LPSTREAM pStm
,
601 HTMLDocument
*This
= PERSTRINIT_THIS(iface
);
603 DWORD len
, written
=0;
606 WARN("(%p)->(%p %x) needs more work\n", This
, pStm
, fClearDirty
);
608 hres
= get_doc_string(This
, &str
, &len
);
613 hres
= IStream_Write(pStm
, str
, len
, &written
);
615 FIXME("Write failed: %08x\n", hres
);
621 static HRESULT WINAPI
PersistStreamInit_GetSizeMax(IPersistStreamInit
*iface
,
622 ULARGE_INTEGER
*pcbSize
)
624 HTMLDocument
*This
= PERSTRINIT_THIS(iface
);
625 FIXME("(%p)->(%p)\n", This
, pcbSize
);
629 static HRESULT WINAPI
PersistStreamInit_InitNew(IPersistStreamInit
*iface
)
631 HTMLDocument
*This
= PERSTRINIT_THIS(iface
);
632 FIXME("(%p)\n", This
);
636 #undef PERSTRINIT_THIS
638 static const IPersistStreamInitVtbl PersistStreamInitVtbl
= {
639 PersistStreamInit_QueryInterface
,
640 PersistStreamInit_AddRef
,
641 PersistStreamInit_Release
,
642 PersistStreamInit_GetClassID
,
643 PersistStreamInit_IsDirty
,
644 PersistStreamInit_Load
,
645 PersistStreamInit_Save
,
646 PersistStreamInit_GetSizeMax
,
647 PersistStreamInit_InitNew
650 void HTMLDocument_Persist_Init(HTMLDocument
*This
)
652 This
->lpPersistMonikerVtbl
= &PersistMonikerVtbl
;
653 This
->lpPersistFileVtbl
= &PersistFileVtbl
;
654 This
->lpMonikerPropVtbl
= &MonikerPropVtbl
;
655 This
->lpPersistStreamInitVtbl
= &PersistStreamInitVtbl
;
657 This
->bscallback
= NULL
;