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
  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 }