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  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include "config.h"
  23
  24 #include <stdarg.h>
  25 #include <stdio.h>
  26
  27 #include "wine/unicode.h"
  28 #include "wine/debug.h"
  29
  30 #include "shdocvw.h"
  31
  32 #include "winreg.h"
  33 #include "shlwapi.h"
  34
  35 #include "initguid.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  38
  39 LONG SHDOCVW_refCount = 0;
  40
  41 static const WCHAR szMozDlPath[] = {
  42     'S','o','f','t','w','a','r','e','\\','W','i','n','e','\\',
  43     's','h','d','o','c','v','w',0
  44 };
  45
  46 DEFINE_GUID( CLSID_MozillaBrowser, 0x1339B54C,0x3453,0x11D2,0x93,0xB9,0x00,0x00,0x00,0x00,0x00,0x00);
  47
  48 typedef HRESULT (WINAPI *fnGetClassObject)(REFCLSID rclsid, REFIID iid, LPVOID *ppv);
  49 typedef HRESULT (WINAPI *fnCanUnloadNow)(void);
  50
  51 HINSTANCE shdocvw_hinstance = 0;
  52 static HMODULE SHDOCVW_hshell32 = 0;
  53 static HMODULE hMozCtl = (HMODULE)~0UL;
  54
  55
  56 /* convert a guid to a wide character string */
  57 static void SHDOCVW_guid2wstr( const GUID *guid, LPWSTR wstr )
  58 {
  59     char str[40];
  60
  61     sprintf(str, "{%08lX-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
  62            guid->Data1, guid->Data2, guid->Data3,
  63            guid->Data4[0], guid->Data4[1], guid->Data4[2], guid->Data4[3],
  64            guid->Data4[4], guid->Data4[5], guid->Data4[6], guid->Data4[7] );
  65     MultiByteToWideChar( CP_ACP, 0, str, -1, wstr, 40 );
  66 }
  67
  68 static BOOL SHDOCVW_GetMozctlPath( LPWSTR szPath, DWORD sz )
  69 {
  70     DWORD r, type;
  71     BOOL ret = FALSE;
  72     HKEY hkey;
  73     static const WCHAR szPre[] = {
  74         'S','o','f','t','w','a','r','e','\\',
  75         'C','l','a','s','s','e','s','\\',
  76         'C','L','S','I','D','\\',0 };
  77     static const WCHAR szPost[] = {
  78         '\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0 };
  79     WCHAR szRegPath[(sizeof(szPre)+sizeof(szPost))/sizeof(WCHAR)+40];
  80
  81     strcpyW( szRegPath, szPre );
  82     SHDOCVW_guid2wstr( &CLSID_MozillaBrowser, &szRegPath[strlenW(szRegPath)] );
  83     strcatW( szRegPath, szPost );
  84
  85     TRACE("key = %s\n", debugstr_w( szRegPath ) );
  86
  87     r = RegOpenKeyW( HKEY_LOCAL_MACHINE, szRegPath, &hkey );
  88     if( r != ERROR_SUCCESS )
  89         return FALSE;
  90
  91     r = RegQueryValueExW( hkey, NULL, NULL, &type, (LPBYTE)szPath, &sz );
  92     ret = ( r == ERROR_SUCCESS ) && ( type == REG_SZ );
  93     RegCloseKey( hkey );
  94
  95     return ret;
  96 }
  97
  98 /*************************************************************************
  99  * SHDOCVW DllMain
 100  */
 101 BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)
 102 {
 103         TRACE("%p 0x%lx %p\n", hinst, fdwReason, fImpLoad);
 104         switch (fdwReason)
 105         {
 106           case DLL_PROCESS_ATTACH:
 107             shdocvw_hinstance = hinst;
 108             break;
 109           case DLL_PROCESS_DETACH:
 110             if (SHDOCVW_hshell32) FreeLibrary(SHDOCVW_hshell32);
 111             if (hMozCtl && hMozCtl != (HMODULE)~0UL) FreeLibrary(hMozCtl);
 112             break;
 113         }
 114         return TRUE;
 115 }
 116
 117 /*************************************************************************
 118  *              DllCanUnloadNow (SHDOCVW.@)
 119  */
 120 HRESULT WINAPI DllCanUnloadNow(void)
 121 {
 122     HRESULT moz_can_unload = S_OK;
 123     fnCanUnloadNow pCanUnloadNow;
 124
 125     if (hMozCtl)
 126     {
 127         pCanUnloadNow = (fnCanUnloadNow)
 128             GetProcAddress(hMozCtl, "DllCanUnloadNow");
 129         if (pCanUnloadNow)
 130             moz_can_unload = pCanUnloadNow();
 131     }
 132
 133     if (moz_can_unload == S_OK && SHDOCVW_refCount == 0)
 134         return S_OK;
 135
 136     return S_FALSE;
 137 }
 138
 139 /*************************************************************************
 140  *              SHDOCVW_TryDownloadMozillaControl
 141  */
 142 typedef struct _IBindStatusCallbackImpl {
 143     const IBindStatusCallbackVtbl *vtbl;
 144     LONG ref;
 145     HWND hDialog;
 146     BOOL *pbCancelled;
 147 } IBindStatusCallbackImpl;
 148
 149 static HRESULT WINAPI
 150 dlQueryInterface( IBindStatusCallback* This, REFIID riid, void** ppvObject )
 151 {
 152     if (ppvObject == NULL) return E_POINTER;
 153
 154     if( IsEqualIID(riid, &IID_IUnknown) ||
 155         IsEqualIID(riid, &IID_IBindStatusCallback))
 156     {
 157         IBindStatusCallback_AddRef( This );
 158         *ppvObject = This;
 159         return S_OK;
 160     }
 161     return E_NOINTERFACE;
 162 }
 163
 164 static ULONG WINAPI dlAddRef( IBindStatusCallback* iface )
 165 {
 166     IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;
 167
 168     SHDOCVW_LockModule();
 169
 170     return InterlockedIncrement( &This->ref );
 171 }
 172
 173 static ULONG WINAPI dlRelease( IBindStatusCallback* iface )
 174 {
 175     IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;
 176     DWORD ref = InterlockedDecrement( &This->ref );
 177
 178     if( !ref )
 179     {
 180         DestroyWindow( This->hDialog );
 181         HeapFree( GetProcessHeap(), 0, This );
 182     }
 183
 184     SHDOCVW_UnlockModule();
 185
 186     return ref;
 187 }
 188
 189 static HRESULT WINAPI
 190 dlOnStartBinding( IBindStatusCallback* iface, DWORD dwReserved, IBinding* pib)
 191 {
 192     ERR("\n");
 193     return S_OK;
 194 }
 195
 196 static HRESULT WINAPI
 197 dlGetPriority( IBindStatusCallback* iface, LONG* pnPriority)
 198 {
 199     ERR("\n");
 200     return S_OK;
 201 }
 202
 203 static HRESULT WINAPI
 204 dlOnLowResource( IBindStatusCallback* iface, DWORD reserved)
 205 {
 206     ERR("\n");
 207     return S_OK;
 208 }
 209
 210 static HRESULT WINAPI
 211 dlOnProgress( IBindStatusCallback* iface, ULONG ulProgress,
 212               ULONG ulProgressMax, ULONG ulStatusCode, LPCWSTR szStatusText)
 213 {
 214     IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;
 215     HWND hItem;
 216     LONG r;
 217
 218     hItem = GetDlgItem( This->hDialog, 1000 );
 219     if( hItem && ulProgressMax )
 220         SendMessageW(hItem,PBM_SETPOS,(ulProgress*100)/ulProgressMax,0);
 221
 222     hItem = GetDlgItem(This->hDialog, 104);
 223     if( hItem )
 224         SendMessageW(hItem,WM_SETTEXT, 0, (LPARAM) szStatusText);
 225
 226     SetLastError(0);
 227     r = GetWindowLongPtrW( This->hDialog, GWLP_USERDATA );
 228     if( r || GetLastError() )
 229     {
 230         *This->pbCancelled = TRUE;
 231         ERR("Cancelled\n");
 232         return E_ABORT;
 233     }
 234
 235     return S_OK;
 236 }
 237
 238 static HRESULT WINAPI
 239 dlOnStopBinding( IBindStatusCallback* iface, HRESULT hresult, LPCWSTR szError)
 240 {
 241     ERR("\n");
 242     return S_OK;
 243 }
 244
 245 static HRESULT WINAPI
 246 dlGetBindInfo( IBindStatusCallback* iface, DWORD* grfBINDF, BINDINFO* pbindinfo)
 247 {
 248     ERR("\n");
 249     return S_OK;
 250 }
 251
 252 static HRESULT WINAPI
 253 dlOnDataAvailable( IBindStatusCallback* iface, DWORD grfBSCF,
 254                    DWORD dwSize, FORMATETC* pformatetc, STGMEDIUM* pstgmed)
 255 {
 256     ERR("\n");
 257     return S_OK;
 258 }
 259
 260 static HRESULT WINAPI
 261 dlOnObjectAvailable( IBindStatusCallback* iface, REFIID riid, IUnknown* punk)
 262 {
 263     ERR("\n");
 264     return S_OK;
 265 }
 266
 267 static const IBindStatusCallbackVtbl dlVtbl =
 268 {
 269     dlQueryInterface,
 270     dlAddRef,
 271     dlRelease,
 272     dlOnStartBinding,
 273     dlGetPriority,
 274     dlOnLowResource,
 275     dlOnProgress,
 276     dlOnStopBinding,
 277     dlGetBindInfo,
 278     dlOnDataAvailable,
 279     dlOnObjectAvailable
 280 };
 281
 282 static IBindStatusCallback* create_dl(HWND dlg, BOOL *pbCancelled)
 283 {
 284     IBindStatusCallbackImpl *This;
 285
 286     This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
 287     This->vtbl = &dlVtbl;
 288     This->ref = 1;
 289     This->hDialog = dlg;
 290     This->pbCancelled = pbCancelled;
 291
 292     return (IBindStatusCallback*) This;
 293 }
 294
 295 static DWORD WINAPI ThreadFunc( LPVOID info )
 296 {
 297     IBindStatusCallback *dl;
 298     static const WCHAR szUrlVal[] = {'M','o','z','i','l','l','a','U','r','l',0};
 299     static const WCHAR szFileProtocol[] = {'f','i','l','e',':','/','/','/',0};
 300     WCHAR path[MAX_PATH], szUrl[MAX_PATH];
 301     LPWSTR p;
 302     STARTUPINFOW si;
 303     PROCESS_INFORMATION pi;
 304     HWND hDlg = info;
 305     DWORD r, sz, type;
 306     HKEY hkey;
 307     BOOL bCancelled = FALSE;
 308     BOOL bTempfile = FALSE;
 309
 310     /* find the name of the thing to download */
 311     szUrl[0] = 0;
 312     /* @@ Wine registry key: HKCU\Software\Wine\shdocvw */
 313     r = RegOpenKeyW( HKEY_CURRENT_USER, szMozDlPath, &hkey );
 314     if( r == ERROR_SUCCESS )
 315     {
 316         sz = MAX_PATH;
 317         r = RegQueryValueExW( hkey, szUrlVal, NULL, &type, (LPBYTE)szUrl, &sz );
 318         RegCloseKey( hkey );
 319     }
 320     if( r != ERROR_SUCCESS )
 321         goto end;
 322
 323     if( !strncmpW(szUrl, szFileProtocol, strlenW(szFileProtocol)) )
 324         lstrcpynW( path, szUrl+strlenW(szFileProtocol), MAX_PATH );
 325     else
 326     {
 327         /* built the path for the download */
 328         p = strrchrW( szUrl, '/' );
 329         if (!p)
 330             goto end;
 331         if (!GetTempPathW( MAX_PATH, path ))
 332             goto end;
 333         strcatW( path, p+1 );
 334
 335         /* download it */
 336         bTempfile = TRUE;
 337         dl = create_dl(info, &bCancelled);
 338         r = URLDownloadToFileW( NULL, szUrl, path, 0, dl );
 339         if( dl )
 340             IBindStatusCallback_Release( dl );
 341         if( (r != S_OK) || bCancelled )
 342             goto end;
 343     }
 344
 345     /* run it */
 346     memset( &si, 0, sizeof si );
 347     si.cb = sizeof si;
 348     r = CreateProcessW( path, NULL, NULL, NULL, 0, 0, NULL, NULL, &si, &pi );
 349     if( !r )
 350         goto end;
 351     WaitForSingleObject( pi.hProcess, INFINITE );
 352     CloseHandle( pi.hProcess );
 353     CloseHandle( pi.hThread );
 354
 355 end:
 356     if( bTempfile )
 357         DeleteFileW( path );
 358     EndDialog( hDlg, 0 );
 359     return 0;
 360 }
 361
 362 static INT_PTR CALLBACK
 363 dlProc ( HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
 364 {
 365     HANDLE hThread;
 366     DWORD ThreadId;
 367     HWND hItem;
 368
 369     switch (uMsg)
 370     {
 371     case WM_INITDIALOG:
 372         SetWindowLongPtrW( hwndDlg, GWLP_USERDATA, 0 );
 373         hItem = GetDlgItem(hwndDlg, 1000);
 374         if( hItem )
 375         {
 376             SendMessageW(hItem,PBM_SETRANGE,0,MAKELPARAM(0,100));
 377             SendMessageW(hItem,PBM_SETPOS,0,0);
 378         }
 379         hThread = CreateThread(NULL,0,ThreadFunc,hwndDlg,0,&ThreadId);
 380         if (!hThread)
 381             return FALSE;
 382         return TRUE;
 383     case WM_COMMAND:
 384         if( wParam == IDCANCEL )
 385             SetWindowLongPtrW( hwndDlg, GWLP_USERDATA, 1 );
 386         return FALSE;
 387     default:
 388         return FALSE;
 389     }
 390 }
 391
 392 static BOOL SHDOCVW_TryDownloadMozillaControl(void)
 393 {
 394     DWORD r;
 395     WCHAR buf[0x100];
 396     static const WCHAR szWine[] = { 'W','i','n','e',0 };
 397     HANDLE hsem;
 398
 399     SetLastError( ERROR_SUCCESS );
 400     hsem = CreateSemaphoreA( NULL, 0, 1, "mozctl_install_semaphore");
 401     if( GetLastError() != ERROR_ALREADY_EXISTS )
 402     {
 403         LoadStringW( shdocvw_hinstance, 1001, buf, sizeof buf/sizeof(WCHAR) );
 404         r = MessageBoxW(NULL, buf, szWine, MB_YESNO | MB_ICONQUESTION);
 405         if( r != IDYES )
 406             return FALSE;
 407
 408         DialogBoxW(shdocvw_hinstance, MAKEINTRESOURCEW(100), 0, dlProc);
 409     }
 410     else
 411         WaitForSingleObject( hsem, INFINITE );
 412     ReleaseSemaphore( hsem, 1, NULL );
 413     CloseHandle( hsem );
 414
 415     return TRUE;
 416 }
 417
 418 static BOOL SHDOCVW_TryLoadMozillaControl(void)
 419 {
 420     WCHAR szPath[MAX_PATH];
 421     BOOL bTried = FALSE;
 422
 423     if( hMozCtl != (HMODULE)~0UL )
 424         return hMozCtl ? TRUE : FALSE;
 425
 426     while( 1 )
 427     {
 428         if( SHDOCVW_GetMozctlPath( szPath, sizeof szPath ) )
 429         {
 430             hMozCtl = LoadLibraryExW(szPath, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
 431             if( hMozCtl )
 432                 return TRUE;
 433         }
 434         if( bTried )
 435         {
 436             MESSAGE("You need to install the Mozilla ActiveX control to\n");
 437             MESSAGE("use Wine's builtin CLSID_WebBrowser from SHDOCVW.DLL\n");
 438             return FALSE;
 439         }
 440         SHDOCVW_TryDownloadMozillaControl();
 441         bTried = TRUE;
 442     }
 443 }
 444
 445 /*************************************************************************
 446  *              DllGetClassObject (SHDOCVW.@)
 447  */
 448 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
 449 {
 450     TRACE("\n");
 451
 452     if( IsEqualGUID( &CLSID_WebBrowser, rclsid ) &&
 453         SHDOCVW_TryLoadMozillaControl() )
 454     {
 455         HRESULT r;
 456         fnGetClassObject pGetClassObject;
 457
 458         TRACE("WebBrowser class %s\n", debugstr_guid(rclsid) );
 459
 460         pGetClassObject = (fnGetClassObject)
 461             GetProcAddress( hMozCtl, "DllGetClassObject" );
 462
 463         if( !pGetClassObject )
 464             return CLASS_E_CLASSNOTAVAILABLE;
 465         r = pGetClassObject( &CLSID_MozillaBrowser, riid, ppv );
 466
 467         TRACE("r = %08lx  *ppv = %p\n", r, *ppv );
 468
 469         return r;
 470     }
 471
 472     if (IsEqualCLSID(&CLSID_WebBrowser, rclsid) &&
 473         IsEqualIID(&IID_IClassFactory, riid))
 474     {
 475         /* Pass back our shdocvw class factory */
 476         *ppv = (LPVOID)&SHDOCVW_ClassFactory;
 477         IClassFactory_AddRef((IClassFactory*)&SHDOCVW_ClassFactory);
 478
 479         return S_OK;
 480     }
 481
 482     /* As a last resort, figure if the CLSID belongs to a 'Shell Instance Object' */
 483     return SHDOCVW_GetShellInstanceObjectClassObject(rclsid, riid, ppv);
 484 }
 485
 486 /***********************************************************************
 487  *              DllGetVersion (SHDOCVW.@)
 488  */
 489 HRESULT WINAPI DllGetVersion(DLLVERSIONINFO *info)
 490 {
 491     if (info->cbSize != sizeof(DLLVERSIONINFO)) FIXME("support DLLVERSIONINFO2\n");
 492
 493     /* this is what IE6 on Windows 98 reports */
 494     info->dwMajorVersion = 6;
 495     info->dwMinorVersion = 0;
 496     info->dwBuildNumber = 2600;
 497     info->dwPlatformID = DLLVER_PLATFORM_WINDOWS;
 498
 499     return NOERROR;
 500 }
 501
 502 /*************************************************************************
 503  *              DllInstall (SHDOCVW.@)
 504  */
 505 HRESULT WINAPI DllInstall(BOOL bInstall, LPCWSTR cmdline)
 506 {
 507    FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
 508
 509    return S_OK;
 510 }
 511
 512 /*************************************************************************
 513  * SHDOCVW_LoadShell32
 514  *
 515  * makes sure the handle to shell32 is valid
 516  */
 517  BOOL SHDOCVW_LoadShell32(void)
 518 {
 519      if (SHDOCVW_hshell32)
 520        return TRUE;
 521      return ((SHDOCVW_hshell32 = LoadLibraryA("shell32.dll")) != NULL);
 522 }
 523
 524 /***********************************************************************
 525  *              @ (SHDOCVW.110)
 526  *
 527  * Called by Win98 explorer.exe main binary, definitely has 0
 528  * parameters.
 529  */
 530 DWORD WINAPI WinList_Init(void)
 531 {
 532     FIXME("(), stub!\n");
 533     return 0x0deadfeed;
 534 }
 535
 536 /***********************************************************************
 537  *              @ (SHDOCVW.118)
 538  *
 539  * Called by Win98 explorer.exe main binary, definitely has only one
 540  * parameter.
 541  */
 542 static BOOL (WINAPI *pShellDDEInit)(BOOL start) = NULL;
 543
 544 BOOL WINAPI ShellDDEInit(BOOL start)
 545 {
 546     TRACE("(%d)\n", start);
 547
 548     if (!pShellDDEInit)
 549     {
 550       if (!SHDOCVW_LoadShell32())
 551         return FALSE;
 552       pShellDDEInit = GetProcAddress(SHDOCVW_hshell32, (LPCSTR)188);
 553     }
 554
 555     if (pShellDDEInit)
 556       return pShellDDEInit(start);
 557     else
 558       return FALSE;
 559 }
 560
 561 /***********************************************************************
 562  *              @ (SHDOCVW.125)
 563  *
 564  * Called by Win98 explorer.exe main binary, definitely has 0
 565  * parameters.
 566  */
 567 DWORD WINAPI RunInstallUninstallStubs(void)
 568 {
 569     FIXME("(), stub!\n");
 570     return 0x0deadbee;
 571 }
 572
 573 /***********************************************************************
 574  *              SetQueryNetSessionCount (SHDOCVW.@)
 575  */
 576 DWORD WINAPI SetQueryNetSessionCount(DWORD arg)
 577 {
 578     FIXME("(%lu), stub!\n", arg);
 579     return 0;
 580 }
 581
 582 /**********************************************************************
 583  * OpenURL  (SHDOCVW.@)
 584  */
 585 void WINAPI OpenURL(HWND hWnd, HINSTANCE hInst, LPCSTR lpcstrUrl, int nShowCmd)
 586 {
 587     FIXME("%p %p %s %d\n", hWnd, hInst, debugstr_a(lpcstrUrl), nShowCmd);
 588 }