mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1538 lines
46 KiB
1538 lines
46 KiB
//+---------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
// Copyright (C) Microsoft Corporation, 1994
|
|
//
|
|
// File: persist.cxx
|
|
//
|
|
// Contents: Implmentation of Office9 Thicket Save API
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
#include "priv.h"
|
|
|
|
//#include "headers.hxx"
|
|
//#include "formkrnl.hxx"
|
|
#include <platform.h>
|
|
#include <mlang.h>
|
|
#include "resource.h"
|
|
#include "impexp.h"
|
|
#include "reload.h"
|
|
//#include <siterc.h>
|
|
#include "packager.h"
|
|
#include "iehelpid.h"
|
|
#include "thicket.h"
|
|
#include "apithk.h"
|
|
|
|
#include <mluisupp.h>
|
|
#include <mshtmcid.h>
|
|
|
|
#define NUM_OLE_CMDS 1
|
|
|
|
#define SAVEAS_OK 0x00000001
|
|
#define SAVEAS_NEVER_ASK_AGAIN 0x00000002
|
|
|
|
#define CODEPAGE_UNICODE 0x000004B0
|
|
#define CODEPAGE_UTF8 0x0000FDE9
|
|
#define UNICODE_TEXT TEXT("Unicode")
|
|
|
|
#define REGSTR_VAL_SAVEDIRECTORY TEXT("Save Directory")
|
|
#define REGKEY_SAVEAS_WARNING_RESTRICTION TEXT("SOFTWARE\\Microsoft\\Internet Explorer\\Main")
|
|
#define REGVALUE_SAVEAS_WARNING TEXT("NoSaveAsPOSTWarning")
|
|
|
|
#define WM_WORKER_THREAD_COMPLETED WM_USER + 1000
|
|
|
|
#define MAX_ENCODING_DESC_LEN 1024
|
|
|
|
|
|
const static DWORD aSaveAsHelpIDs[] =
|
|
{
|
|
IDC_SAVE_CHARSET, IDH_CHAR_SET_SAVE_AS,
|
|
0, 0
|
|
};
|
|
|
|
INT_PTR CALLBACK SaveAsWarningDlgProc(HWND hDlg, UINT msg, WPARAM wParam,
|
|
LPARAM lParam);
|
|
|
|
HRESULT SaveToThicket( HWND hwnd, LPCTSTR pszFileName, IHTMLDocument2 *pDoc,
|
|
UINT codepageSrc, UINT codepageDst,
|
|
UINT iPackageStyle );
|
|
|
|
HRESULT
|
|
FormsGetFileName(
|
|
HWND hwndOwner,
|
|
LPTSTR pstrFile,
|
|
int cchFile,
|
|
LPARAM lCustData,
|
|
DWORD *pnFilterIndex,
|
|
BOOL bForceHTMLOnly);
|
|
HRESULT
|
|
GetFileNameFromURL( LPWSTR pwszURL, LPTSTR pszFile, DWORD cchFile);
|
|
|
|
void ReportThicketError( HWND hwnd, HRESULT hr );
|
|
|
|
#define DOWNLOAD_PROGRESS 0x9001
|
|
#define DOWNLOAD_COMPLETE 0x9002
|
|
#define THICKET_TIMER 0x9003
|
|
#define THICKET_INTERVAL 1000
|
|
|
|
#define MDLGMSG(psz, x) TraceMsg(0, "shd TR-MODELESS::%s %x", psz, x)
|
|
|
|
static DWORD s_dwInetComVerMS = 0;
|
|
static DWORD s_dwInetComVerLS = 0;
|
|
|
|
struct ThicketCPInfo
|
|
{
|
|
UINT cpSrc;
|
|
UINT cpDst;
|
|
LPWSTR lpwstrDocCharSet;
|
|
};
|
|
|
|
class CThicketUI
|
|
{
|
|
public:
|
|
CThicketUI(void) :
|
|
_hDlg(NULL),
|
|
_hWndProg(NULL),
|
|
_iErrorDL(0),
|
|
_hrDL(E_FAIL),
|
|
#ifndef NO_MARSHALLING
|
|
_pstmDoc(NULL),
|
|
#else
|
|
_pDoc(NULL),
|
|
#endif
|
|
_pszFileName(NULL),
|
|
_dwDLMax(0),
|
|
_codepageSrc(0),
|
|
_codepageDst(0),
|
|
_iPackageStyle(PACKAGE_THICKET),
|
|
_fCancel(FALSE) {};
|
|
|
|
~CThicketUI(void)
|
|
{
|
|
#ifndef NO_MARSHALLING
|
|
SAFERELEASE(_pstmDoc);
|
|
#endif
|
|
SAFELOCALFREE(_pszFileName);
|
|
};
|
|
|
|
// CThicketUI methods
|
|
HRESULT SaveDocument( HWND hWnd, LPCTSTR pszFileName, IHTMLDocument2 *pDoc,
|
|
UINT codepageSrc, UINT codepageDst,
|
|
UINT iPackageStyle );
|
|
|
|
protected:
|
|
static BOOL_PTR ThicketUIDlgProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam);
|
|
static DWORD WINAPI ThicketUIThreadProc( LPVOID );
|
|
|
|
BOOL DlgProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam);
|
|
|
|
HWND _hDlg;
|
|
HWND _hWndProg;
|
|
int _iErrorDL;
|
|
HRESULT _hrDL;
|
|
#ifndef UNIX
|
|
IStream *_pstmDoc; // marshalled IHTMLDocument2
|
|
#else
|
|
IHTMLDocument2 *_pDoc;
|
|
#endif
|
|
LPTSTR _pszFileName;
|
|
DWORD _dwDLMax;
|
|
UINT _codepageSrc;
|
|
UINT _codepageDst;
|
|
BOOL _fThreadStarted;
|
|
UINT _iPackageStyle;
|
|
BOOL _fCancel;
|
|
};
|
|
|
|
HRESULT
|
|
CThicketUI::SaveDocument( HWND hWnd, LPCTSTR pszFileName, IHTMLDocument2 *pDoc,
|
|
UINT codepageSrc, UINT codepageDst,
|
|
UINT iPackageStyle)
|
|
{
|
|
_pszFileName = StrDup(pszFileName);
|
|
_codepageSrc = codepageSrc;
|
|
_codepageDst = codepageDst;
|
|
_iPackageStyle = iPackageStyle;
|
|
|
|
#ifndef NO_MARSHALLING
|
|
// We don't do anything with pDoc until we're on the worker thread,
|
|
// so marshall it.
|
|
_hrDL = CoMarshalInterThreadInterfaceInStream(IID_IHTMLDocument2, pDoc, &_pstmDoc);
|
|
|
|
if (SUCCEEDED(_hrDL))
|
|
#else
|
|
_pDoc = pDoc;
|
|
#endif
|
|
{
|
|
// Needs to be modal cuz we're going to work with pDoc on the worker thread
|
|
// so we don't want the user to navigate away from it, close the window, etc.
|
|
DialogBoxParam(MLGetHinst(), MAKEINTRESOURCE(IDD_SAVETHICKET),
|
|
hWnd, CThicketUI::ThicketUIDlgProc, (LPARAM)this);
|
|
|
|
// HWND hwnd = MLCreateDialogParamWrap(MLGetHinst(), MAKEINTRESOURCE(IDD_SAVETHICKET),
|
|
// NULL, CThicketUI::ThicketUIDlgProc, (LPARAM)this);
|
|
// if (!hwnd)
|
|
// _hrDL = E_FAIL;
|
|
}
|
|
|
|
return _hrDL;
|
|
}
|
|
|
|
BOOL_PTR
|
|
CThicketUI::ThicketUIDlgProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam)
|
|
{
|
|
BOOL fRet = FALSE;
|
|
CThicketUI* ptui = NULL;
|
|
|
|
if (msg == WM_INITDIALOG)
|
|
{
|
|
ptui = (CThicketUI*)lParam;
|
|
}
|
|
else
|
|
ptui = (CThicketUI*)GetWindowLongPtr(hDlg, DWLP_USER);
|
|
|
|
if (ptui)
|
|
{
|
|
fRet = ptui->DlgProc(hDlg, msg, wParam, lParam);
|
|
|
|
if (msg == WM_DESTROY || msg == WM_WORKER_THREAD_COMPLETED)
|
|
{
|
|
SetWindowLongPtr(hDlg, DWLP_USER, lParam);
|
|
fRet = TRUE;
|
|
}
|
|
}
|
|
|
|
return fRet;
|
|
}
|
|
|
|
BOOL
|
|
CThicketUI::DlgProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam)
|
|
{
|
|
BOOL fRet = TRUE;
|
|
|
|
switch (msg)
|
|
{
|
|
case WM_INITDIALOG:
|
|
_hDlg = hDlg;
|
|
_hWndProg = GetDlgItem(hDlg, IDC_THICKETPROGRESS);
|
|
SetWindowLongPtr(hDlg, DWLP_USER, lParam);
|
|
|
|
_hrDL = S_FALSE;
|
|
|
|
#ifndef NO_MARSHALLING
|
|
//_hThread = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE) ThicketUIThreadProc, this, 0, &_idThread);
|
|
if (!(_fThreadStarted = SHQueueUserWorkItem(ThicketUIThreadProc,
|
|
this,
|
|
0,
|
|
(DWORD_PTR)NULL,
|
|
(DWORD_PTR *)NULL,
|
|
"shdocvw.dll",
|
|
TPS_LONGEXECTIME)))
|
|
_hrDL = E_FAIL;
|
|
#else
|
|
ThicketUIThreadProc((LPVOID)this);
|
|
#endif
|
|
|
|
if (FAILED(_hrDL))
|
|
EndDialog(hDlg, 0);
|
|
else
|
|
{
|
|
ShowWindow(hDlg, SW_SHOWNORMAL);
|
|
Animate_OpenEx(GetDlgItem(hDlg, IDD_ANIMATE), HINST_THISDLL, IDA_DOWNLOAD);
|
|
ShowWindow(GetDlgItem(hDlg, IDD_DOWNLOADICON), SW_HIDE);
|
|
}
|
|
fRet = FALSE;
|
|
break;
|
|
|
|
case WM_COMMAND:
|
|
switch (LOWORD(wParam))
|
|
{
|
|
case IDCANCEL:
|
|
_fCancel = TRUE;
|
|
// and wait for the worker thread to quit, polling at WM_TIMER
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case WM_WORKER_THREAD_COMPLETED:
|
|
_hrDL = (DWORD) wParam;
|
|
EndDialog(hDlg,0);
|
|
break;
|
|
|
|
//case WM_CLOSE:
|
|
// KillTimer( hDlg, THICKET_TIMER );
|
|
// _fCancel = TRUE;
|
|
// while( _hrDL == S_FALSE );
|
|
// break;
|
|
|
|
case WM_DESTROY:
|
|
_fCancel = TRUE;
|
|
while( _hrDL == S_FALSE )
|
|
{
|
|
Sleep(0);
|
|
}
|
|
break;
|
|
|
|
default:
|
|
fRet = FALSE;
|
|
}
|
|
|
|
return fRet;
|
|
}
|
|
|
|
DWORD WINAPI CThicketUI::ThicketUIThreadProc( LPVOID ppv )
|
|
{
|
|
HRESULT hr = S_OK;
|
|
CThicketUI* ptui = (CThicketUI *)ppv;
|
|
|
|
ASSERT(ptui);
|
|
|
|
hr = CoInitialize(NULL);
|
|
if (SUCCEEDED(hr))
|
|
{
|
|
IHTMLDocument2 *pDoc = NULL;
|
|
|
|
#ifndef NO_MARSHALLING
|
|
hr = CoGetInterfaceAndReleaseStream( ptui->_pstmDoc, IID_IHTMLDocument2,(LPVOID*)&pDoc);
|
|
|
|
// CoGetInterfaceAndReleaseStream always releases the stream
|
|
ptui->_pstmDoc = NULL;
|
|
#else
|
|
pDoc = ptui->_pDoc;
|
|
pDoc->AddRef();
|
|
#endif
|
|
|
|
if (SUCCEEDED(hr))
|
|
{
|
|
CThicketProgress tprog( ptui->_hDlg );
|
|
CDocumentPackager docPkgr(ptui->_iPackageStyle);
|
|
|
|
hr = S_FALSE;
|
|
|
|
hr = docPkgr.PackageDocument( pDoc, ptui->_pszFileName,
|
|
&ptui->_fCancel, &tprog,
|
|
0, 100,
|
|
ptui->_codepageDst );
|
|
|
|
pDoc->Release(); // release marshalled interface
|
|
}
|
|
|
|
CoUninitialize();
|
|
}
|
|
|
|
PostMessage(ptui->_hDlg, WM_WORKER_THREAD_COMPLETED, hr, 0);
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
//+------------------------------------------------------------------------
|
|
//
|
|
//
|
|
//
|
|
//-------------------------------------------------------------------------
|
|
HRESULT
|
|
SaveToThicket( HWND hWnd, LPCTSTR pszFileName, IHTMLDocument2 *pDoc,
|
|
UINT codepageSrc, UINT codepageDst, UINT iPackageStyle )
|
|
{
|
|
HRESULT hr;
|
|
CThicketUI* ptui;
|
|
|
|
#ifdef OLD_THICKET
|
|
LPTSTR lpszURL;
|
|
|
|
lpszURL = bstrDocURL;
|
|
|
|
const DWORD dwMaxPathLen = 24;
|
|
|
|
URL_COMPONENTS urlComp;
|
|
TCHAR rgchUrlPath[MAX_PATH];
|
|
TCHAR rgchCanonicalUrl[MAX_URL_STRING];
|
|
DWORD dwLen;
|
|
|
|
dwLen = ARRAYSIZE(rgchCanonicalUrl);
|
|
|
|
hr = UrlCanonicalize( lpszURL, rgchCanonicalUrl, &dwLen, 0);
|
|
if (FAILED(hr))
|
|
return E_FAIL;
|
|
|
|
ZeroMemory(&urlComp, sizeof(urlComp));
|
|
|
|
urlComp.dwStructSize = sizeof(urlComp);
|
|
urlComp.lpszUrlPath = rgchUrlPath;
|
|
urlComp.dwUrlPathLength = ARRAYSIZE(rgchUrlPath);
|
|
|
|
hr = InternetCrackUrl(rgchCanonicalUrl, lstrlen(rgchCanonicalUrl), ICU_DECODE, &urlComp);
|
|
if (FAILED(hr))
|
|
return E_FAIL;
|
|
|
|
// Since this is not a snap-shot, saving the doc over itself is a no-op.
|
|
// This means we can avoid some nasty issues with the save-over, safe-save,
|
|
// et al, by short circuiting the save here.
|
|
if ( StrCmpI(pszFileName, rgchUrlPath) == 0 )
|
|
{
|
|
if (PathFileExists(pszFileName))
|
|
return S_OK;
|
|
else
|
|
return HRESULT_FROM_WIN32(ERROR_FILE_NOT_FOUND);
|
|
}
|
|
|
|
#endif //OLD_THICKET
|
|
|
|
ptui = new CThicketUI;
|
|
if (ptui)
|
|
{
|
|
hr = ptui->SaveDocument( hWnd, pszFileName, pDoc, codepageSrc, codepageDst, iPackageStyle );
|
|
delete ptui;
|
|
}
|
|
else
|
|
hr = E_OUTOFMEMORY;
|
|
|
|
return hr;
|
|
}
|
|
|
|
//+------------------------------------------------------------------------
|
|
//
|
|
//
|
|
//
|
|
//-------------------------------------------------------------------------
|
|
|
|
void SaveBrowserFile( HWND hwnd, LPUNKNOWN punk )
|
|
{
|
|
HRESULT hr;
|
|
TCHAR szFileDst[MAX_PATH];
|
|
DWORD iFilter = 1;
|
|
IHTMLDocument2 *pDoc;
|
|
BSTR bstrURL = NULL;
|
|
ThicketCPInfo tcpi;
|
|
BSTR bstrCharSet = NULL;
|
|
BSTR bstrTitle = NULL;
|
|
BSTR bstrMime = NULL;
|
|
IOleCommandTarget *pOleCommandTarget = NULL;
|
|
WCHAR *pwzExt = NULL;
|
|
OLECMD pCmd[NUM_OLE_CMDS];
|
|
ULONG nCmds = NUM_OLE_CMDS;
|
|
BOOL bForceHTMLOnly = FALSE;
|
|
|
|
static const WCHAR *wzImage = L" Image";
|
|
|
|
|
|
hr = punk->QueryInterface(IID_IHTMLDocument2, (void**)&pDoc);
|
|
if (FAILED(hr))
|
|
goto Cleanup;
|
|
|
|
if (FAILED(pDoc->get_URL( &bstrURL )))
|
|
goto Cleanup;
|
|
|
|
hr = pDoc->get_charset( &bstrCharSet );
|
|
if (FAILED(hr))
|
|
goto Cleanup;
|
|
|
|
tcpi.cpSrc = CP_ACP;
|
|
tcpi.lpwstrDocCharSet = bstrCharSet;
|
|
|
|
// If it is an image file, then bring up trident to do the save.
|
|
// APPCOMPAT: This is a crappy way to do this. We are hard-coding the
|
|
// image types, so we know to put up the "Save as image" dialog.
|
|
// We originally tried looking at the MIME type, but Trident returns
|
|
// inconsistent MIME types to us (ex. under some platforms we get
|
|
// "JPG Image" and under others we get "JPG File"!).
|
|
|
|
ASSERT(bstrURL);
|
|
|
|
pwzExt = bstrURL + lstrlenW(bstrURL);
|
|
|
|
while (pwzExt > bstrURL && *pwzExt != L'.')
|
|
{
|
|
pwzExt--;
|
|
}
|
|
|
|
hr = pDoc->QueryInterface(IID_IOleCommandTarget,
|
|
(void **)&pOleCommandTarget);
|
|
if (FAILED(hr))
|
|
{
|
|
goto Cleanup;
|
|
}
|
|
|
|
if (pwzExt > bstrURL) {
|
|
|
|
// Found a "dot". Now pwzExt points to what we think is the extension
|
|
|
|
if (!StrCmpIW(pwzExt, L".JPG") ||
|
|
!StrCmpIW(pwzExt, L".GIF") ||
|
|
!StrCmpIW(pwzExt, L".BMP") ||
|
|
!StrCmpIW(pwzExt, L".XBM") ||
|
|
!StrCmpIW(pwzExt, L".ART") ||
|
|
!StrCmpIW(pwzExt, L".PNG") ||
|
|
!StrCmpIW(pwzExt, L".WMF") ||
|
|
!StrCmpIW(pwzExt, L".TIFF") ||
|
|
!StrCmpIW(pwzExt, L".JPEG"))
|
|
{
|
|
hr = pOleCommandTarget->Exec(&CGID_MSHTML, IDM_SAVEPICTURE, 0,
|
|
NULL, NULL);
|
|
|
|
// FEATURE: Handle a failed HR here. It is very unlikely that
|
|
// this will fail, yet regular save-as code (that follows)
|
|
// will succeed. We always exit out of here, so we will
|
|
// never get two UI dialogs thrown at the user. We should
|
|
// come up with a good scheme to propagate an error dialog
|
|
// to the user. Possible scenario: low disk space causing
|
|
// a fail-out.
|
|
|
|
goto Cleanup;
|
|
}
|
|
}
|
|
|
|
// IE5 RAID #54672: Save-as has problems saving pages generated by POSTs
|
|
// This code is to detect if the page was generated by POST data and
|
|
// warn the user that saving may not work.
|
|
|
|
pCmd[0].cmdID = SHDVID_PAGEFROMPOSTDATA;
|
|
hr = pOleCommandTarget->QueryStatus(&CGID_ShellDocView, nCmds, pCmd, NULL);
|
|
|
|
if (FAILED(hr))
|
|
{
|
|
goto Cleanup;
|
|
}
|
|
|
|
if (pCmd[0].cmdf & OLECMDF_LATCHED)
|
|
{
|
|
HKEY hkeySaveAs = 0;
|
|
DWORD dwValue = 0;
|
|
DWORD dwSize = 0;
|
|
INT_PTR iFlags = 0;
|
|
|
|
bForceHTMLOnly = TRUE;
|
|
|
|
if (RegOpenKeyEx(HKEY_CURRENT_USER,
|
|
REGKEY_SAVEAS_WARNING_RESTRICTION, 0,
|
|
KEY_READ, &hkeySaveAs) == ERROR_SUCCESS)
|
|
{
|
|
dwSize = sizeof(DWORD);
|
|
|
|
if (RegQueryValueEx(hkeySaveAs, REGVALUE_SAVEAS_WARNING, NULL,
|
|
NULL, (LPBYTE)&dwValue, &dwSize) == ERROR_SUCCESS)
|
|
{
|
|
|
|
if (dwValue)
|
|
{
|
|
// restriction set, don't show dialog
|
|
RegCloseKey(hkeySaveAs);
|
|
goto Continue;
|
|
}
|
|
}
|
|
|
|
RegCloseKey(hkeySaveAs);
|
|
}
|
|
|
|
iFlags = DialogBoxParam(MLGetHinst(), MAKEINTRESOURCE(DLG_SAVEAS_WARNING),
|
|
hwnd, SaveAsWarningDlgProc, (LPARAM)0);
|
|
|
|
if (!(iFlags & SAVEAS_OK))
|
|
{
|
|
goto Cleanup;
|
|
}
|
|
|
|
if (iFlags & SAVEAS_NEVER_ASK_AGAIN)
|
|
{
|
|
HKEY hkey = 0;
|
|
DWORD dwNeverAsk = 1;
|
|
|
|
if (RegOpenKeyEx(HKEY_CURRENT_USER,
|
|
REGKEY_SAVEAS_WARNING_RESTRICTION, 0,
|
|
KEY_ALL_ACCESS, &hkey) == ERROR_SUCCESS)
|
|
{
|
|
|
|
RegSetValueEx(hkey, REGVALUE_SAVEAS_WARNING, 0, REG_DWORD,
|
|
(CONST BYTE *)&dwNeverAsk,
|
|
sizeof(dwNeverAsk));
|
|
RegCloseKey(hkey);
|
|
}
|
|
}
|
|
}
|
|
|
|
Continue:
|
|
|
|
// Suggest a file name
|
|
|
|
szFileDst[0] = 0;
|
|
|
|
// Our favorite candidate is the title, fall back on the file name.
|
|
hr = pDoc->get_title(&bstrTitle);
|
|
if (SUCCEEDED(hr) && lstrlenW(bstrTitle))
|
|
{
|
|
StrCpyN(szFileDst, bstrTitle, ARRAYSIZE(szFileDst));
|
|
}
|
|
else
|
|
hr = GetFileNameFromURL(bstrURL, szFileDst, ARRAYSIZE(szFileDst));
|
|
|
|
if (FAILED(hr))
|
|
goto Cleanup;
|
|
|
|
PathCleanupSpec(NULL, szFileDst);
|
|
|
|
hr = FormsGetFileName(hwnd, szFileDst, ARRAYSIZE(szFileDst),
|
|
(LONG_PTR)&tcpi, &iFilter, bForceHTMLOnly);
|
|
|
|
if (hr==S_OK)
|
|
hr = SaveToThicket( hwnd, szFileDst, pDoc, tcpi.cpSrc, tcpi.cpDst, iFilter);
|
|
|
|
Cleanup:
|
|
|
|
if (FAILED(hr))
|
|
ReportThicketError(hwnd, hr);
|
|
|
|
if (pOleCommandTarget)
|
|
pOleCommandTarget->Release();
|
|
|
|
if (pDoc)
|
|
pDoc->Release();
|
|
|
|
if (bstrURL)
|
|
SysFreeString(bstrURL);
|
|
|
|
if (bstrCharSet)
|
|
SysFreeString(bstrCharSet);
|
|
|
|
if (bstrTitle)
|
|
SysFreeString(bstrTitle);
|
|
|
|
return;
|
|
}
|
|
|
|
void ReportThicketError( HWND hwnd, HRESULT hr )
|
|
{
|
|
LPTSTR lpstrMsg = NULL;
|
|
|
|
switch (hr)
|
|
{
|
|
case HRESULT_FROM_WIN32(ERROR_NOT_ENOUGH_MEMORY):
|
|
case E_OUTOFMEMORY:
|
|
lpstrMsg = MAKEINTRESOURCE(IDS_THICKETERRMEM);
|
|
break;
|
|
|
|
case E_ACCESSDENIED:
|
|
case STG_E_ACCESSDENIED:
|
|
lpstrMsg = MAKEINTRESOURCE(IDS_THICKETERRACC);
|
|
break;
|
|
|
|
case HRESULT_FROM_WIN32(ERROR_DISK_FULL):
|
|
case STG_E_MEDIUMFULL:
|
|
lpstrMsg = MAKEINTRESOURCE(IDS_THICKETERRFULL);
|
|
break;
|
|
|
|
case HRESULT_FROM_WIN32(ERROR_FILE_NOT_FOUND):
|
|
lpstrMsg = MAKEINTRESOURCE(IDS_THICKETERRFNF);
|
|
break;
|
|
|
|
case E_ABORT:
|
|
// Ray says we don't want a canceled message box.
|
|
//lpstrMsg = MAKEINTRESOURCE(IDS_THICKETABORT);
|
|
break;
|
|
|
|
case E_FAIL:
|
|
default:
|
|
lpstrMsg = MAKEINTRESOURCE(IDS_THICKETERRMISC);
|
|
break;
|
|
}
|
|
|
|
if ( lpstrMsg )
|
|
{
|
|
MLShellMessageBox(
|
|
hwnd,
|
|
lpstrMsg,
|
|
MAKEINTRESOURCE(IDS_THICKETERRTITLE),
|
|
MB_OK | MB_ICONERROR);
|
|
}
|
|
}
|
|
|
|
//+--------------------------------------------------------------------------
|
|
//
|
|
// File: file.cxx
|
|
//
|
|
// Contents: Import/export dialog helpers
|
|
//
|
|
// History: 16-May-95 RobBear Taken from formtool
|
|
//
|
|
//---------------------------------------------------------------------------
|
|
|
|
const CHAR c_szNT4ResourceLocale[] = ".DEFAULT\\Control Panel\\International";
|
|
const CHAR c_szWin9xResourceLocale[] = ".Default\\Control Panel\\desktop\\ResourceLocale";
|
|
const CHAR c_szLocale[] = "Locale";
|
|
|
|
LANGID
|
|
MLGetShellLanguage()
|
|
{
|
|
LANGID lidShell = 0;
|
|
|
|
// FEATURE: this fn is copied from shlwapi. there really should be a
|
|
// shlwapi export. if MLGetUILanguage has any merit, then
|
|
// MLGetShellLanguage has merit as well.
|
|
|
|
if (IsOS(OS_WIN2000ORGREATER))
|
|
{
|
|
static LANGID (CALLBACK* pfnGetUserDefaultUILanguage)(void) = NULL;
|
|
|
|
if (pfnGetUserDefaultUILanguage == NULL)
|
|
{
|
|
HMODULE hmod = GetModuleHandle(TEXT("KERNEL32"));
|
|
|
|
if (hmod)
|
|
pfnGetUserDefaultUILanguage = (LANGID (CALLBACK*)(void))GetProcAddress(hmod, "GetUserDefaultUILanguage");
|
|
}
|
|
if (pfnGetUserDefaultUILanguage)
|
|
lidShell = pfnGetUserDefaultUILanguage();
|
|
}
|
|
else
|
|
{
|
|
CHAR szLangID[12];
|
|
DWORD cb, dwRet;
|
|
|
|
cb = sizeof(szLangID) - 2*sizeof(szLangID[0]); // avoid 2 byte buffer overrun
|
|
if (IsOS(OS_NT))
|
|
dwRet = SHGetValueA(HKEY_USERS, c_szNT4ResourceLocale, c_szLocale, NULL, szLangID + 2, &cb);
|
|
else
|
|
dwRet = SHGetValueA(HKEY_USERS, c_szWin9xResourceLocale, NULL, NULL, szLangID + 2, &cb);
|
|
|
|
if (ERROR_SUCCESS == dwRet)
|
|
{
|
|
// IE uses a string rep of the hex value
|
|
szLangID[0] = '0';
|
|
szLangID[1] = 'x';
|
|
StrToIntExA(szLangID, STIF_SUPPORT_HEX, (LPINT)&lidShell);
|
|
}
|
|
}
|
|
|
|
return lidShell;
|
|
}
|
|
|
|
/*
|
|
* Stolen from Trident's src\core\cdutil\file.cxx
|
|
*/
|
|
|
|
// Hook procedure for open file dialog.
|
|
|
|
UINT_PTR APIENTRY SaveOFNHookProc(HWND hdlg,
|
|
UINT uiMsg,
|
|
WPARAM wParam,
|
|
LPARAM lParam)
|
|
{
|
|
ULONG i, iCurSel;
|
|
BOOL bFoundEncoding = FALSE;
|
|
WCHAR wzEncoding[MAX_ENCODING_DESC_LEN];
|
|
|
|
switch (uiMsg)
|
|
{
|
|
// Populate the dropdown.
|
|
case WM_INITDIALOG:
|
|
{
|
|
HRESULT hr;
|
|
LPOPENFILENAME pofn = (LPOPENFILENAME)lParam;
|
|
ThicketCPInfo *ptcpi = (ThicketCPInfo *)pofn->lCustData;
|
|
IMultiLanguage2 *pMultiLanguage = NULL;
|
|
IEnumCodePage *pEnumCodePage = NULL;
|
|
//UINT codepageDefault = ptcpi->cp;
|
|
MIMECSETINFO csetInfo;
|
|
LANGID langid;
|
|
|
|
#ifdef UNIX
|
|
SetWindowLongPtr(hdlg, DWLP_USER, (LONG_PTR)ptcpi);
|
|
#endif /* UNIX */
|
|
|
|
hr = CoCreateInstance(
|
|
CLSID_CMultiLanguage,
|
|
NULL,
|
|
CLSCTX_INPROC_SERVER,
|
|
IID_IMultiLanguage2,
|
|
(void**)&pMultiLanguage);
|
|
if (hr)
|
|
break;
|
|
|
|
hr = pMultiLanguage->GetCharsetInfo(ptcpi->lpwstrDocCharSet,&csetInfo);
|
|
if (hr)
|
|
break;
|
|
|
|
#ifndef UNIX
|
|
// the shell combobox where this stuff shows up
|
|
// doesn't know how to fontlink... so we have
|
|
// to stay in the shell's codepage
|
|
langid = MLGetShellLanguage();
|
|
#else
|
|
langid = GetSystemDefaultLangID();
|
|
#endif /* UNIX */
|
|
if (pMultiLanguage->EnumCodePages( MIMECONTF_SAVABLE_BROWSER | MIMECONTF_VALID,
|
|
langid,
|
|
&pEnumCodePage) == S_OK)
|
|
{
|
|
MIMECPINFO cpInfo;
|
|
ULONG ccpInfo;
|
|
UINT cpDefault;
|
|
|
|
if (pMultiLanguage->GetCodePageInfo(csetInfo.uiInternetEncoding, langid, &cpInfo) == S_OK &&
|
|
!(cpInfo.dwFlags & MIMECONTF_SAVABLE_BROWSER))
|
|
{
|
|
// If the codepage selected is not savable (eg JP_AUTO),
|
|
// use the family codepage.
|
|
cpDefault = cpInfo.uiFamilyCodePage;
|
|
}
|
|
else
|
|
cpDefault = csetInfo.uiInternetEncoding;
|
|
|
|
ptcpi->cpSrc = csetInfo.uiInternetEncoding;
|
|
|
|
if (cpDefault == CODEPAGE_UNICODE &&
|
|
pofn->nFilterIndex == PACKAGE_MHTML) {
|
|
cpDefault = CODEPAGE_UTF8;
|
|
}
|
|
|
|
for (i = 0; pEnumCodePage->Next(1, &cpInfo, &ccpInfo) == S_OK; ++i)
|
|
{
|
|
TCHAR *lpszDesc;
|
|
INT_PTR iIdx;
|
|
|
|
if (cpInfo.uiCodePage == CODEPAGE_UNICODE &&
|
|
pofn->nFilterIndex == PACKAGE_MHTML) {
|
|
i--;
|
|
continue;
|
|
}
|
|
|
|
if (cpDefault == cpInfo.uiCodePage)
|
|
{
|
|
StrCpyNW(wzEncoding, cpInfo.wszDescription,
|
|
lstrlen(cpInfo.wszDescription) + 1);
|
|
bFoundEncoding = TRUE;
|
|
}
|
|
|
|
lpszDesc = cpInfo.wszDescription;
|
|
|
|
iIdx = SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_ADDSTRING, 0,
|
|
(LPARAM)lpszDesc);
|
|
SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_SETITEMDATA, iIdx,
|
|
(LPARAM)cpInfo.uiCodePage);
|
|
}
|
|
|
|
if (bFoundEncoding)
|
|
{
|
|
INT_PTR iIndex = 0;
|
|
|
|
iIndex = SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_FINDSTRINGEXACT, -1,
|
|
(LPARAM)wzEncoding);
|
|
|
|
SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET, CB_SETCURSEL,
|
|
(WPARAM)iIndex, 0);
|
|
}
|
|
else
|
|
{
|
|
// No encoding found! Bad error. Recover by selecting
|
|
// the first one.
|
|
|
|
SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET, CB_SETCURSEL,
|
|
0, 0);
|
|
}
|
|
|
|
}
|
|
SAFERELEASE(pEnumCodePage);
|
|
SAFERELEASE(pMultiLanguage);
|
|
break;
|
|
}
|
|
|
|
#ifdef UNIX
|
|
case WM_COMMAND:
|
|
{
|
|
switch (GET_WM_COMMAND_ID(wParam,lParam))
|
|
{
|
|
case IDOK:
|
|
{
|
|
ThicketCPInfo *ptcpi = (ThicketCPInfo *)GetWindowLongPtr(hdlg,DWLP_USER);
|
|
|
|
ptcpi->cpDst = CP_ACP;
|
|
iCurSel = (int) SendDlgItemMessage (hdlg, IDC_SAVE_CHARSET, CB_GETCURSEL, 0, 0);
|
|
ptcpi->cpDst =
|
|
(UINT)SendDlgItemMessage (hdlg, IDC_SAVE_CHARSET, CB_GETITEMDATA,
|
|
(WPARAM)iCurSel, (LPARAM)0);
|
|
|
|
// To spare us from re-instantiating MLANG, we'll set the src and dest
|
|
// to CP_ACP if no change is indicated.
|
|
if (ptcpi->cpDst == ptcpi->cpSrc)
|
|
ptcpi->cpDst = ptcpi->cpSrc = CP_ACP;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
break;
|
|
#endif /* UNIX */
|
|
|
|
case WM_NOTIFY:
|
|
{
|
|
LPOFNOTIFY phdr = (LPOFNOTIFY)lParam;
|
|
|
|
switch (phdr->hdr.code)
|
|
{
|
|
case CDN_FILEOK:
|
|
{
|
|
LPOPENFILENAME pofn = (LPOPENFILENAME)phdr->lpOFN;
|
|
ThicketCPInfo *ptcpi = (ThicketCPInfo *)pofn->lCustData;
|
|
|
|
iCurSel = (int) SendDlgItemMessage (hdlg, IDC_SAVE_CHARSET, CB_GETCURSEL, 0, 0);
|
|
ptcpi->cpDst = //*(UINT *)phdr->lpOFN->lCustData =
|
|
(UINT)SendDlgItemMessage (hdlg, IDC_SAVE_CHARSET, CB_GETITEMDATA,
|
|
(WPARAM)iCurSel, (LPARAM)0);
|
|
}
|
|
|
|
// HACK! This case is implemented to implement a hack for
|
|
// IE5 RAID #60672. MIMEOLE cannot save UNICODE encoding,
|
|
// so when the user selects MHTML saves, we should remove
|
|
// this option. This code should be removed when MIMEOLE
|
|
// fixes their bug (targeted for NT5 RTM). Contact SBailey
|
|
// for the status of this.
|
|
|
|
case CDN_TYPECHANGE:
|
|
{
|
|
LPOPENFILENAME pofn = (LPOPENFILENAME)phdr->lpOFN;
|
|
ThicketCPInfo *ptcpi = (ThicketCPInfo *)pofn->lCustData;
|
|
UINT uiCPSel, uiCP;
|
|
int iType = pofn->nFilterIndex;
|
|
UINT iCount;
|
|
int iCurSel;
|
|
int iSet = -1;
|
|
|
|
if (iType == PACKAGE_MHTML)
|
|
{
|
|
iCurSel = (int)SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET, CB_GETCURSEL, 0, 0);
|
|
|
|
uiCPSel = (UINT)SendDlgItemMessage (hdlg, IDC_SAVE_CHARSET, CB_GETITEMDATA,
|
|
(WPARAM)iCurSel, (LPARAM)0);
|
|
|
|
// If you selected unicode, make it look like you
|
|
// really selected UTF-8
|
|
|
|
if (uiCPSel == CODEPAGE_UNICODE)
|
|
{
|
|
uiCPSel = CODEPAGE_UTF8;
|
|
}
|
|
|
|
i = (int) SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_FINDSTRINGEXACT,
|
|
(WPARAM)0,
|
|
(LPARAM)UNICODE_TEXT);
|
|
if (i != CB_ERR)
|
|
{
|
|
SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_DELETESTRING, i, (LPARAM)0);
|
|
}
|
|
|
|
iCount = (int)SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_GETCOUNT, 0, 0);
|
|
|
|
// Set selected item back
|
|
|
|
for (i = 0; i < iCount; i++)
|
|
{
|
|
uiCP = (UINT)SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET, CB_GETITEMDATA,
|
|
(WPARAM)i, (LPARAM)0);
|
|
if (uiCP == uiCPSel)
|
|
{
|
|
iSet = i;
|
|
}
|
|
}
|
|
|
|
if (iSet != 0xffffffff)
|
|
{
|
|
SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET, CB_SETCURSEL,
|
|
(WPARAM)iSet, (LPARAM)0);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// Store current selection
|
|
|
|
iCurSel = (int)SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET, CB_GETCURSEL, 0, 0);
|
|
|
|
uiCPSel = (UINT)SendDlgItemMessage (hdlg, IDC_SAVE_CHARSET, CB_GETITEMDATA,
|
|
(WPARAM)iCurSel, (LPARAM)0);
|
|
|
|
// Add unicode back in, if it was removed
|
|
|
|
i = (int) SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_FINDSTRINGEXACT,
|
|
(WPARAM)0,
|
|
(LPARAM)UNICODE_TEXT);
|
|
|
|
if (i == CB_ERR) {
|
|
// Unicode does not exist, add it back in
|
|
i = (int) SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_ADDSTRING, 0,
|
|
(LPARAM)UNICODE_TEXT);
|
|
|
|
SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_SETITEMDATA, i,
|
|
(LPARAM)CODEPAGE_UNICODE);
|
|
|
|
|
|
// Make sure the same encoding selected before is
|
|
// still selected.
|
|
iCount = (int)SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET,
|
|
CB_GETCOUNT, 0, 0);
|
|
for (i = 0; i < iCount; i++)
|
|
{
|
|
uiCP = (UINT)SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET, CB_GETITEMDATA,
|
|
(WPARAM)i, (LPARAM)0);
|
|
if (uiCP == uiCPSel)
|
|
{
|
|
iSet = i;
|
|
}
|
|
}
|
|
|
|
if (iCurSel != 0xffffffff)
|
|
{
|
|
SendDlgItemMessage(hdlg, IDC_SAVE_CHARSET, CB_SETCURSEL,
|
|
(WPARAM)iSet, (LPARAM)0);
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case WM_HELP:
|
|
{
|
|
SHWinHelpOnDemandWrap((HWND)((LPHELPINFO) lParam)->hItemHandle,
|
|
c_szHelpFile,
|
|
HELP_WM_HELP,
|
|
(DWORD_PTR)aSaveAsHelpIDs);
|
|
}
|
|
break;
|
|
|
|
case WM_CONTEXTMENU:
|
|
{
|
|
SHWinHelpOnDemandWrap((HWND) wParam,
|
|
c_szHelpFile,
|
|
HELP_CONTEXTMENU,
|
|
(DWORD_PTR)aSaveAsHelpIDs);
|
|
}
|
|
break;
|
|
}
|
|
return (FALSE);
|
|
}
|
|
|
|
//
|
|
// Protect the naive users from themselves, if somebody enters a filename
|
|
// of microsoft.com when saving http://www.microsoft.com we don't want
|
|
// to save a .COM file since this will be interpreted as an executable.
|
|
// bad things will happen
|
|
//
|
|
void CleanUpFilename(LPTSTR pszFile, int iPackageStyle)
|
|
{
|
|
//
|
|
// If we find .COM as the file extension replace it with the file extension
|
|
// of the filetype they are saving the file as
|
|
//
|
|
LPTSTR pszExt = PathFindExtension(pszFile);
|
|
|
|
ASSERT(pszExt);
|
|
if (StrCmpI(pszExt, TEXT(".COM")) == 0) // REVIEW any other file types???
|
|
{
|
|
//
|
|
// Map the package style to a default extension. NOTE this relies on
|
|
// the fact that the filter index maps to the PACKAGE style enum
|
|
// (as does the rest of the thicket code).
|
|
//
|
|
switch (iPackageStyle)
|
|
{
|
|
case PACKAGE_THICKET:
|
|
case PACKAGE_HTML:
|
|
StrCatBuff(pszFile, TEXT(".htm"), MAX_PATH);
|
|
break;
|
|
|
|
case PACKAGE_MHTML:
|
|
StrCatBuff(pszFile, TEXT(".mht"), MAX_PATH);
|
|
break;
|
|
|
|
case PACKAGE_TEXT:
|
|
StrCatBuff(pszFile, TEXT(".txt"), MAX_PATH);
|
|
break;
|
|
|
|
default:
|
|
ASSERT(FALSE); // Unknown package type
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
//+---------------------------------------------------------------------------
|
|
//
|
|
// Function: FormsGetFileName
|
|
//
|
|
// Synopsis: Gets a file name using either the GetOpenFileName or
|
|
// GetSaveFileName functions.
|
|
//
|
|
// Arguments: [fSaveFile] -- TRUE means use GetSaveFileName
|
|
// FALSE means use GetOpenFileName
|
|
//
|
|
// [idFilterRes] -- The string resource specifying text in the
|
|
// dialog box. It must have the
|
|
// following format:
|
|
// Note: the string has to be _one_ contiguous string.
|
|
// The example is broken up to make it fit
|
|
// on-screen. The verical bar ("pipe") characters
|
|
// are changed to '\0'-s on the fly.
|
|
// This allows the strings to be localized
|
|
// using Espresso.
|
|
//
|
|
// IDS_FILENAMERESOURCE, "Save Dialog As| // the title
|
|
// odg| // default extension
|
|
// Forms3 Dialog (*.odg)| // pairs of filter strings
|
|
// *.odg|
|
|
// Any File (*.*)|
|
|
// *.*|"
|
|
//
|
|
// [pstrFile] -- Buffer for file name.
|
|
// [cchFile] -- Size of buffer in characters.
|
|
//
|
|
// Modifies: [pstrFile]
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
#ifdef _MAC
|
|
extern "C" {
|
|
char * __cdecl _p2cstr(unsigned char *);
|
|
}
|
|
#endif
|
|
|
|
#define CHAR_DOT TEXT('.')
|
|
#define CHAR_DOT_REPLACEMENT TEXT('_')
|
|
|
|
void ReplaceDotsInFileName(LPTSTR pszFileName)
|
|
{
|
|
ASSERT(pszFileName);
|
|
|
|
while (*pszFileName)
|
|
{
|
|
if (*pszFileName == CHAR_DOT)
|
|
{
|
|
*pszFileName = CHAR_DOT_REPLACEMENT;
|
|
}
|
|
pszFileName++;
|
|
}
|
|
}
|
|
|
|
|
|
HRESULT
|
|
FormsGetFileName(
|
|
HWND hwndOwner,
|
|
LPTSTR pstrFile,
|
|
int cchFile,
|
|
LPARAM lCustData,
|
|
DWORD *pnFilterIndex,
|
|
BOOL bForceHTMLOnly)
|
|
{
|
|
HRESULT hr = S_OK;
|
|
BOOL fOK;
|
|
DWORD dwCommDlgErr;
|
|
LPTSTR pstr;
|
|
OPENFILENAME ofn;
|
|
TCHAR achBuffer[4096]; // Max. size of a string resource
|
|
TCHAR * cp;
|
|
TCHAR * pstrExt;
|
|
int cbBuffer;
|
|
TCHAR achPath[MAX_PATH];
|
|
DWORD dwType = REG_SZ;
|
|
DWORD cbData = MAX_PATH * sizeof(TCHAR);
|
|
int idFilterRes;
|
|
|
|
|
|
// Initialize ofn struct
|
|
memset(&ofn, 0, sizeof(ofn));
|
|
ofn.lStructSize = sizeof(ofn);
|
|
ofn.hwndOwner = hwndOwner;
|
|
ofn.Flags = OFN_FILEMUSTEXIST |
|
|
OFN_PATHMUSTEXIST |
|
|
OFN_OVERWRITEPROMPT |
|
|
OFN_HIDEREADONLY |
|
|
#ifndef UNIX
|
|
OFN_NOCHANGEDIR |
|
|
OFN_EXPLORER;
|
|
#else
|
|
OFN_NOCHANGEDIR;
|
|
#endif /* UNIX */
|
|
|
|
ofn.lpfnHook = NULL;
|
|
ofn.nMaxFile = cchFile;
|
|
ofn.lCustData = lCustData;
|
|
ofn.lpstrFile = pstrFile;
|
|
#ifndef NO_IME
|
|
// We add an extra control to the save file dialog.
|
|
|
|
if (lCustData)
|
|
{
|
|
ofn.Flags |= OFN_ENABLETEMPLATE | OFN_ENABLEHOOK;
|
|
ofn.lpfnHook = SaveOFNHookProc;
|
|
ofn.lpTemplateName = MAKEINTRESOURCE(IDD_ADDTOSAVE_DIALOG);
|
|
ofn.hInstance = g_hinst;
|
|
}
|
|
|
|
#endif
|
|
|
|
//
|
|
// Find the extension and set the filter index based on what the
|
|
// extension is. After these loops pstrExt will either be NULL if
|
|
// we didn't find an extension, or will point to the extension starting
|
|
// at the '.'
|
|
|
|
pstrExt = pstrFile;
|
|
while (*pstrExt)
|
|
pstrExt++;
|
|
while ( pstrExt >= pstrFile )
|
|
{
|
|
if( *pstrExt == TEXT('.') )
|
|
break;
|
|
pstrExt--;
|
|
}
|
|
if( pstrExt < pstrFile )
|
|
pstrExt = NULL;
|
|
|
|
// Load the filter spec.
|
|
// FEATURE: Convert table to stringtable for localization
|
|
|
|
if ( SHRestricted2W( REST_NoBrowserSaveWebComplete, NULL, 0 ) )
|
|
idFilterRes = IDS_NOTHICKET_SAVE;
|
|
else if ( s_dwInetComVerMS != 0xFFFFFFFF )
|
|
{
|
|
#ifndef UNIX
|
|
if (s_dwInetComVerMS == 0)
|
|
{
|
|
TCHAR szPath[MAX_PATH];
|
|
|
|
GetSystemDirectory( szPath, MAX_PATH );
|
|
StrCatBuff( szPath, TEXT("\\INETCOMM.DLL"), MAX_PATH );
|
|
if (FAILED(GetVersionFromFile(szPath, &s_dwInetComVerMS, &s_dwInetComVerLS)))
|
|
s_dwInetComVerMS = 0xFFFFFFFF;
|
|
}
|
|
|
|
if (s_dwInetComVerMS >= 0x50000 && s_dwInetComVerMS != 0xFFFFFFFF)
|
|
idFilterRes = IDS_THICKET_SAVE;
|
|
else
|
|
idFilterRes = IDS_NOMHTML_SAVE;
|
|
#else
|
|
// on UNIX we don't have inetcomm.dll if oe is not installed
|
|
{
|
|
HINSTANCE hInetComm = NULL;
|
|
|
|
if ((hInetComm = LoadLibrary(TEXT("INETCOMM.DLL"))))
|
|
{
|
|
idFilterRes = IDS_THICKET_SAVE;
|
|
FreeLibrary(hInetComm);
|
|
}
|
|
else
|
|
idFilterRes = IDS_NOMHTML_SAVE;
|
|
}
|
|
#endif
|
|
}
|
|
else
|
|
idFilterRes = IDS_THICKET_SAVE;
|
|
|
|
cbBuffer = MLLoadShellLangString(idFilterRes, achBuffer, ARRAYSIZE(achBuffer));
|
|
ASSERT(cbBuffer > 0);
|
|
if ( ! cbBuffer )
|
|
return E_FAIL;
|
|
|
|
ofn.lpstrTitle = achBuffer;
|
|
|
|
for ( cp = achBuffer; *cp; cp++ )
|
|
{
|
|
if ( *cp == TEXT('|') )
|
|
{
|
|
*cp = TEXT('\0');
|
|
}
|
|
}
|
|
|
|
ASSERT(ofn.lpstrTitle);
|
|
|
|
// Default extension is second string.
|
|
pstr = (LPTSTR) ofn.lpstrTitle;
|
|
while (*pstr++)
|
|
{
|
|
}
|
|
|
|
// N.B. (johnv) Here we assume that filter index one corresponds with the default
|
|
// extension, otherwise we would have to introduce a default filter index into
|
|
// the resource string.
|
|
ofn.nFilterIndex = ((pnFilterIndex)? *pnFilterIndex : 1);
|
|
ofn.lpstrDefExt = pstr;
|
|
|
|
// Filter is third string.
|
|
while(*pstr++)
|
|
{
|
|
}
|
|
|
|
ofn.lpstrFilter = pstr;
|
|
|
|
// Try to match the extension with an entry in the filter list
|
|
// If we match, remove the extension from the incoming path string,
|
|
// set the default extension to the one we found, and appropriately
|
|
// set the filter index.
|
|
|
|
if (pstrExt && !bForceHTMLOnly)
|
|
{
|
|
// N.B. (johnv) We are searching more than we need to.
|
|
|
|
int iIndex = 0;
|
|
const TCHAR* pSearch = ofn.lpstrFilter;
|
|
|
|
while( pSearch )
|
|
{
|
|
if( StrStr( pSearch, pstrExt ) )
|
|
{
|
|
ofn.nFilterIndex = (iIndex / 2) + 1;
|
|
ofn.lpstrDefExt = pstrExt + 1;
|
|
|
|
// Remove the extension from the file name we pass in
|
|
*pstrExt = TEXT('\0');
|
|
|
|
break;
|
|
}
|
|
pSearch += lstrlen(pSearch);
|
|
if( pSearch[1] == 0 )
|
|
break;
|
|
|
|
pSearch++;
|
|
iIndex++;
|
|
}
|
|
}
|
|
|
|
// Suggest HTML Only as default save-type
|
|
|
|
if (bForceHTMLOnly)
|
|
{
|
|
// NOTE: These are hard-coded indices based on shdoclc.rc's
|
|
// IDS_THICKET_SAVE, IDS_NOMHTML_SAVE, IDS_NOTHICKET_SAVE ordering.
|
|
// This saves us the perf hit of doing string comparisons to find
|
|
// HTML only
|
|
|
|
switch (idFilterRes)
|
|
{
|
|
case IDS_NOTHICKET_SAVE:
|
|
ofn.nFilterIndex = 1;
|
|
break;
|
|
|
|
case IDS_NOMHTML_SAVE:
|
|
ofn.nFilterIndex = 2;
|
|
break;
|
|
|
|
default:
|
|
ASSERT(idFilterRes == IDS_THICKET_SAVE);
|
|
ofn.nFilterIndex = 3;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if ( SHGetValue(HKEY_CURRENT_USER, REGSTR_PATH_MAIN, REGSTR_VAL_SAVEDIRECTORY,
|
|
&dwType, achPath, &cbData) != ERROR_SUCCESS ||
|
|
!PathFileExists(achPath))
|
|
{
|
|
SHGetSpecialFolderPath(hwndOwner, achPath, CSIDL_PERSONAL, FALSE);
|
|
}
|
|
|
|
ofn.lpstrInitialDir = achPath;
|
|
|
|
// We don't want to suggest dots in the filename
|
|
ReplaceDotsInFileName(pstrFile);
|
|
|
|
// Now, at last, we're ready to call the save file dialog
|
|
fOK = GetSaveFileName(&ofn);
|
|
|
|
// if working with the abbreviated format list, adjust the index
|
|
if (idFilterRes == IDS_NOTHICKET_SAVE)
|
|
ofn.nFilterIndex += 2;
|
|
else if ( idFilterRes == IDS_NOMHTML_SAVE && ofn.nFilterIndex > 1 )
|
|
ofn.nFilterIndex += 1;
|
|
|
|
if (fOK)
|
|
{
|
|
//
|
|
// Protect the naive users from themselves, if somebody enters a filename
|
|
// of microsoft.com when saving http://www.microsoft.com we don't want
|
|
// to save a .COM file since this will be interpreted as an executable.
|
|
// bad things will happen
|
|
//
|
|
CleanUpFilename(pstrFile, ofn.nFilterIndex);
|
|
|
|
TCHAR *lpszFileName;
|
|
|
|
StrCpyN( achPath, pstrFile, ARRAYSIZE(achPath) );
|
|
|
|
lpszFileName = PathFindFileName( achPath );
|
|
*lpszFileName = 0;
|
|
|
|
SHSetValue(HKEY_CURRENT_USER, REGSTR_PATH_MAIN, REGSTR_VAL_SAVEDIRECTORY,
|
|
REG_SZ, achPath, (lstrlen(achPath) * sizeof(TCHAR)));
|
|
|
|
if (pnFilterIndex)
|
|
*pnFilterIndex = ofn.nFilterIndex;
|
|
|
|
if (ofn.nFilterIndex != PACKAGE_MHTML)
|
|
{
|
|
// we can only do this if we're not packaging MHTML
|
|
// because MHTML requires that we tag with the explicit
|
|
// charset, even if it was the default. unlike thicket
|
|
// which inherits the charset from the original document,
|
|
// MHTML must be explicitly tagged or else some system
|
|
// charset tags will sneak in.
|
|
|
|
ThicketCPInfo * ptcpi = (ThicketCPInfo *)lCustData;
|
|
|
|
// To spare us from re-instantiating MLANG, we'll set the src and dest
|
|
// to CP_ACP if no change is indicated.
|
|
if (ptcpi->cpDst == ptcpi->cpSrc)
|
|
ptcpi->cpDst = ptcpi->cpSrc = CP_ACP;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
#ifndef WINCE
|
|
dwCommDlgErr = CommDlgExtendedError();
|
|
if (dwCommDlgErr)
|
|
{
|
|
hr = HRESULT_FROM_WIN32(dwCommDlgErr);
|
|
}
|
|
else
|
|
{
|
|
hr = S_FALSE;
|
|
}
|
|
#else // WINCE
|
|
hr = E_FAIL;
|
|
#endif // WINCE
|
|
}
|
|
|
|
return hr;
|
|
}
|
|
|
|
HRESULT
|
|
GetFileNameFromURL( LPWSTR pwszURL, LPTSTR pszFile, DWORD cchFile)
|
|
{
|
|
HRESULT hr = S_OK;
|
|
PARSEDURLW puw = {0};
|
|
int cchUrl;
|
|
|
|
cchUrl = SysStringLen(pwszURL);
|
|
|
|
if (cchUrl)
|
|
{
|
|
puw.cbSize = sizeof(PARSEDURLW);
|
|
if (SUCCEEDED(ParseURLW(pwszURL, &puw)))
|
|
{
|
|
OLECHAR *pwchBookMark;
|
|
DWORD dwSize;
|
|
INTERNET_CACHE_ENTRY_INFOW ceiT;
|
|
LPINTERNET_CACHE_ENTRY_INFOW pcei = NULL;
|
|
|
|
// Temporarily, null out the '#' in the url
|
|
pwchBookMark = StrRChrW(puw.pszSuffix, NULL,'#');
|
|
if (pwchBookMark)
|
|
{
|
|
*pwchBookMark = 0;
|
|
}
|
|
|
|
dwSize = sizeof(INTERNET_CACHE_ENTRY_INFO);
|
|
if ( !GetUrlCacheEntryInfoW( pwszURL, &ceiT, &dwSize ) &&
|
|
GetLastError() == ERROR_INSUFFICIENT_BUFFER &&
|
|
(pcei = (LPINTERNET_CACHE_ENTRY_INFOW)new BYTE[dwSize]) != NULL &&
|
|
GetUrlCacheEntryInfoW( pwszURL, pcei, &dwSize ) )
|
|
{
|
|
StrCpyN(pszFile, PathFindFileName(pcei->lpszLocalFileName), cchFile);
|
|
PathUndecorate(pszFile);
|
|
}
|
|
|
|
if(pcei)
|
|
delete[] pcei;
|
|
|
|
if (pwchBookMark)
|
|
*pwchBookMark = '#';
|
|
|
|
if ( !pszFile[0] )
|
|
{
|
|
OLECHAR *pwchQuery;
|
|
TCHAR szFileT[MAX_PATH];
|
|
|
|
// Temporarily, null out the '?' in the url
|
|
pwchQuery = StrRChrW(puw.pszSuffix, NULL,'?');
|
|
if (pwchQuery)
|
|
{
|
|
*pwchQuery = 0;
|
|
}
|
|
|
|
// IE5 bug 15055 - http://my.excite.com/?uid=B56E4E2D34DF3FED.save_uid
|
|
// fails to save because we were passing "my.excite.com/" as the file
|
|
// name to the file dialog. It doesn't like this.
|
|
if (!pwchQuery || (pwchQuery[-1] != '/' && pwchQuery[-1] != '\\'))
|
|
{
|
|
dwSize = ARRAYSIZE(szFileT);
|
|
|
|
StrCpyN(szFileT, PathFindFileName(puw.pszSuffix), dwSize);
|
|
|
|
if ( !InternetCanonicalizeUrl( szFileT, pszFile, &dwSize, ICU_DECODE | ICU_NO_ENCODE) )
|
|
StrCpyN(pszFile, szFileT, cchFile);
|
|
|
|
pszFile[cchFile - 1] = 0;
|
|
}
|
|
|
|
if (pwchQuery)
|
|
*pwchQuery = '?';
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!pszFile[0])
|
|
{
|
|
MLLoadString(IDS_UNTITLED, pszFile, cchFile);
|
|
}
|
|
|
|
return hr;
|
|
}
|
|
|
|
INT_PTR CALLBACK SaveAsWarningDlgProc(HWND hDlg, UINT msg, WPARAM wParam,
|
|
LPARAM lParam)
|
|
{
|
|
BOOL fRet = FALSE;
|
|
HRESULT hr = S_OK;
|
|
int iFlags = 0;
|
|
INT_PTR bChecked = 0;
|
|
|
|
switch (msg)
|
|
{
|
|
case WM_INITDIALOG:
|
|
MessageBeep(MB_ICONEXCLAMATION);
|
|
fRet = TRUE;
|
|
|
|
case WM_COMMAND:
|
|
bChecked = SendDlgItemMessage(hDlg, IDC_SAVEAS_WARNING_CB,
|
|
BM_GETCHECK, 0, 0 );
|
|
iFlags = (bChecked) ? (SAVEAS_NEVER_ASK_AGAIN) : (0);
|
|
|
|
switch (LOWORD(wParam))
|
|
{
|
|
case IDYES:
|
|
iFlags |= SAVEAS_OK;
|
|
// fall through
|
|
|
|
case IDNO:
|
|
EndDialog(hDlg, iFlags);
|
|
fRet = TRUE;
|
|
break;
|
|
}
|
|
|
|
default:
|
|
fRet = FALSE;
|
|
}
|
|
|
|
return fRet;
|
|
}
|