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