avifil32: Reorder some code to avoid forward declarations for the IGetFrameVtbl methods.
[wine] / dlls / shdocvw / shdocvw_main.c
1 /*
2  * SHDOCVW - Internet Explorer Web Control
3  *
4  * Copyright 2001 John R. Sheets (for CodeWeavers)
5  * Copyright 2004 Mike McCormack (for CodeWeavers)
6  * Copyright 2008 Detlef Riekenberg
7  *
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.
12  *
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.
17  *
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
21  */
22
23 #include "config.h"
24
25 #include <stdarg.h>
26 #include <stdio.h>
27
28 #include "wine/unicode.h"
29 #include "wine/debug.h"
30
31 #include "shdocvw.h"
32
33 #include "winreg.h"
34 #include "shlwapi.h"
35 #include "wininet.h"
36
37 #include "initguid.h"
38
39 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
40
41 LONG SHDOCVW_refCount = 0;
42
43 HINSTANCE shdocvw_hinstance = 0;
44 static HMODULE SHDOCVW_hshell32 = 0;
45 static ITypeInfo *wb_typeinfo = NULL;
46
47 HRESULT get_typeinfo(ITypeInfo **typeinfo)
48 {
49     ITypeLib *typelib;
50     HRESULT hres;
51
52     if(wb_typeinfo) {
53         *typeinfo = wb_typeinfo;
54         return S_OK;
55     }
56
57     hres = LoadRegTypeLib(&LIBID_SHDocVw, 1, 1, LOCALE_SYSTEM_DEFAULT, &typelib);
58     if(FAILED(hres)) {
59         ERR("LoadRegTypeLib failed: %08x\n", hres);
60         return hres;
61     }
62
63     hres = ITypeLib_GetTypeInfoOfGuid(typelib, &IID_IWebBrowser2, &wb_typeinfo);
64     ITypeLib_Release(typelib);
65
66     *typeinfo = wb_typeinfo;
67     return hres;
68 }
69
70 const char *debugstr_variant(const VARIANT *v)
71 {
72     if(!v)
73         return "(null)";
74
75     switch(V_VT(v)) {
76     case VT_EMPTY:
77         return "{VT_EMPTY}";
78     case VT_NULL:
79         return "{VT_NULL}";
80     case VT_I4:
81         return wine_dbg_sprintf("{VT_I4: %d}", V_I4(v));
82     case VT_R8:
83         return wine_dbg_sprintf("{VT_R8: %lf}", V_R8(v));
84     case VT_BSTR:
85         return wine_dbg_sprintf("{VT_BSTR: %s}", debugstr_w(V_BSTR(v)));
86     case VT_DISPATCH:
87         return wine_dbg_sprintf("{VT_DISPATCH: %p}", V_DISPATCH(v));
88     case VT_BOOL:
89         return wine_dbg_sprintf("{VT_BOOL: %x}", V_BOOL(v));
90     default:
91         return wine_dbg_sprintf("{vt %d}", V_VT(v));
92     }
93 }
94
95 /*************************************************************************
96  * SHDOCVW DllMain
97  */
98 BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)
99 {
100     TRACE("%p 0x%x %p\n", hinst, fdwReason, fImpLoad);
101     switch (fdwReason)
102     {
103         case DLL_PROCESS_ATTACH:
104         shdocvw_hinstance = hinst;
105         register_iewindow_class();
106         break;
107     case DLL_PROCESS_DETACH:
108         if (SHDOCVW_hshell32) FreeLibrary(SHDOCVW_hshell32);
109         unregister_iewindow_class();
110         if(wb_typeinfo)
111             ITypeInfo_Release(wb_typeinfo);
112         break;
113     }
114     return TRUE;
115 }
116
117 /*************************************************************************
118  *              DllCanUnloadNow (SHDOCVW.@)
119  */
120 HRESULT WINAPI DllCanUnloadNow(void)
121 {
122     return SHDOCVW_refCount ? S_FALSE : S_OK;
123 }
124
125 /***********************************************************************
126  *              DllGetVersion (SHDOCVW.@)
127  */
128 HRESULT WINAPI DllGetVersion(DLLVERSIONINFO *info)
129 {
130     if (info->cbSize != sizeof(DLLVERSIONINFO)) FIXME("support DLLVERSIONINFO2\n");
131
132     /* this is what IE6 on Windows 98 reports */
133     info->dwMajorVersion = 6;
134     info->dwMinorVersion = 0;
135     info->dwBuildNumber = 2600;
136     info->dwPlatformID = DLLVER_PLATFORM_WINDOWS;
137
138     return NOERROR;
139 }
140
141 /*************************************************************************
142  *              DllInstall (SHDOCVW.@)
143  */
144 HRESULT WINAPI DllInstall(BOOL bInstall, LPCWSTR cmdline)
145 {
146    FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
147
148    return S_OK;
149 }
150
151 /*************************************************************************
152  * SHDOCVW_LoadShell32
153  *
154  * makes sure the handle to shell32 is valid
155  */
156 static BOOL SHDOCVW_LoadShell32(void)
157 {
158      if (SHDOCVW_hshell32)
159        return TRUE;
160      return ((SHDOCVW_hshell32 = LoadLibraryA("shell32.dll")) != NULL);
161 }
162
163 /***********************************************************************
164  *              @ (SHDOCVW.110)
165  *
166  * Called by Win98 explorer.exe main binary, definitely has 0
167  * parameters.
168  */
169 DWORD WINAPI WinList_Init(void)
170 {
171     FIXME("(), stub!\n");
172     return 0x0deadfeed;
173 }
174
175 /***********************************************************************
176  *              @ (SHDOCVW.118)
177  *
178  * Called by Win98 explorer.exe main binary, definitely has only one
179  * parameter.
180  */
181 static BOOL (WINAPI *pShellDDEInit)(BOOL start) = NULL;
182
183 BOOL WINAPI ShellDDEInit(BOOL start)
184 {
185     TRACE("(%d)\n", start);
186
187     if (!pShellDDEInit)
188     {
189       if (!SHDOCVW_LoadShell32())
190         return FALSE;
191       pShellDDEInit = (void *)GetProcAddress(SHDOCVW_hshell32, (LPCSTR)188);
192     }
193
194     if (pShellDDEInit)
195       return pShellDDEInit(start);
196     else
197       return FALSE;
198 }
199
200 /***********************************************************************
201  *              @ (SHDOCVW.125)
202  *
203  * Called by Win98 explorer.exe main binary, definitely has 0
204  * parameters.
205  */
206 DWORD WINAPI RunInstallUninstallStubs(void)
207 {
208     FIXME("(), stub!\n");
209     return 0x0deadbee;
210 }
211
212 /***********************************************************************
213  *              SetQueryNetSessionCount (SHDOCVW.@)
214  */
215 DWORD WINAPI SetQueryNetSessionCount(DWORD arg)
216 {
217     FIXME("(%u), stub!\n", arg);
218     return 0;
219 }
220
221 /**********************************************************************
222  * Some forwards (by ordinal) to SHLWAPI
223  */
224
225 static void* fetch_shlwapi_ordinal(UINT_PTR ord)
226 {
227     static const WCHAR shlwapiW[] = {'s','h','l','w','a','p','i','.','d','l','l','\0'};
228     static HANDLE h;
229
230     if (!h && !(h = GetModuleHandleW(shlwapiW))) return NULL;
231     return (void*)GetProcAddress(h, (const char*)ord);
232 }
233
234 /******************************************************************
235  *              WhichPlatformFORWARD            (SHDOCVW.@)
236  */
237 DWORD WINAPI WhichPlatformFORWARD(void)
238 {
239     static DWORD (WINAPI *p)(void);
240
241     if (p || (p = fetch_shlwapi_ordinal(276))) return p();
242     return 1; /* not integrated, see shlwapi.WhichPlatform */
243 }
244
245 /******************************************************************
246  *              StopWatchModeFORWARD            (SHDOCVW.@)
247  */
248 void WINAPI StopWatchModeFORWARD(void)
249 {
250     static void (WINAPI *p)(void);
251
252     if (p || (p = fetch_shlwapi_ordinal(241))) p();
253 }
254
255 /******************************************************************
256  *              StopWatchFlushFORWARD            (SHDOCVW.@)
257  */
258 void WINAPI StopWatchFlushFORWARD(void)
259 {
260     static void (WINAPI *p)(void);
261
262     if (p || (p = fetch_shlwapi_ordinal(242))) p();
263 }
264
265 /******************************************************************
266  *              StopWatchWFORWARD            (SHDOCVW.@)
267  */
268 DWORD WINAPI StopWatchWFORWARD(DWORD dwClass, LPCWSTR lpszStr, DWORD dwUnknown,
269                                DWORD dwMode, DWORD dwTimeStamp)
270 {
271     static DWORD (WINAPI *p)(DWORD, LPCWSTR, DWORD, DWORD, DWORD);
272
273     if (p || (p = fetch_shlwapi_ordinal(243)))
274         return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
275     return ERROR_CALL_NOT_IMPLEMENTED;
276 }
277
278 /******************************************************************
279  *              StopWatchAFORWARD            (SHDOCVW.@)
280  */
281 DWORD WINAPI StopWatchAFORWARD(DWORD dwClass, LPCSTR lpszStr, DWORD dwUnknown,
282                                DWORD dwMode, DWORD dwTimeStamp)
283 {
284     static DWORD (WINAPI *p)(DWORD, LPCSTR, DWORD, DWORD, DWORD);
285
286     if (p || (p = fetch_shlwapi_ordinal(244)))
287         return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
288     return ERROR_CALL_NOT_IMPLEMENTED;
289 }
290
291 /******************************************************************
292  *  URLSubRegQueryA (SHDOCVW.151)
293  */
294 HRESULT WINAPI URLSubRegQueryA(LPCSTR regpath, LPCSTR name, DWORD type,
295                                LPSTR out, DWORD outlen, DWORD unknown)
296 {
297     CHAR buffer[INTERNET_MAX_URL_LENGTH];
298     DWORD len;
299     LONG res;
300
301     TRACE("(%s, %s, %d, %p, %d, %d)\n", debugstr_a(regpath), debugstr_a(name),
302             type, out, outlen, unknown);
303
304     if (!out) return S_OK;
305
306     len = sizeof(buffer);
307     res = SHRegGetUSValueA(regpath, name, NULL, buffer,  &len, FALSE, NULL, 0);
308     if (!res) {
309         lstrcpynA(out, buffer, outlen);
310         return S_OK;
311     }
312
313     return E_FAIL;
314 }
315
316 /******************************************************************
317  *  ParseURLFromOutsideSourceW (SHDOCVW.170)
318  */
319 DWORD WINAPI ParseURLFromOutsideSourceW(LPCWSTR url, LPWSTR out, LPDWORD plen, LPDWORD unknown)
320 {
321     WCHAR buffer_in[INTERNET_MAX_URL_LENGTH];
322     WCHAR buffer_out[INTERNET_MAX_URL_LENGTH];
323     LPCWSTR ptr = url;
324     HRESULT hr;
325     DWORD needed;
326     DWORD len;
327     DWORD res = 0;
328
329
330     TRACE("(%s, %p, %p, %p) len: %d, unknown: 0x%x\n", debugstr_w(url), out, plen, unknown,
331             plen ? *plen : 0, unknown ? *unknown : 0);
332
333     if (!PathIsURLW(ptr)) {
334         len = sizeof(buffer_in) / sizeof(buffer_in[0]);
335         buffer_in[0] = 0;
336         hr = UrlApplySchemeW(ptr, buffer_in, &len, URL_APPLY_GUESSSCHEME);
337         TRACE("got 0x%x with %s\n", hr, debugstr_w(buffer_in));
338         if (hr != S_OK) {
339             /* when we can't guess the scheme, use the default scheme */
340             len = sizeof(buffer_in) / sizeof(buffer_in[0]);
341             hr = UrlApplySchemeW(ptr, buffer_in, &len, URL_APPLY_DEFAULT);
342         }
343
344         if (hr == S_OK) {
345             /* we parsed the url to buffer_in */
346             ptr = buffer_in;
347         }
348         else
349         {
350             FIXME("call search hook for %s\n", debugstr_w(ptr));
351         }
352     }
353
354     len = sizeof(buffer_out) / sizeof(buffer_out[0]);
355     buffer_out[0] = '\0';
356     hr = UrlCanonicalizeW(ptr, buffer_out, &len, URL_ESCAPE_SPACES_ONLY);
357     needed = lstrlenW(buffer_out)+1;
358     TRACE("got 0x%x with %s (need %d)\n", hr, debugstr_w(buffer_out), needed);
359
360     if (*plen >= needed) {
361         if (out != NULL) {
362             lstrcpyW(out, buffer_out);
363             res++;
364         }
365         needed--;
366     }
367
368     *plen = needed;
369
370     TRACE("=> %d\n", res);
371     return res;
372 }
373
374 /******************************************************************
375  *  ParseURLFromOutsideSourceA (SHDOCVW.169)
376  *
377  * See ParseURLFromOutsideSourceW
378  */
379 DWORD WINAPI ParseURLFromOutsideSourceA(LPCSTR url, LPSTR out, LPDWORD plen, LPDWORD unknown)
380 {
381     WCHAR buffer[INTERNET_MAX_URL_LENGTH];
382     LPWSTR urlW = NULL;
383     DWORD needed;
384     DWORD res;
385     DWORD len;
386
387     TRACE("(%s, %p, %p, %p) len: %d, unknown: 0x%x\n", debugstr_a(url), out, plen, unknown,
388             plen ? *plen : 0, unknown ? *unknown : 0);
389
390     if (url) {
391         len = MultiByteToWideChar(CP_ACP, 0, url, -1, NULL, 0);
392         urlW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
393         MultiByteToWideChar(CP_ACP, 0, url, -1, urlW, len);
394     }
395
396     len = sizeof(buffer) / sizeof(buffer[0]);
397     res = ParseURLFromOutsideSourceW(urlW, buffer, &len, unknown);
398     HeapFree(GetProcessHeap(), 0, urlW);
399
400     needed = WideCharToMultiByte(CP_ACP, 0, buffer, -1, NULL, 0, NULL, NULL);
401
402     res = 0;
403     if (*plen >= needed) {
404         if (out != NULL) {
405             WideCharToMultiByte(CP_ACP, 0, buffer, -1, out, *plen, NULL, NULL);
406             res = needed;
407         }
408         needed--;
409     }
410
411     *plen = needed;
412
413     TRACE("=> %d\n", res);
414     return res;
415 }
416
417 /******************************************************************
418  *  IEParseDisplayNameWithBCW (SHDOCVW.218)
419  */
420 HRESULT WINAPI IEParseDisplayNameWithBCW(DWORD codepage, LPCWSTR lpszDisplayName, LPBC pbc, LPITEMIDLIST *ppidl)
421 {
422     /* Guessing at parameter 3 based on IShellFolder's  ParseDisplayName */
423     FIXME("stub: 0x%x %s %p %p\n",codepage,debugstr_w(lpszDisplayName),pbc,ppidl);
424     return E_FAIL;
425 }
426
427 /******************************************************************
428  *  SHRestricted2W (SHDOCVW.159)
429  */
430 DWORD WINAPI SHRestricted2W(DWORD res, LPCWSTR url, DWORD reserved)
431 {
432     FIXME("(%d %s %d) stub\n", res, debugstr_w(url), reserved);
433     return 0;
434 }
435
436 /******************************************************************
437  * SHRestricted2A (SHDOCVW.158)
438  *
439  * See SHRestricted2W
440  */
441 DWORD WINAPI SHRestricted2A(DWORD restriction, LPCSTR url, DWORD reserved)
442 {
443     LPWSTR urlW = NULL;
444     DWORD res;
445
446     TRACE("(%d, %s, %d)\n", restriction, debugstr_a(url), reserved);
447     if (url) {
448         DWORD len = MultiByteToWideChar(CP_ACP, 0, url, -1, NULL, 0);
449         urlW = heap_alloc(len * sizeof(WCHAR));
450         MultiByteToWideChar(CP_ACP, 0, url, -1, urlW, len);
451     }
452     res = SHRestricted2W(restriction, urlW, reserved);
453     heap_free(urlW);
454     return res;
455 }
456
457 /******************************************************************
458  * ImportPrivacySettings (SHDOCVW.@)
459  *
460  * Import global and/or per site privacy preferences from an xml file
461  *
462  * PARAMS
463  *  filename      [I] XML file to use
464  *  pGlobalPrefs  [IO] PTR to a usage flag for the global privacy preferences
465  *  pPerSitePrefs [IO] PTR to a usage flag for the per site privacy preferences
466  *
467  * RETURNS
468  *  Success: TRUE  (the privacy preferences where updated)
469  *  Failure: FALSE (the privacy preferences are unchanged)
470  *
471  * NOTES
472  *  Set the flag to TRUE, when the related privacy preferences in the xml file
473  *  should be used (parsed and overwrite the current settings).
474  *  On return, the flag is TRUE, when the related privacy settings where used
475  *
476  */
477 BOOL WINAPI ImportPrivacySettings(LPCWSTR filename, BOOL *pGlobalPrefs, BOOL * pPerSitePrefs)
478 {
479     FIXME("(%s, %p->%d, %p->%d): stub\n", debugstr_w(filename),
480         pGlobalPrefs, pGlobalPrefs ? *pGlobalPrefs : 0,
481         pPerSitePrefs, pPerSitePrefs ? *pPerSitePrefs : 0);
482
483     if (pGlobalPrefs) *pGlobalPrefs = FALSE;
484     if (pPerSitePrefs) *pPerSitePrefs = FALSE;
485
486     return TRUE;
487 }