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