4 * Copyright 2002 Lionel Ulmer
5 * Copyright 2003 Mike McCormack
6 * Copyright 2005 Jacek Caban
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
39 #include "wine/unicode.h"
40 #include "wine/debug.h"
43 #include "mshtml_private.h"
46 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
49 DWORD mshtml_tls
= TLS_OUT_OF_INDEXES
;
51 static HINSTANCE shdoclc
= NULL
;
52 static HDC display_dc
;
53 static LPWSTR status_strings
[NUM_STATUS_STRINGS
];
55 static void thread_detach(void)
57 thread_data_t
*thread_data
;
59 thread_data
= get_thread_data(FALSE
);
63 if(thread_data
->thread_hwnd
)
64 DestroyWindow(thread_data
->thread_hwnd
);
66 heap_free(thread_data
);
69 static void free_strings(void)
72 for(i
= 0; i
< NUM_STATUS_STRINGS
; i
++)
73 heap_free(status_strings
[i
]);
76 static void process_detach(void)
83 if(mshtml_tls
!= TLS_OUT_OF_INDEXES
)
86 DeleteObject(display_dc
);
91 void set_statustext(HTMLDocumentObj
* doc
, INT id
, LPCWSTR arg
)
93 int index
= id
- IDS_STATUS_DONE
;
94 LPWSTR p
= status_strings
[index
];
102 p
= heap_alloc(len
* sizeof(WCHAR
));
103 len
= LoadStringW(hInst
, id
, p
, len
);
105 p
= heap_realloc(p
, len
* sizeof(WCHAR
));
106 if(InterlockedCompareExchangePointer((void**)&status_strings
[index
], p
, NULL
))
109 p
= status_strings
[index
];
115 DWORD len
= lstrlenW(p
) + lstrlenW(arg
) - 1;
116 LPWSTR buf
= heap_alloc(len
* sizeof(WCHAR
));
118 snprintfW(buf
, len
, p
, arg
);
123 IOleInPlaceFrame_SetStatusText(doc
->frame
, p
);
129 HINSTANCE
get_shdoclc(void)
131 static const WCHAR wszShdoclc
[] =
132 {'s','h','d','o','c','l','c','.','d','l','l',0};
137 return shdoclc
= LoadLibraryExW(wszShdoclc
, NULL
, LOAD_LIBRARY_AS_DATAFILE
);
140 HDC
get_display_dc(void)
142 static const WCHAR displayW
[] = {'D','I','S','P','L','A','Y',0};
147 hdc
= CreateICW(displayW
, NULL
, NULL
, NULL
);
148 if(InterlockedCompareExchangePointer((void**)&display_dc
, hdc
, NULL
))
155 BOOL WINAPI
DllMain(HINSTANCE hInstDLL
, DWORD fdwReason
, LPVOID lpv
)
158 case DLL_PROCESS_ATTACH
:
161 case DLL_PROCESS_DETACH
:
164 case DLL_THREAD_DETACH
:
171 /***********************************************************
172 * ClassFactory implementation
174 typedef HRESULT (*CreateInstanceFunc
)(IUnknown
*,REFIID
,void**);
176 IClassFactory IClassFactory_iface
;
178 CreateInstanceFunc fnCreateInstance
;
181 static inline ClassFactory
*impl_from_IClassFactory(IClassFactory
*iface
)
183 return CONTAINING_RECORD(iface
, ClassFactory
, IClassFactory_iface
);
186 static HRESULT WINAPI
ClassFactory_QueryInterface(IClassFactory
*iface
, REFGUID riid
, void **ppvObject
)
188 if(IsEqualGUID(&IID_IClassFactory
, riid
) || IsEqualGUID(&IID_IUnknown
, riid
)) {
189 IClassFactory_AddRef(iface
);
194 WARN("not supported iid %s\n", debugstr_guid(riid
));
196 return E_NOINTERFACE
;
199 static ULONG WINAPI
ClassFactory_AddRef(IClassFactory
*iface
)
201 ClassFactory
*This
= impl_from_IClassFactory(iface
);
202 ULONG ref
= InterlockedIncrement(&This
->ref
);
203 TRACE("(%p) ref = %u\n", This
, ref
);
207 static ULONG WINAPI
ClassFactory_Release(IClassFactory
*iface
)
209 ClassFactory
*This
= impl_from_IClassFactory(iface
);
210 ULONG ref
= InterlockedDecrement(&This
->ref
);
212 TRACE("(%p) ref = %u\n", This
, ref
);
221 static HRESULT WINAPI
ClassFactory_CreateInstance(IClassFactory
*iface
, IUnknown
*pUnkOuter
,
222 REFIID riid
, void **ppvObject
)
224 ClassFactory
*This
= impl_from_IClassFactory(iface
);
225 return This
->fnCreateInstance(pUnkOuter
, riid
, ppvObject
);
228 static HRESULT WINAPI
ClassFactory_LockServer(IClassFactory
*iface
, BOOL dolock
)
230 TRACE("(%p)->(%x)\n", iface
, dolock
);
232 /* We never unload the DLL. See DllCanUnloadNow(). */
236 static const IClassFactoryVtbl HTMLClassFactoryVtbl
= {
237 ClassFactory_QueryInterface
,
239 ClassFactory_Release
,
240 ClassFactory_CreateInstance
,
241 ClassFactory_LockServer
244 static HRESULT
ClassFactory_Create(REFIID riid
, void **ppv
, CreateInstanceFunc fnCreateInstance
)
246 ClassFactory
*ret
= heap_alloc(sizeof(ClassFactory
));
249 ret
->IClassFactory_iface
.lpVtbl
= &HTMLClassFactoryVtbl
;
251 ret
->fnCreateInstance
= fnCreateInstance
;
253 hres
= IClassFactory_QueryInterface(&ret
->IClassFactory_iface
, riid
, ppv
);
261 /******************************************************************
262 * DllGetClassObject (MSHTML.@)
264 HRESULT WINAPI
DllGetClassObject(REFCLSID rclsid
, REFIID riid
, LPVOID
*ppv
)
266 if(IsEqualGUID(&CLSID_HTMLDocument
, rclsid
)) {
267 TRACE("(CLSID_HTMLDocument %s %p)\n", debugstr_guid(riid
), ppv
);
268 return ClassFactory_Create(riid
, ppv
, HTMLDocument_Create
);
269 }else if(IsEqualGUID(&CLSID_AboutProtocol
, rclsid
)) {
270 TRACE("(CLSID_AboutProtocol %s %p)\n", debugstr_guid(riid
), ppv
);
271 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
272 }else if(IsEqualGUID(&CLSID_JSProtocol
, rclsid
)) {
273 TRACE("(CLSID_JSProtocol %s %p)\n", debugstr_guid(riid
), ppv
);
274 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
275 }else if(IsEqualGUID(&CLSID_MailtoProtocol
, rclsid
)) {
276 TRACE("(CLSID_MailtoProtocol %s %p)\n", debugstr_guid(riid
), ppv
);
277 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
278 }else if(IsEqualGUID(&CLSID_ResProtocol
, rclsid
)) {
279 TRACE("(CLSID_ResProtocol %s %p)\n", debugstr_guid(riid
), ppv
);
280 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
281 }else if(IsEqualGUID(&CLSID_SysimageProtocol
, rclsid
)) {
282 TRACE("(CLSID_SysimageProtocol %s %p)\n", debugstr_guid(riid
), ppv
);
283 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
284 }else if(IsEqualGUID(&CLSID_HTMLLoadOptions
, rclsid
)) {
285 TRACE("(CLSID_HTMLLoadOptions %s %p)\n", debugstr_guid(riid
), ppv
);
286 return ClassFactory_Create(riid
, ppv
, HTMLLoadOptions_Create
);
289 FIXME("Unknown class %s\n", debugstr_guid(rclsid
));
290 return CLASS_E_CLASSNOTAVAILABLE
;
293 /******************************************************************
294 * DllCanUnloadNow (MSHTML.@)
296 HRESULT WINAPI
DllCanUnloadNow(void)
299 /* The cost of keeping this DLL in memory is small. */
303 /***********************************************************************
304 * RunHTMLApplication (MSHTML.@)
306 * Appears to have the same prototype as WinMain.
308 HRESULT WINAPI
RunHTMLApplication( HINSTANCE hinst
, HINSTANCE hPrevInst
,
309 LPSTR szCmdLine
, INT nCmdShow
)
311 FIXME("%p %p %s %d\n", hinst
, hPrevInst
, debugstr_a(szCmdLine
), nCmdShow
);
315 /***********************************************************************
316 * RNIGetCompatibleVersion (MSHTML.@)
318 DWORD WINAPI
RNIGetCompatibleVersion(void)
324 /***********************************************************************
325 * DllInstall (MSHTML.@)
327 HRESULT WINAPI
DllInstall(BOOL bInstall
, LPCWSTR cmdline
)
329 FIXME("stub %d %s: returning S_OK\n", bInstall
, debugstr_w(cmdline
));
333 /***********************************************************************
334 * ShowHTMLDialog (MSHTML.@)
336 HRESULT WINAPI
ShowHTMLDialog(HWND hwndParent
, IMoniker
*pMk
, VARIANT
*pvarArgIn
,
337 WCHAR
*pchOptions
, VARIANT
*pvarArgOut
)
339 FIXME("(%p %p %p %s %p)\n", hwndParent
, pMk
, pvarArgIn
, debugstr_w(pchOptions
), pvarArgOut
);
343 /***********************************************************************
344 * PrintHTML (MSHTML.@)
346 void WINAPI
PrintHTML(HWND hwnd
, HINSTANCE handle
, LPCSTR cmdline
, INT show
)
348 FIXME("(%p %p %s %x)\n", hwnd
, handle
, debugstr_a(cmdline
), show
);
351 DEFINE_GUID(CLSID_CBackgroundPropertyPage
, 0x3050F232, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
352 DEFINE_GUID(CLSID_CCDAnchorPropertyPage
, 0x3050F1FC, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
353 DEFINE_GUID(CLSID_CCDGenericPropertyPage
, 0x3050F17F, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
354 DEFINE_GUID(CLSID_CDwnBindInfo
, 0x3050F3C2, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
355 DEFINE_GUID(CLSID_CHiFiUses
, 0x5AAF51B3, 0xB1F0, 0x11D1, 0xB6,0xAB, 0x00,0xA0,0xC9,0x08,0x33,0xE9);
356 DEFINE_GUID(CLSID_CHtmlComponentConstructor
, 0x3050F4F8, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
357 DEFINE_GUID(CLSID_CInlineStylePropertyPage
, 0x3050F296, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
358 DEFINE_GUID(CLSID_CPeerHandler
, 0x5AAF51B2, 0xB1F0, 0x11D1, 0xB6,0xAB, 0x00,0xA0,0xC9,0x08,0x33,0xE9);
359 DEFINE_GUID(CLSID_CRecalcEngine
, 0x3050F499, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
360 DEFINE_GUID(CLSID_CSvrOMUses
, 0x3050F4F0, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
361 DEFINE_GUID(CLSID_CrSource
, 0x65014010, 0x9F62, 0x11D1, 0xA6,0x51, 0x00,0x60,0x08,0x11,0xD5,0xCE);
362 DEFINE_GUID(CLSID_ExternalFrameworkSite
, 0x3050F163, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
363 DEFINE_GUID(CLSID_HTADocument
, 0x3050F5C8, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
364 DEFINE_GUID(CLSID_HTMLPluginDocument
, 0x25336921, 0x03F9, 0x11CF, 0x8F,0xD0, 0x00,0xAA,0x00,0x68,0x6F,0x13);
365 DEFINE_GUID(CLSID_HTMLPopup
, 0x3050F667, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
366 DEFINE_GUID(CLSID_HTMLPopupDoc
, 0x3050F67D, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
367 DEFINE_GUID(CLSID_HTMLServerDoc
, 0x3050F4E7, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
368 DEFINE_GUID(CLSID_IImageDecodeFilter
, 0x607FD4E8, 0x0A03, 0x11D1, 0xAB,0x1D, 0x00,0xC0,0x4F,0xC9,0xB3,0x04);
369 DEFINE_GUID(CLSID_IImgCtx
, 0x3050F3D6, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
370 DEFINE_GUID(CLSID_IntDitherer
, 0x05F6FE1A, 0xECEF, 0x11D0, 0xAA,0xE7, 0x00,0xC0,0x4F,0xC9,0xB3,0x04);
371 DEFINE_GUID(CLSID_MHTMLDocument
, 0x3050F3D9, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
372 DEFINE_GUID(CLSID_TridentAPI
, 0x429AF92C, 0xA51F, 0x11D2, 0x86,0x1E, 0x00,0xC0,0x4F,0xA3,0x5C,0x89);
374 #define INF_SET_ID(id) \
377 static CHAR name[] = #id; \
379 pse[i].pszName = name; \
383 #define INF_SET_CLSID(clsid) INF_SET_ID(CLSID_ ## clsid)
385 static HRESULT
register_server(BOOL do_register
)
389 HRESULT (WINAPI
*pRegInstall
)(HMODULE hm
, LPCSTR pszSection
, const STRTABLEA
* pstTable
);
392 static CLSID
const *clsids
[35];
395 static const WCHAR wszAdvpack
[] = {'a','d','v','p','a','c','k','.','d','l','l',0};
397 TRACE("(%x)\n", do_register
);
399 INF_SET_CLSID(AboutProtocol
);
400 INF_SET_CLSID(CAnchorBrowsePropertyPage
);
401 INF_SET_CLSID(CBackgroundPropertyPage
);
402 INF_SET_CLSID(CCDAnchorPropertyPage
);
403 INF_SET_CLSID(CCDGenericPropertyPage
);
404 INF_SET_CLSID(CDocBrowsePropertyPage
);
405 INF_SET_CLSID(CDwnBindInfo
);
406 INF_SET_CLSID(CHiFiUses
);
407 INF_SET_CLSID(CHtmlComponentConstructor
);
408 INF_SET_CLSID(CImageBrowsePropertyPage
);
409 INF_SET_CLSID(CInlineStylePropertyPage
);
410 INF_SET_CLSID(CPeerHandler
);
411 INF_SET_CLSID(CRecalcEngine
);
412 INF_SET_CLSID(CSvrOMUses
);
413 INF_SET_CLSID(CrSource
);
414 INF_SET_CLSID(ExternalFrameworkSite
);
415 INF_SET_CLSID(HTADocument
);
416 INF_SET_CLSID(HTMLDocument
);
417 INF_SET_CLSID(HTMLLoadOptions
);
418 INF_SET_CLSID(HTMLPluginDocument
);
419 INF_SET_CLSID(HTMLPopup
);
420 INF_SET_CLSID(HTMLPopupDoc
);
421 INF_SET_CLSID(HTMLServerDoc
);
422 INF_SET_CLSID(HTMLWindowProxy
);
423 INF_SET_CLSID(IImageDecodeFilter
);
424 INF_SET_CLSID(IImgCtx
);
425 INF_SET_CLSID(IntDitherer
);
426 INF_SET_CLSID(JSProtocol
);
427 INF_SET_CLSID(MHTMLDocument
);
428 INF_SET_CLSID(MailtoProtocol
);
429 INF_SET_CLSID(ResProtocol
);
430 INF_SET_CLSID(Scriptlet
);
431 INF_SET_CLSID(SysimageProtocol
);
432 INF_SET_CLSID(TridentAPI
);
433 INF_SET_ID(LIBID_MSHTML
);
435 for(i
=0; i
< sizeof(pse
)/sizeof(pse
[0]); i
++) {
436 pse
[i
].pszValue
= heap_alloc(39);
437 sprintf(pse
[i
].pszValue
, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
438 clsids
[i
]->Data1
, clsids
[i
]->Data2
, clsids
[i
]->Data3
, clsids
[i
]->Data4
[0],
439 clsids
[i
]->Data4
[1], clsids
[i
]->Data4
[2], clsids
[i
]->Data4
[3], clsids
[i
]->Data4
[4],
440 clsids
[i
]->Data4
[5], clsids
[i
]->Data4
[6], clsids
[i
]->Data4
[7]);
443 strtable
.cEntries
= sizeof(pse
)/sizeof(pse
[0]);
446 hAdvpack
= LoadLibraryW(wszAdvpack
);
447 pRegInstall
= (void *)GetProcAddress(hAdvpack
, "RegInstall");
449 hres
= pRegInstall(hInst
, do_register
? "RegisterDll" : "UnregisterDll", &strtable
);
451 for(i
=0; i
< sizeof(pse
)/sizeof(pse
[0]); i
++)
452 heap_free(pse
[i
].pszValue
);
455 ERR("RegInstall failed: %08x\n", hres
);
462 static const WCHAR wszMSHTML
[] = {'m','s','h','t','m','l','.','t','l','b',0};
464 hres
= LoadTypeLibEx(wszMSHTML
, REGKIND_REGISTER
, &typelib
);
466 ITypeLib_Release(typelib
);
468 hres
= UnRegisterTypeLib(&LIBID_MSHTML
, 4, 0, LOCALE_SYSTEM_DEFAULT
, SYS_WIN32
);
472 ERR("typelib registration failed: %08x\n", hres
);
480 /***********************************************************************
481 * DllRegisterServer (MSHTML.@)
483 HRESULT WINAPI
DllRegisterServer(void)
487 hres
= __wine_register_resources( hInst
, NULL
);
489 hres
= register_server(TRUE
);
496 /***********************************************************************
497 * DllUnregisterServer (MSHTML.@)
499 HRESULT WINAPI
DllUnregisterServer(void)
501 HRESULT hres
= __wine_unregister_resources( hInst
, NULL
);
502 if(SUCCEEDED(hres
)) hres
= register_server(FALSE
);
506 const char *debugstr_variant(const VARIANT
*v
)
517 return wine_dbg_sprintf("{VT_I4: %d}", V_I4(v
));
519 return wine_dbg_sprintf("{VT_R8: %lf}", V_R8(v
));
521 return wine_dbg_sprintf("{VT_BSTR: %s}", debugstr_w(V_BSTR(v
)));
523 return wine_dbg_sprintf("{VT_DISPATCH: %p}", V_DISPATCH(v
));
525 return wine_dbg_sprintf("{VT_BOOL: %x}", V_BOOL(v
));
527 return wine_dbg_sprintf("{VT_UINT: %u}", V_UINT(v
));
529 return wine_dbg_sprintf("{vt %d}", V_VT(v
));