msxml3: Implement IXMLDOMDocument2 IPersistStream_Save.
diff --git a/dlls/msxml3/domdoc.c b/dlls/msxml3/domdoc.c
index a758d9f..49f18cc 100644
--- a/dlls/msxml3/domdoc.c
+++ b/dlls/msxml3/domdoc.c
@@ -357,8 +357,26 @@
static HRESULT WINAPI xmldoc_IPersistStream_Save(
IPersistStream *iface, LPSTREAM pStm, BOOL fClearDirty)
{
- FIXME("(%p, %p, %d): stub!\n", iface, pStm, fClearDirty);
- return E_NOTIMPL;
+ domdoc *This = impl_from_IPersistStream(iface);
+ HRESULT hr;
+ BSTR xmlString;
+
+ TRACE("(%p, %p, %d)\n", iface, pStm, fClearDirty);
+
+ hr = IXMLDOMNode_get_xml( This->node, &xmlString );
+ if(hr == S_OK)
+ {
+ DWORD count;
+ DWORD len = strlenW(xmlString) * sizeof(WCHAR);
+
+ hr = IStream_Write( pStm, xmlString, len, &count );
+
+ SysFreeString(xmlString);
+ }
+
+ TRACE("ret 0x%08x\n", hr);
+
+ return hr;
}
static HRESULT WINAPI xmldoc_IPersistStream_GetSizeMax(