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 /*************************************************************************
71 * SHDOCVW DllMain
72 */
73 BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)
74 {
75 TRACE("%p 0x%x %p\n", hinst, fdwReason, fImpLoad);
76 switch (fdwReason)
77 {
78 case DLL_PROCESS_ATTACH:
79 shdocvw_hinstance = hinst;
80 register_iewindow_class();
81 break;
82 case DLL_PROCESS_DETACH:
83 if (SHDOCVW_hshell32) FreeLibrary(SHDOCVW_hshell32);
84 unregister_iewindow_class();
85 if(wb_typeinfo)
86 ITypeInfo_Release(wb_typeinfo);
87 break;
88 }
89 return TRUE;
90 }
91
92 /*************************************************************************
93 * DllCanUnloadNow (SHDOCVW.@)
94 */
95 HRESULT WINAPI DllCanUnloadNow(void)
96 {
97 return SHDOCVW_refCount ? S_FALSE : S_OK;
98 }
99
100 /***********************************************************************
101 * DllGetVersion (SHDOCVW.@)
102 */
103 HRESULT WINAPI DllGetVersion(DLLVERSIONINFO *info)
104 {
105 if (info->cbSize != sizeof(DLLVERSIONINFO)) FIXME("support DLLVERSIONINFO2\n");
106
107 /* this is what IE6 on Windows 98 reports */
108 info->dwMajorVersion = 6;
109 info->dwMinorVersion = 0;
110 info->dwBuildNumber = 2600;
111 info->dwPlatformID = DLLVER_PLATFORM_WINDOWS;
112
113 return NOERROR;
114 }
115
116 /*************************************************************************
117 * DllInstall (SHDOCVW.@)
118 */
119 HRESULT WINAPI DllInstall(BOOL bInstall, LPCWSTR cmdline)
120 {
121 FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
122
123 return S_OK;
124 }
125
126 /*************************************************************************
127 * SHDOCVW_LoadShell32
128 *
129 * makes sure the handle to shell32 is valid
130 */
131 static BOOL SHDOCVW_LoadShell32(void)
132 {
133 if (SHDOCVW_hshell32)
134 return TRUE;
135 return ((SHDOCVW_hshell32 = LoadLibraryA("shell32.dll")) != NULL);
136 }
137
138 /***********************************************************************
139 * @ (SHDOCVW.110)
140 *
141 * Called by Win98 explorer.exe main binary, definitely has 0
142 * parameters.
143 */
144 DWORD WINAPI WinList_Init(void)
145 {
146 FIXME("(), stub!\n");
147 return 0x0deadfeed;
148 }
149
150 /***********************************************************************
151 * @ (SHDOCVW.118)
152 *
153 * Called by Win98 explorer.exe main binary, definitely has only one
154 * parameter.
155 */
156 static BOOL (WINAPI *pShellDDEInit)(BOOL start) = NULL;
157
158 BOOL WINAPI ShellDDEInit(BOOL start)
159 {
160 TRACE("(%d)\n", start);
161
162 if (!pShellDDEInit)
163 {
164 if (!SHDOCVW_LoadShell32())
165 return FALSE;
166 pShellDDEInit = (void *)GetProcAddress(SHDOCVW_hshell32, (LPCSTR)188);
167 }
168
169 if (pShellDDEInit)
170 return pShellDDEInit(start);
171 else
172 return FALSE;
173 }
174
175 /***********************************************************************
176 * @ (SHDOCVW.125)
177 *
178 * Called by Win98 explorer.exe main binary, definitely has 0
179 * parameters.
180 */
181 DWORD WINAPI RunInstallUninstallStubs(void)
182 {
183 FIXME("(), stub!\n");
184 return 0x0deadbee;
185 }
186
187 /***********************************************************************
188 * SetQueryNetSessionCount (SHDOCVW.@)
189 */
190 DWORD WINAPI SetQueryNetSessionCount(DWORD arg)
191 {
192 FIXME("(%u), stub!\n", arg);
193 return 0;
194 }
195
196 /**********************************************************************
197 * OpenURL (SHDOCVW.@)
198 */
199 void WINAPI OpenURL(HWND hWnd, HINSTANCE hInst, LPCSTR lpcstrUrl, int nShowCmd)
200 {
201 FIXME("%p %p %s %d\n", hWnd, hInst, debugstr_a(lpcstrUrl), nShowCmd);
202 }
203
204 /**********************************************************************
205 * Some forwards (by ordinal) to SHLWAPI
206 */
207
208 static void* fetch_shlwapi_ordinal(UINT_PTR ord)
209 {
210 static const WCHAR shlwapiW[] = {'s','h','l','w','a','p','i','.','d','l','l','\0'};
211 static HANDLE h;
212
213 if (!h && !(h = GetModuleHandleW(shlwapiW))) return NULL;
214 return (void*)GetProcAddress(h, (const char*)ord);
215 }
216
217 /******************************************************************
218 * WhichPlatformFORWARD (SHDOCVW.@)
219 */
220 DWORD WINAPI WhichPlatformFORWARD(void)
221 {
222 static DWORD (WINAPI *p)(void);
223
224 if (p || (p = fetch_shlwapi_ordinal(276))) return p();
225 return 1; /* not integrated, see shlwapi.WhichPlatform */
226 }
227
228 /******************************************************************
229 * StopWatchModeFORWARD (SHDOCVW.@)
230 */
231 void WINAPI StopWatchModeFORWARD(void)
232 {
233 static void (WINAPI *p)(void);
234
235 if (p || (p = fetch_shlwapi_ordinal(241))) p();
236 }
237
238 /******************************************************************
239 * StopWatchFlushFORWARD (SHDOCVW.@)
240 */
241 void WINAPI StopWatchFlushFORWARD(void)
242 {
243 static void (WINAPI *p)(void);
244
245 if (p || (p = fetch_shlwapi_ordinal(242))) p();
246 }
247
248 /******************************************************************
249 * StopWatchWFORWARD (SHDOCVW.@)
250 */
251 DWORD WINAPI StopWatchWFORWARD(DWORD dwClass, LPCWSTR lpszStr, DWORD dwUnknown,
252 DWORD dwMode, DWORD dwTimeStamp)
253 {
254 static DWORD (WINAPI *p)(DWORD, LPCWSTR, DWORD, DWORD, DWORD);
255
256 if (p || (p = fetch_shlwapi_ordinal(243)))
257 return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
258 return ERROR_CALL_NOT_IMPLEMENTED;
259 }
260
261 /******************************************************************
262 * StopWatchAFORWARD (SHDOCVW.@)
263 */
264 DWORD WINAPI StopWatchAFORWARD(DWORD dwClass, LPCSTR lpszStr, DWORD dwUnknown,
265 DWORD dwMode, DWORD dwTimeStamp)
266 {
267 static DWORD (WINAPI *p)(DWORD, LPCSTR, DWORD, DWORD, DWORD);
268
269 if (p || (p = fetch_shlwapi_ordinal(244)))
270 return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
271 return ERROR_CALL_NOT_IMPLEMENTED;
272 }
273
274 /******************************************************************
275 * URLSubRegQueryA (SHDOCVW.151)
276 */
277 HRESULT WINAPI URLSubRegQueryA(LPCSTR regpath, LPCSTR name, DWORD type,
278 LPSTR out, DWORD outlen, DWORD unknown)
279 {
280 CHAR buffer[INTERNET_MAX_URL_LENGTH];
281 DWORD len;
282 LONG res;
283
284 TRACE("(%s, %s, %d, %p, %d, %d)\n", debugstr_a(regpath), debugstr_a(name),
285 type, out, outlen, unknown);
286
287 if (!out) return S_OK;
288
289 len = sizeof(buffer);
290 res = SHRegGetUSValueA(regpath, name, NULL, buffer, &len, FALSE, NULL, 0);
291 if (!res) {
292 lstrcpynA(out, buffer, outlen);
293 return S_OK;
294 }
295
296 return E_FAIL;
297 }
298
299 /******************************************************************
300 * ParseURLFromOutsideSourceW (SHDOCVW.170)
301 */
302 DWORD WINAPI ParseURLFromOutsideSourceW(LPCWSTR url, LPWSTR out, LPDWORD plen, LPDWORD unknown)
303 {
304 WCHAR buffer_in[INTERNET_MAX_URL_LENGTH];
305 WCHAR buffer_out[INTERNET_MAX_URL_LENGTH];
306 LPCWSTR ptr = url;
307 HRESULT hr;
308 DWORD needed;
309 DWORD len;
310 DWORD res = 0;
311
312
313 TRACE("(%s, %p, %p, %p) len: %d, unknown: 0x%x\n", debugstr_w(url), out, plen, unknown,
314 plen ? *plen : 0, unknown ? *unknown : 0);
315
316 if (!PathIsURLW(ptr)) {
317 len = sizeof(buffer_in) / sizeof(buffer_in[0]);
318 buffer_in[0] = 0;
319 hr = UrlApplySchemeW(ptr, buffer_in, &len, URL_APPLY_GUESSSCHEME);
320 TRACE("got 0x%x with %s\n", hr, debugstr_w(buffer_in));
321 if (hr != S_OK) {
322 /* when we can't guess the scheme, use the default scheme */
323 len = sizeof(buffer_in) / sizeof(buffer_in[0]);
324 hr = UrlApplySchemeW(ptr, buffer_in, &len, URL_APPLY_DEFAULT);
325 }
326
327 if (hr == S_OK) {
328 /* we parsed the url to buffer_in */
329 ptr = buffer_in;
330 }
331 else
332 {
333 FIXME("call search hook for %s\n", debugstr_w(ptr));
334 }
335 }
336
337 len = sizeof(buffer_out) / sizeof(buffer_out[0]);
338 buffer_out[0] = '\0';
339 hr = UrlCanonicalizeW(ptr, buffer_out, &len, URL_ESCAPE_SPACES_ONLY);
340 needed = lstrlenW(buffer_out)+1;
341 TRACE("got 0x%x with %s (need %d)\n", hr, debugstr_w(buffer_out), needed);
342
343 if (*plen >= needed) {
344 if (out != NULL) {
345 lstrcpyW(out, buffer_out);
346 res++;
347 }
348 needed--;
349 }
350
351 *plen = needed;
352
353 TRACE("=> %d\n", res);
354 return res;
355 }
356
357 /******************************************************************
358 * ParseURLFromOutsideSourceA (SHDOCVW.169)
359 *
360 * See ParseURLFromOutsideSourceW
361 */
362 DWORD WINAPI ParseURLFromOutsideSourceA(LPCSTR url, LPSTR out, LPDWORD plen, LPDWORD unknown)
363 {
364 WCHAR buffer[INTERNET_MAX_URL_LENGTH];
365 LPWSTR urlW = NULL;
366 DWORD needed;
367 DWORD res;
368 DWORD len;
369
370 TRACE("(%s, %p, %p, %p) len: %d, unknown: 0x%x\n", debugstr_a(url), out, plen, unknown,
371 plen ? *plen : 0, unknown ? *unknown : 0);
372
373 if (url) {
374 len = MultiByteToWideChar(CP_ACP, 0, url, -1, NULL, 0);
375 urlW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
376 MultiByteToWideChar(CP_ACP, 0, url, -1, urlW, len);
377 }
378
379 len = sizeof(buffer) / sizeof(buffer[0]);
380 res = ParseURLFromOutsideSourceW(urlW, buffer, &len, unknown);
381 HeapFree(GetProcessHeap(), 0, urlW);
382
383 needed = WideCharToMultiByte(CP_ACP, 0, buffer, -1, NULL, 0, NULL, NULL);
384
385 res = 0;
386 if (*plen >= needed) {
387 if (out != NULL) {
388 WideCharToMultiByte(CP_ACP, 0, buffer, -1, out, *plen, NULL, NULL);
389 res = needed;
390 }
391 needed--;
392 }
393
394 *plen = needed;
395
396 TRACE("=> %d\n", res);
397 return res;
398 }
399
400 /******************************************************************
401 * IEParseDisplayNameWithBCW (SHDOCVW.218)
402 */
403 HRESULT WINAPI IEParseDisplayNameWithBCW(DWORD codepage, LPCWSTR lpszDisplayName, LPBC pbc, LPITEMIDLIST *ppidl)
404 {
405 /* Guessing at parameter 3 based on IShellFolder's ParseDisplayName */
406 FIXME("stub: 0x%x %s %p %p\n",codepage,debugstr_w(lpszDisplayName),pbc,ppidl);
407 return E_FAIL;
408 }
409
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.