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 #include "isguids.h"
  37
  38 #include "initguid.h"
  39
  40 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  41
  42 LONG SHDOCVW_refCount = 0;
  43
  44 HINSTANCE shdocvw_hinstance = 0;
  45 static HMODULE SHDOCVW_hshell32 = 0;
  46 static HINSTANCE ieframe_instance;
  47
  48 static HINSTANCE get_ieframe_instance(void)
  49 {
  50     static const WCHAR ieframe_dllW[] = {'i','e','f','r','a','m','e','.','d','l','l',0};
  51
  52     if(!ieframe_instance)
  53         ieframe_instance = LoadLibraryW(ieframe_dllW);
  54
  55     return ieframe_instance;
  56 }
  57
  58 static HRESULT get_ieframe_object(REFCLSID rclsid, REFIID riid, void **ppv)
  59 {
  60     HINSTANCE ieframe_instance;
  61
  62     static HRESULT (WINAPI *ieframe_DllGetClassObject)(REFCLSID,REFIID,void**);
  63
  64     if(!ieframe_DllGetClassObject) {
  65         ieframe_instance = get_ieframe_instance();
  66         if(!ieframe_instance)
  67             return CLASS_E_CLASSNOTAVAILABLE;
  68
  69         ieframe_DllGetClassObject = (void*)GetProcAddress(ieframe_instance, "DllGetClassObject");
  70         if(!ieframe_DllGetClassObject)
  71             return CLASS_E_CLASSNOTAVAILABLE;
  72     }
  73
  74     return ieframe_DllGetClassObject(rclsid, riid, ppv);
  75 }
  76
  77 /*************************************************************************
  78  *              DllGetClassObject (SHDOCVW.@)
  79  */
  80 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, void **ppv)
  81 {
  82     TRACE("\n");
  83
  84     if(IsEqualGUID(&CLSID_WebBrowser, rclsid)
  85        || IsEqualGUID(&CLSID_WebBrowser_V1, rclsid)
  86        || IsEqualGUID(&CLSID_InternetShortcut, rclsid)
  87        || IsEqualGUID(&CLSID_CUrlHistory, rclsid)
  88        || IsEqualGUID(&CLSID_TaskbarList, rclsid))
  89         return get_ieframe_object(rclsid, riid, ppv);
  90
  91     /* As a last resort, figure if the CLSID belongs to a 'Shell Instance Object' */
  92     return SHDOCVW_GetShellInstanceObjectClassObject(rclsid, riid, ppv);
  93 }
  94
  95 /***********************************************************************
  96  *          DllRegisterServer (shdocvw.@)
  97  */
  98 HRESULT WINAPI DllRegisterServer(void)
  99 {
 100     TRACE("\n");
 101     return S_OK;
 102 }
 103
 104 /***********************************************************************
 105  *          DllUnregisterServer (shdocvw.@)
 106  */
 107 HRESULT WINAPI DllUnregisterServer(void)
 108 {
 109     TRACE("\n");
 110     return S_OK;
 111 }
 112
 113 /******************************************************************
 114  *             IEWinMain            (SHDOCVW.101)
 115  *
 116  * Only returns on error.
 117  */
 118 DWORD WINAPI IEWinMain(LPSTR szCommandLine, int nShowWindow)
 119 {
 120     DWORD (WINAPI *pIEWinMain)(const WCHAR*,int);
 121     WCHAR *cmdline;
 122     DWORD ret, len;
 123
 124     TRACE("%s %d\n", debugstr_a(szCommandLine), nShowWindow);
 125
 126     pIEWinMain = (void*)GetProcAddress(get_ieframe_instance(), MAKEINTRESOURCEA(101));
 127     if(!pIEWinMain)
 128         ExitProcess(1);
 129
 130     len = MultiByteToWideChar(CP_ACP, 0, szCommandLine, -1, NULL, 0);
 131     cmdline = heap_alloc(len*sizeof(WCHAR));
 132     if(!cmdline)
 133         ExitProcess(1);
 134     MultiByteToWideChar(CP_ACP, 0, szCommandLine, -1, cmdline, len);
 135
 136     ret = pIEWinMain(cmdline, nShowWindow);
 137
 138     heap_free(cmdline);
 139     return ret;
 140 }
 141
 142 /*************************************************************************
 143  * SHDOCVW DllMain
 144  */
 145 BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)
 146 {
 147     TRACE("%p 0x%x %p\n", hinst, fdwReason, fImpLoad);
 148     switch (fdwReason)
 149     {
 150         case DLL_PROCESS_ATTACH:
 151         shdocvw_hinstance = hinst;
 152         break;
 153     case DLL_PROCESS_DETACH:
 154         if (SHDOCVW_hshell32) FreeLibrary(SHDOCVW_hshell32);
 155         if(ieframe_instance)
 156             FreeLibrary(ieframe_instance);
 157         break;
 158     }
 159     return TRUE;
 160 }
 161
 162 /*************************************************************************
 163  *              DllCanUnloadNow (SHDOCVW.@)
 164  */
 165 HRESULT WINAPI DllCanUnloadNow(void)
 166 {
 167     return SHDOCVW_refCount ? S_FALSE : S_OK;
 168 }
 169
 170 /***********************************************************************
 171  *              DllGetVersion (SHDOCVW.@)
 172  */
 173 HRESULT WINAPI DllGetVersion(DLLVERSIONINFO *info)
 174 {
 175     if (info->cbSize != sizeof(DLLVERSIONINFO)) FIXME("support DLLVERSIONINFO2\n");
 176
 177     /* this is what IE6 on Windows 98 reports */
 178     info->dwMajorVersion = 6;
 179     info->dwMinorVersion = 0;
 180     info->dwBuildNumber = 2600;
 181     info->dwPlatformID = DLLVER_PLATFORM_WINDOWS;
 182
 183     return NOERROR;
 184 }
 185
 186 /*************************************************************************
 187  *              DllInstall (SHDOCVW.@)
 188  */
 189 HRESULT WINAPI DllInstall(BOOL bInstall, LPCWSTR cmdline)
 190 {
 191    FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
 192
 193    return S_OK;
 194 }
 195
 196 /*************************************************************************
 197  * SHDOCVW_LoadShell32
 198  *
 199  * makes sure the handle to shell32 is valid
 200  */
 201 static BOOL SHDOCVW_LoadShell32(void)
 202 {
 203      if (SHDOCVW_hshell32)
 204        return TRUE;
 205      return ((SHDOCVW_hshell32 = LoadLibraryA("shell32.dll")) != NULL);
 206 }
 207
 208 /***********************************************************************
 209  *              @ (SHDOCVW.110)
 210  *
 211  * Called by Win98 explorer.exe main binary, definitely has 0
 212  * parameters.
 213  */
 214 DWORD WINAPI WinList_Init(void)
 215 {
 216     FIXME("(), stub!\n");
 217     return 0x0deadfeed;
 218 }
 219
 220 /***********************************************************************
 221  *              @ (SHDOCVW.118)
 222  *
 223  * Called by Win98 explorer.exe main binary, definitely has only one
 224  * parameter.
 225  */
 226 static BOOL (WINAPI *pShellDDEInit)(BOOL start) = NULL;
 227
 228 BOOL WINAPI ShellDDEInit(BOOL start)
 229 {
 230     TRACE("(%d)\n", start);
 231
 232     if (!pShellDDEInit)
 233     {
 234       if (!SHDOCVW_LoadShell32())
 235         return FALSE;
 236       pShellDDEInit = (void *)GetProcAddress(SHDOCVW_hshell32, (LPCSTR)188);
 237     }
 238
 239     if (pShellDDEInit)
 240       return pShellDDEInit(start);
 241     else
 242       return FALSE;
 243 }
 244
 245 /***********************************************************************
 246  *              @ (SHDOCVW.125)
 247  *
 248  * Called by Win98 explorer.exe main binary, definitely has 0
 249  * parameters.
 250  */
 251 DWORD WINAPI RunInstallUninstallStubs(void)
 252 {
 253     FIXME("(), stub!\n");
 254     return 0x0deadbee;
 255 }
 256
 257 /***********************************************************************
 258  *              @ (SHDOCVW.130)
 259  *
 260  * Called by Emerge Desktop (alternative Windows Shell).
 261  */
 262 DWORD WINAPI RunInstallUninstallStubs2(void)
 263 {
 264     FIXME("(), stub!\n");
 265     return 0x0deadbee;
 266 }
 267
 268 /***********************************************************************
 269  *              SetQueryNetSessionCount (SHDOCVW.@)
 270  */
 271 DWORD WINAPI SetQueryNetSessionCount(DWORD arg)
 272 {
 273     FIXME("(%u), stub!\n", arg);
 274     return 0;
 275 }
 276
 277 /**********************************************************************
 278  * Some forwards (by ordinal) to SHLWAPI
 279  */
 280
 281 static void* fetch_shlwapi_ordinal(UINT_PTR ord)
 282 {
 283     static const WCHAR shlwapiW[] = {'s','h','l','w','a','p','i','.','d','l','l','\0'};
 284     static HANDLE h;
 285
 286     if (!h && !(h = GetModuleHandleW(shlwapiW))) return NULL;
 287     return (void*)GetProcAddress(h, (const char*)ord);
 288 }
 289
 290 /******************************************************************
 291  *              WhichPlatformFORWARD            (SHDOCVW.@)
 292  */
 293 DWORD WINAPI WhichPlatformFORWARD(void)
 294 {
 295     static DWORD (WINAPI *p)(void);
 296
 297     if (p || (p = fetch_shlwapi_ordinal(276))) return p();
 298     return 1; /* not integrated, see shlwapi.WhichPlatform */
 299 }
 300
 301 /******************************************************************
 302  *              StopWatchModeFORWARD            (SHDOCVW.@)
 303  */
 304 void WINAPI StopWatchModeFORWARD(void)
 305 {
 306     static void (WINAPI *p)(void);
 307
 308     if (p || (p = fetch_shlwapi_ordinal(241))) p();
 309 }
 310
 311 /******************************************************************
 312  *              StopWatchFlushFORWARD            (SHDOCVW.@)
 313  */
 314 void WINAPI StopWatchFlushFORWARD(void)
 315 {
 316     static void (WINAPI *p)(void);
 317
 318     if (p || (p = fetch_shlwapi_ordinal(242))) p();
 319 }
 320
 321 /******************************************************************
 322  *              StopWatchWFORWARD            (SHDOCVW.@)
 323  */
 324 DWORD WINAPI StopWatchWFORWARD(DWORD dwClass, LPCWSTR lpszStr, DWORD dwUnknown,
 325                                DWORD dwMode, DWORD dwTimeStamp)
 326 {
 327     static DWORD (WINAPI *p)(DWORD, LPCWSTR, DWORD, DWORD, DWORD);
 328
 329     if (p || (p = fetch_shlwapi_ordinal(243)))
 330         return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
 331     return ERROR_CALL_NOT_IMPLEMENTED;
 332 }
 333
 334 /******************************************************************
 335  *              StopWatchAFORWARD            (SHDOCVW.@)
 336  */
 337 DWORD WINAPI StopWatchAFORWARD(DWORD dwClass, LPCSTR lpszStr, DWORD dwUnknown,
 338                                DWORD dwMode, DWORD dwTimeStamp)
 339 {
 340     static DWORD (WINAPI *p)(DWORD, LPCSTR, DWORD, DWORD, DWORD);
 341
 342     if (p || (p = fetch_shlwapi_ordinal(244)))
 343         return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
 344     return ERROR_CALL_NOT_IMPLEMENTED;
 345 }
 346
 347 /******************************************************************
 348  *  URLSubRegQueryA (SHDOCVW.151)
 349  */
 350 HRESULT WINAPI URLSubRegQueryA(LPCSTR regpath, LPCSTR name, DWORD type,
 351                                LPSTR out, DWORD outlen, DWORD unknown)
 352 {
 353     CHAR buffer[INTERNET_MAX_URL_LENGTH];
 354     DWORD len;
 355     LONG res;
 356
 357     TRACE("(%s, %s, %d, %p, %d, %d)\n", debugstr_a(regpath), debugstr_a(name),
 358             type, out, outlen, unknown);
 359
 360     if (!out) return S_OK;
 361
 362     len = sizeof(buffer);
 363     res = SHRegGetUSValueA(regpath, name, NULL, buffer,  &len, FALSE, NULL, 0);
 364     if (!res) {
 365         lstrcpynA(out, buffer, outlen);
 366         return S_OK;
 367     }
 368
 369     return E_FAIL;
 370 }
 371
 372 /******************************************************************
 373  *  ParseURLFromOutsideSourceW (SHDOCVW.170)
 374  */
 375 DWORD WINAPI ParseURLFromOutsideSourceW(LPCWSTR url, LPWSTR out, LPDWORD plen, LPDWORD unknown)
 376 {
 377     WCHAR buffer_in[INTERNET_MAX_URL_LENGTH];
 378     WCHAR buffer_out[INTERNET_MAX_URL_LENGTH];
 379     LPCWSTR ptr = url;
 380     HRESULT hr;
 381     DWORD needed;
 382     DWORD len;
 383     DWORD res = 0;
 384
 385
 386     TRACE("(%s, %p, %p, %p) len: %d, unknown: 0x%x\n", debugstr_w(url), out, plen, unknown,
 387             plen ? *plen : 0, unknown ? *unknown : 0);
 388
 389     if (!PathIsURLW(ptr)) {
 390         len = sizeof(buffer_in) / sizeof(buffer_in[0]);
 391         buffer_in[0] = 0;
 392         hr = UrlApplySchemeW(ptr, buffer_in, &len, URL_APPLY_GUESSSCHEME | URL_APPLY_DEFAULT);
 393         TRACE("got 0x%x with %s\n", hr, debugstr_w(buffer_in));
 394         if (hr == S_OK) {
 395             /* we parsed the url to buffer_in */
 396             ptr = buffer_in;
 397         }
 398         else
 399         {
 400             FIXME("call search hook for %s\n", debugstr_w(ptr));
 401         }
 402     }
 403
 404     len = sizeof(buffer_out) / sizeof(buffer_out[0]);
 405     buffer_out[0] = '\0';
 406     hr = UrlCanonicalizeW(ptr, buffer_out, &len, URL_ESCAPE_SPACES_ONLY);
 407     needed = lstrlenW(buffer_out)+1;
 408     TRACE("got 0x%x with %s (need %d)\n", hr, debugstr_w(buffer_out), needed);
 409
 410     if (*plen >= needed) {
 411         if (out != NULL) {
 412             lstrcpyW(out, buffer_out);
 413             res++;
 414         }
 415         needed--;
 416     }
 417
 418     *plen = needed;
 419
 420     TRACE("=> %d\n", res);
 421     return res;
 422 }
 423
 424 /******************************************************************
 425  *  ParseURLFromOutsideSourceA (SHDOCVW.169)
 426  *
 427  * See ParseURLFromOutsideSourceW
 428  */
 429 DWORD WINAPI ParseURLFromOutsideSourceA(LPCSTR url, LPSTR out, LPDWORD plen, LPDWORD unknown)
 430 {
 431     WCHAR buffer[INTERNET_MAX_URL_LENGTH];
 432     LPWSTR urlW = NULL;
 433     DWORD needed;
 434     DWORD res;
 435     DWORD len;
 436
 437     TRACE("(%s, %p, %p, %p) len: %d, unknown: 0x%x\n", debugstr_a(url), out, plen, unknown,
 438             plen ? *plen : 0, unknown ? *unknown : 0);
 439
 440     if (url) {
 441         len = MultiByteToWideChar(CP_ACP, 0, url, -1, NULL, 0);
 442         urlW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
 443         MultiByteToWideChar(CP_ACP, 0, url, -1, urlW, len);
 444     }
 445
 446     len = sizeof(buffer) / sizeof(buffer[0]);
 447     res = ParseURLFromOutsideSourceW(urlW, buffer, &len, unknown);
 448     HeapFree(GetProcessHeap(), 0, urlW);
 449
 450     needed = WideCharToMultiByte(CP_ACP, 0, buffer, -1, NULL, 0, NULL, NULL);
 451
 452     res = 0;
 453     if (*plen >= needed) {
 454         if (out != NULL) {
 455             WideCharToMultiByte(CP_ACP, 0, buffer, -1, out, *plen, NULL, NULL);
 456             res = needed;
 457         }
 458         needed--;
 459     }
 460
 461     *plen = needed;
 462
 463     TRACE("=> %d\n", res);
 464     return res;
 465 }
 466
 467 /******************************************************************
 468  *  IEParseDisplayNameWithBCW (SHDOCVW.218)
 469  */
 470 HRESULT WINAPI IEParseDisplayNameWithBCW(DWORD codepage, LPCWSTR lpszDisplayName, LPBC pbc, LPITEMIDLIST *ppidl)
 471 {
 472     /* Guessing at parameter 3 based on IShellFolder's  ParseDisplayName */
 473     FIXME("stub: 0x%x %s %p %p\n",codepage,debugstr_w(lpszDisplayName),pbc,ppidl);
 474     return E_FAIL;
 475 }
 476
 477 /******************************************************************
 478  *  SHRestricted2W (SHDOCVW.159)
 479  */
 480 DWORD WINAPI SHRestricted2W(DWORD res, LPCWSTR url, DWORD reserved)
 481 {
 482     FIXME("(%d %s %d) stub\n", res, debugstr_w(url), reserved);
 483     return 0;
 484 }
 485
 486 /******************************************************************
 487  * SHRestricted2A (SHDOCVW.158)
 488  *
 489  * See SHRestricted2W
 490  */
 491 DWORD WINAPI SHRestricted2A(DWORD restriction, LPCSTR url, DWORD reserved)
 492 {
 493     LPWSTR urlW = NULL;
 494     DWORD res;
 495
 496     TRACE("(%d, %s, %d)\n", restriction, debugstr_a(url), reserved);
 497     if (url) {
 498         DWORD len = MultiByteToWideChar(CP_ACP, 0, url, -1, NULL, 0);
 499         urlW = heap_alloc(len * sizeof(WCHAR));
 500         MultiByteToWideChar(CP_ACP, 0, url, -1, urlW, len);
 501     }
 502     res = SHRestricted2W(restriction, urlW, reserved);
 503     heap_free(urlW);
 504     return res;
 505 }
 506
 507 /******************************************************************
 508  * ImportPrivacySettings (SHDOCVW.@)
 509  *
 510  * Import global and/or per site privacy preferences from an xml file
 511  *
 512  * PARAMS
 513  *  filename      [I] XML file to use
 514  *  pGlobalPrefs  [IO] PTR to a usage flag for the global privacy preferences
 515  *  pPerSitePrefs [IO] PTR to a usage flag for the per site privacy preferences
 516  *
 517  * RETURNS
 518  *  Success: TRUE  (the privacy preferences where updated)
 519  *  Failure: FALSE (the privacy preferences are unchanged)
 520  *
 521  * NOTES
 522  *  Set the flag to TRUE, when the related privacy preferences in the xml file
 523  *  should be used (parsed and overwrite the current settings).
 524  *  On return, the flag is TRUE, when the related privacy settings where used
 525  *
 526  */
 527 BOOL WINAPI ImportPrivacySettings(LPCWSTR filename, BOOL *pGlobalPrefs, BOOL * pPerSitePrefs)
 528 {
 529     FIXME("(%s, %p->%d, %p->%d): stub\n", debugstr_w(filename),
 530         pGlobalPrefs, pGlobalPrefs ? *pGlobalPrefs : 0,
 531         pPerSitePrefs, pPerSitePrefs ? *pPerSitePrefs : 0);
 532
 533     if (pGlobalPrefs) *pGlobalPrefs = FALSE;
 534     if (pPerSitePrefs) *pPerSitePrefs = FALSE;
 535
 536     return TRUE;
 537 }