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
40 #include "wine/debug.h"
43 #include "mshtml_private.h"
45 #include "pluginhost.h"
48 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
51 DWORD mshtml_tls
= TLS_OUT_OF_INDEXES
;
53 static HINSTANCE shdoclc
= NULL
;
54 static WCHAR
*status_strings
[IDS_STATUS_LAST
-IDS_STATUS_FIRST
+1];
55 static IMultiLanguage2
*mlang
;
57 static BOOL
ensure_mlang(void)
59 IMultiLanguage2
*new_mlang
;
65 hres
= CoCreateInstance(&CLSID_CMultiLanguage
, NULL
, CLSCTX_INPROC_SERVER
,
66 &IID_IMultiLanguage2
, (void**)&new_mlang
);
68 ERR("Could not create CMultiLanguage instance\n");
72 if(InterlockedCompareExchangePointer((void**)&mlang
, new_mlang
, NULL
))
73 IMultiLanguage2_Release(new_mlang
);
78 UINT
cp_from_charset_string(BSTR charset
)
86 hres
= IMultiLanguage2_GetCharsetInfo(mlang
, charset
, &info
);
88 FIXME("GetCharsetInfo failed: %08x\n", hres
);
92 return info
.uiInternetEncoding
;
95 BSTR
charset_string_from_cp(UINT cp
)
101 return SysAllocString(NULL
);
103 hres
= IMultiLanguage2_GetCodePageInfo(mlang
, cp
, GetUserDefaultUILanguage(), &info
);
105 ERR("GetCodePageInfo failed: %08x\n", hres
);
106 return SysAllocString(NULL
);
109 return SysAllocString(info
.wszWebCharset
);
112 static void thread_detach(void)
114 thread_data_t
*thread_data
;
116 thread_data
= get_thread_data(FALSE
);
120 if(thread_data
->thread_hwnd
)
121 DestroyWindow(thread_data
->thread_hwnd
);
123 heap_free(thread_data
);
126 static void free_strings(void)
129 for(i
= 0; i
< sizeof(status_strings
)/sizeof(*status_strings
); i
++)
130 heap_free(status_strings
[i
]);
133 static void process_detach(void)
139 FreeLibrary(shdoclc
);
140 if(mshtml_tls
!= TLS_OUT_OF_INDEXES
)
143 IMultiLanguage2_Release(mlang
);
148 void set_statustext(HTMLDocumentObj
* doc
, INT id
, LPCWSTR arg
)
150 int index
= id
- IDS_STATUS_FIRST
;
151 WCHAR
*p
= status_strings
[index
];
159 p
= heap_alloc(len
* sizeof(WCHAR
));
160 len
= LoadStringW(hInst
, id
, p
, len
) + 1;
161 p
= heap_realloc(p
, len
* sizeof(WCHAR
));
162 if(InterlockedCompareExchangePointer((void**)&status_strings
[index
], p
, NULL
)) {
164 p
= status_strings
[index
];
171 len
= lstrlenW(p
) + lstrlenW(arg
) - 1;
172 buf
= heap_alloc(len
* sizeof(WCHAR
));
174 snprintfW(buf
, len
, p
, arg
);
179 IOleInPlaceFrame_SetStatusText(doc
->frame
, p
);
185 HRESULT
do_query_service(IUnknown
*unk
, REFGUID guid_service
, REFIID riid
, void **ppv
)
187 IServiceProvider
*sp
;
190 hres
= IUnknown_QueryInterface(unk
, &IID_IServiceProvider
, (void**)&sp
);
194 hres
= IServiceProvider_QueryService(sp
, guid_service
, riid
, ppv
);
195 IServiceProvider_Release(sp
);
199 HINSTANCE
get_shdoclc(void)
201 static const WCHAR wszShdoclc
[] =
202 {'s','h','d','o','c','l','c','.','d','l','l',0};
207 return shdoclc
= LoadLibraryExW(wszShdoclc
, NULL
, LOAD_LIBRARY_AS_DATAFILE
);
210 BOOL WINAPI
DllMain(HINSTANCE hInstDLL
, DWORD fdwReason
, LPVOID reserved
)
213 case DLL_PROCESS_ATTACH
:
216 case DLL_PROCESS_DETACH
:
220 case DLL_THREAD_DETACH
:
227 /***********************************************************
228 * ClassFactory implementation
230 typedef HRESULT (*CreateInstanceFunc
)(IUnknown
*,REFIID
,void**);
232 IClassFactory IClassFactory_iface
;
234 CreateInstanceFunc fnCreateInstance
;
237 static inline ClassFactory
*impl_from_IClassFactory(IClassFactory
*iface
)
239 return CONTAINING_RECORD(iface
, ClassFactory
, IClassFactory_iface
);
242 static HRESULT WINAPI
ClassFactory_QueryInterface(IClassFactory
*iface
, REFGUID riid
, void **ppvObject
)
244 if(IsEqualGUID(&IID_IClassFactory
, riid
) || IsEqualGUID(&IID_IUnknown
, riid
)) {
245 IClassFactory_AddRef(iface
);
250 WARN("not supported iid %s\n", debugstr_mshtml_guid(riid
));
252 return E_NOINTERFACE
;
255 static ULONG WINAPI
ClassFactory_AddRef(IClassFactory
*iface
)
257 ClassFactory
*This
= impl_from_IClassFactory(iface
);
258 ULONG ref
= InterlockedIncrement(&This
->ref
);
259 TRACE("(%p) ref = %u\n", This
, ref
);
263 static ULONG WINAPI
ClassFactory_Release(IClassFactory
*iface
)
265 ClassFactory
*This
= impl_from_IClassFactory(iface
);
266 ULONG ref
= InterlockedDecrement(&This
->ref
);
268 TRACE("(%p) ref = %u\n", This
, ref
);
277 static HRESULT WINAPI
ClassFactory_CreateInstance(IClassFactory
*iface
, IUnknown
*pUnkOuter
,
278 REFIID riid
, void **ppvObject
)
280 ClassFactory
*This
= impl_from_IClassFactory(iface
);
281 return This
->fnCreateInstance(pUnkOuter
, riid
, ppvObject
);
284 static HRESULT WINAPI
ClassFactory_LockServer(IClassFactory
*iface
, BOOL dolock
)
286 TRACE("(%p)->(%x)\n", iface
, dolock
);
288 /* We never unload the DLL. See DllCanUnloadNow(). */
292 static const IClassFactoryVtbl HTMLClassFactoryVtbl
= {
293 ClassFactory_QueryInterface
,
295 ClassFactory_Release
,
296 ClassFactory_CreateInstance
,
297 ClassFactory_LockServer
300 static HRESULT
ClassFactory_Create(REFIID riid
, void **ppv
, CreateInstanceFunc fnCreateInstance
)
302 ClassFactory
*ret
= heap_alloc(sizeof(ClassFactory
));
305 ret
->IClassFactory_iface
.lpVtbl
= &HTMLClassFactoryVtbl
;
307 ret
->fnCreateInstance
= fnCreateInstance
;
309 hres
= IClassFactory_QueryInterface(&ret
->IClassFactory_iface
, riid
, ppv
);
317 /******************************************************************
318 * DllGetClassObject (MSHTML.@)
320 HRESULT WINAPI
DllGetClassObject(REFCLSID rclsid
, REFIID riid
, LPVOID
*ppv
)
322 if(IsEqualGUID(&CLSID_HTMLDocument
, rclsid
)) {
323 TRACE("(CLSID_HTMLDocument %s %p)\n", debugstr_mshtml_guid(riid
), ppv
);
324 return ClassFactory_Create(riid
, ppv
, HTMLDocument_Create
);
325 }else if(IsEqualGUID(&CLSID_MHTMLDocument
, rclsid
)) {
326 TRACE("(CLSID_MHTMLDocument %s %p)\n", debugstr_mshtml_guid(riid
), ppv
);
327 return ClassFactory_Create(riid
, ppv
, MHTMLDocument_Create
);
328 }else if(IsEqualGUID(&CLSID_AboutProtocol
, rclsid
)) {
329 TRACE("(CLSID_AboutProtocol %s %p)\n", debugstr_mshtml_guid(riid
), ppv
);
330 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
331 }else if(IsEqualGUID(&CLSID_JSProtocol
, rclsid
)) {
332 TRACE("(CLSID_JSProtocol %s %p)\n", debugstr_mshtml_guid(riid
), ppv
);
333 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
334 }else if(IsEqualGUID(&CLSID_MailtoProtocol
, rclsid
)) {
335 TRACE("(CLSID_MailtoProtocol %s %p)\n", debugstr_mshtml_guid(riid
), ppv
);
336 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
337 }else if(IsEqualGUID(&CLSID_ResProtocol
, rclsid
)) {
338 TRACE("(CLSID_ResProtocol %s %p)\n", debugstr_mshtml_guid(riid
), ppv
);
339 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
340 }else if(IsEqualGUID(&CLSID_SysimageProtocol
, rclsid
)) {
341 TRACE("(CLSID_SysimageProtocol %s %p)\n", debugstr_mshtml_guid(riid
), ppv
);
342 return ProtocolFactory_Create(rclsid
, riid
, ppv
);
343 }else if(IsEqualGUID(&CLSID_HTMLLoadOptions
, rclsid
)) {
344 TRACE("(CLSID_HTMLLoadOptions %s %p)\n", debugstr_mshtml_guid(riid
), ppv
);
345 return ClassFactory_Create(riid
, ppv
, HTMLLoadOptions_Create
);
348 FIXME("Unknown class %s\n", debugstr_guid(rclsid
));
349 return CLASS_E_CLASSNOTAVAILABLE
;
352 /******************************************************************
353 * DllCanUnloadNow (MSHTML.@)
355 HRESULT WINAPI
DllCanUnloadNow(void)
358 /* The cost of keeping this DLL in memory is small. */
362 /***********************************************************************
363 * RunHTMLApplication (MSHTML.@)
365 * Appears to have the same prototype as WinMain.
367 HRESULT WINAPI
RunHTMLApplication( HINSTANCE hinst
, HINSTANCE hPrevInst
,
368 LPSTR szCmdLine
, INT nCmdShow
)
370 FIXME("%p %p %s %d\n", hinst
, hPrevInst
, debugstr_a(szCmdLine
), nCmdShow
);
374 /***********************************************************************
375 * RNIGetCompatibleVersion (MSHTML.@)
377 DWORD WINAPI
RNIGetCompatibleVersion(void)
383 /***********************************************************************
384 * DllInstall (MSHTML.@)
386 HRESULT WINAPI
DllInstall(BOOL bInstall
, LPCWSTR cmdline
)
388 FIXME("stub %d %s: returning S_OK\n", bInstall
, debugstr_w(cmdline
));
392 /***********************************************************************
393 * ShowHTMLDialog (MSHTML.@)
395 HRESULT WINAPI
ShowHTMLDialog(HWND hwndParent
, IMoniker
*pMk
, VARIANT
*pvarArgIn
,
396 WCHAR
*pchOptions
, VARIANT
*pvarArgOut
)
398 FIXME("(%p %p %p %s %p)\n", hwndParent
, pMk
, pvarArgIn
, debugstr_w(pchOptions
), pvarArgOut
);
402 /***********************************************************************
403 * PrintHTML (MSHTML.@)
405 void WINAPI
PrintHTML(HWND hwnd
, HINSTANCE handle
, LPCSTR cmdline
, INT show
)
407 FIXME("(%p %p %s %x)\n", hwnd
, handle
, debugstr_a(cmdline
), show
);
410 DEFINE_GUID(CLSID_CBackgroundPropertyPage
, 0x3050F232, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
411 DEFINE_GUID(CLSID_CCDAnchorPropertyPage
, 0x3050F1FC, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
412 DEFINE_GUID(CLSID_CCDGenericPropertyPage
, 0x3050F17F, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
413 DEFINE_GUID(CLSID_CDwnBindInfo
, 0x3050F3C2, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
414 DEFINE_GUID(CLSID_CHiFiUses
, 0x5AAF51B3, 0xB1F0, 0x11D1, 0xB6,0xAB, 0x00,0xA0,0xC9,0x08,0x33,0xE9);
415 DEFINE_GUID(CLSID_CHtmlComponentConstructor
, 0x3050F4F8, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
416 DEFINE_GUID(CLSID_CInlineStylePropertyPage
, 0x3050F296, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
417 DEFINE_GUID(CLSID_CPeerHandler
, 0x5AAF51B2, 0xB1F0, 0x11D1, 0xB6,0xAB, 0x00,0xA0,0xC9,0x08,0x33,0xE9);
418 DEFINE_GUID(CLSID_CRecalcEngine
, 0x3050F499, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
419 DEFINE_GUID(CLSID_CSvrOMUses
, 0x3050F4F0, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
420 DEFINE_GUID(CLSID_CrSource
, 0x65014010, 0x9F62, 0x11D1, 0xA6,0x51, 0x00,0x60,0x08,0x11,0xD5,0xCE);
421 DEFINE_GUID(CLSID_ExternalFrameworkSite
, 0x3050F163, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
422 DEFINE_GUID(CLSID_HTADocument
, 0x3050F5C8, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
423 DEFINE_GUID(CLSID_HTMLPluginDocument
, 0x25336921, 0x03F9, 0x11CF, 0x8F,0xD0, 0x00,0xAA,0x00,0x68,0x6F,0x13);
424 DEFINE_GUID(CLSID_HTMLPopup
, 0x3050F667, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
425 DEFINE_GUID(CLSID_HTMLPopupDoc
, 0x3050F67D, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
426 DEFINE_GUID(CLSID_HTMLServerDoc
, 0x3050F4E7, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
427 DEFINE_GUID(CLSID_IImageDecodeFilter
, 0x607FD4E8, 0x0A03, 0x11D1, 0xAB,0x1D, 0x00,0xC0,0x4F,0xC9,0xB3,0x04);
428 DEFINE_GUID(CLSID_IImgCtx
, 0x3050F3D6, 0x98B5, 0x11CF, 0xBB,0x82, 0x00,0xAA,0x00,0xBD,0xCE,0x0B);
429 DEFINE_GUID(CLSID_IntDitherer
, 0x05F6FE1A, 0xECEF, 0x11D0, 0xAA,0xE7, 0x00,0xC0,0x4F,0xC9,0xB3,0x04);
430 DEFINE_GUID(CLSID_TridentAPI
, 0x429AF92C, 0xA51F, 0x11D2, 0x86,0x1E, 0x00,0xC0,0x4F,0xA3,0x5C,0x89);
432 #define INF_SET_ID(id) \
435 static CHAR name[] = #id; \
437 pse[i].pszName = name; \
441 #define INF_SET_CLSID(clsid) INF_SET_ID(CLSID_ ## clsid)
443 static HRESULT
register_server(BOOL do_register
)
447 HRESULT (WINAPI
*pRegInstall
)(HMODULE hm
, LPCSTR pszSection
, const STRTABLEA
* pstTable
);
450 static CLSID
const *clsids
[35];
453 static const WCHAR wszAdvpack
[] = {'a','d','v','p','a','c','k','.','d','l','l',0};
455 TRACE("(%x)\n", do_register
);
457 INF_SET_CLSID(AboutProtocol
);
458 INF_SET_CLSID(CAnchorBrowsePropertyPage
);
459 INF_SET_CLSID(CBackgroundPropertyPage
);
460 INF_SET_CLSID(CCDAnchorPropertyPage
);
461 INF_SET_CLSID(CCDGenericPropertyPage
);
462 INF_SET_CLSID(CDocBrowsePropertyPage
);
463 INF_SET_CLSID(CDwnBindInfo
);
464 INF_SET_CLSID(CHiFiUses
);
465 INF_SET_CLSID(CHtmlComponentConstructor
);
466 INF_SET_CLSID(CImageBrowsePropertyPage
);
467 INF_SET_CLSID(CInlineStylePropertyPage
);
468 INF_SET_CLSID(CPeerHandler
);
469 INF_SET_CLSID(CRecalcEngine
);
470 INF_SET_CLSID(CSvrOMUses
);
471 INF_SET_CLSID(CrSource
);
472 INF_SET_CLSID(ExternalFrameworkSite
);
473 INF_SET_CLSID(HTADocument
);
474 INF_SET_CLSID(HTMLDocument
);
475 INF_SET_CLSID(HTMLLoadOptions
);
476 INF_SET_CLSID(HTMLPluginDocument
);
477 INF_SET_CLSID(HTMLPopup
);
478 INF_SET_CLSID(HTMLPopupDoc
);
479 INF_SET_CLSID(HTMLServerDoc
);
480 INF_SET_CLSID(HTMLWindowProxy
);
481 INF_SET_CLSID(IImageDecodeFilter
);
482 INF_SET_CLSID(IImgCtx
);
483 INF_SET_CLSID(IntDitherer
);
484 INF_SET_CLSID(JSProtocol
);
485 INF_SET_CLSID(MHTMLDocument
);
486 INF_SET_CLSID(MailtoProtocol
);
487 INF_SET_CLSID(ResProtocol
);
488 INF_SET_CLSID(Scriptlet
);
489 INF_SET_CLSID(SysimageProtocol
);
490 INF_SET_CLSID(TridentAPI
);
491 INF_SET_ID(LIBID_MSHTML
);
493 for(i
=0; i
< sizeof(pse
)/sizeof(pse
[0]); i
++) {
494 pse
[i
].pszValue
= heap_alloc(39);
495 sprintf(pse
[i
].pszValue
, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
496 clsids
[i
]->Data1
, clsids
[i
]->Data2
, clsids
[i
]->Data3
, clsids
[i
]->Data4
[0],
497 clsids
[i
]->Data4
[1], clsids
[i
]->Data4
[2], clsids
[i
]->Data4
[3], clsids
[i
]->Data4
[4],
498 clsids
[i
]->Data4
[5], clsids
[i
]->Data4
[6], clsids
[i
]->Data4
[7]);
501 strtable
.cEntries
= sizeof(pse
)/sizeof(pse
[0]);
504 hAdvpack
= LoadLibraryW(wszAdvpack
);
505 pRegInstall
= (void *)GetProcAddress(hAdvpack
, "RegInstall");
507 hres
= pRegInstall(hInst
, do_register
? "RegisterDll" : "UnregisterDll", &strtable
);
509 FreeLibrary(hAdvpack
);
511 for(i
=0; i
< sizeof(pse
)/sizeof(pse
[0]); i
++)
512 heap_free(pse
[i
].pszValue
);
515 ERR("RegInstall failed: %08x\n", hres
);
523 /***********************************************************************
524 * DllRegisterServer (MSHTML.@)
526 HRESULT WINAPI
DllRegisterServer(void)
530 hres
= __wine_register_resources( hInst
);
532 hres
= register_server(TRUE
);
539 /***********************************************************************
540 * DllUnregisterServer (MSHTML.@)
542 HRESULT WINAPI
DllUnregisterServer(void)
544 HRESULT hres
= __wine_unregister_resources( hInst
);
545 if(SUCCEEDED(hres
)) hres
= register_server(FALSE
);
549 const char *debugstr_mshtml_guid(const GUID
*iid
)
551 #define X(x) if(IsEqualGUID(iid, &x)) return #x
552 X(DIID_HTMLDocumentEvents
);
553 X(DIID_HTMLDocumentEvents2
);
554 X(DIID_HTMLTableEvents
);
555 X(DIID_HTMLTextContainerEvents
);
556 X(IID_HTMLPluginContainer
);
557 X(IID_IConnectionPoint
);
558 X(IID_IConnectionPointContainer
);
563 X(IID_UndocumentedScriptIface
);
564 X(IID_IEnumConnections
);
567 X(IID_IHTMLDocument6
);
568 X(IID_IHTMLDocument7
);
569 X(IID_IHTMLEditServices
);
570 X(IID_IHTMLFramesCollection2
);
571 X(IID_IHTMLPrivateWindow
);
572 X(IID_IHtmlLoadOptions
);
573 X(IID_IInternetHostSecurityManager
);
574 X(IID_IManagedObject
);
577 X(IID_IObjectIdentity
);
578 X(IID_IObjectSafety
);
579 X(IID_IObjectWithSite
);
580 X(IID_IOleContainer
);
581 X(IID_IOleCommandTarget
);
584 X(IID_IOleDocumentView
);
585 X(IID_IOleInPlaceActiveObject
);
586 X(IID_IOleInPlaceFrame
);
587 X(IID_IOleInPlaceObject
);
588 X(IID_IOleInPlaceObjectWindowless
);
589 X(IID_IOleInPlaceUIWindow
);
595 X(IID_IPersistHistory
);
596 X(IID_IPersistMoniker
);
597 X(IID_IPersistStreamInit
);
598 X(IID_IPropertyNotifySink
);
599 X(IID_IProvideClassInfo
);
600 X(IID_IProvideClassInfo2
);
601 X(IID_IProvideMultipleClassInfo
);
602 X(IID_IServiceProvider
);
603 X(IID_ISupportErrorInfo
);
604 X(IID_ITargetContainer
);
605 X(IID_ITravelLogClient
);
609 X(IID_IViewObjectEx
);
610 X(IID_nsCycleCollectionISupports
);
611 X(IID_nsXPCOMCycleCollectionParticipant
);
612 #define XIID(x) X(IID_##x);
613 #define XDIID(x) X(DIID_##x);
619 return debugstr_guid(iid
);