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