LboxIE::LboxIE()
{
	bError = false;

	try {

		if ( pIE == NULL ) {
			pIE.CreateInstance(L"InternetExplorer.Application");
			pIE->Visible = false;
		}

	}
	catch (_com_error &e)
	{
		ComError.operator = ( (char *)(e.ErrorMessage()) );
		bError = true;
	}
}

LboxIE::~LboxIE()
{
	try {

		if ( pIE != NULL ) {
			pIE->Quit();
			pIE.Release();
			pIE = NULL;
		}

	}
	catch (_com_error &e)
	{
	}
}

// *********************************************************
// ドキュメントのロード
// *********************************************************
void LboxIE::Load( LboxString *LString )
{	
	LboxIE::Load( LString->szLboxString );
}
void LboxIE::Load( LPTSTR lpPath )
{
	_bstr_t bstrValue;
	VARIANT vParam;

	bstrValue.operator = (lpPath);
	vParam.vt = VT_BSTR;
	vParam.bstrVal = 
		(wchar_t*)(bstrValue.operator const wchar_t * ());

	bError = false;

	try {
		if ( pIE != NULL ) {
			pIE->Navigate2(&vParam);
		}
	}
	catch (_com_error &e)
	{
		ComError.operator = ( (char *)(e.ErrorMessage()) );
		bError = true;
	}
}

// *********************************************************
// アプリケーションの表示・非表示
// *********************************************************
void LboxIE::Visible( BOOL bFlg )
{
	bError = false;

	try {
		if ( pIE != NULL ) {
			pIE->Visible = bFlg;
		}

	}
	catch (_com_error &e)
	{
		ComError.operator = ( (char *)(e.ErrorMessage()) );
		bError = true;
	}
}

// *********************************************************
// 使用中かどうか
// *********************************************************
BOOL LboxIE::GetBusy( void )
{
	BOOL bRet;

	bError = false;
	bRet = false;

	try {
		if ( pIE != NULL ) {
			bRet = pIE->GetBusy();
		}
	}
	catch (_com_error &e)
	{
		ComError.operator = ( (char *)(e.ErrorMessage()) );
		bError = true;
	}

	return bRet;
}

// *********************************************************
// ウインドウハンドルの取得
// *********************************************************
HWND LboxIE::GetWindowHandle( void )
{
	HWND hWnd;

	bError = false;
	hWnd = NULL;

	try {
		if ( pIE != NULL ) {
			hWnd = (HWND)(pIE->HWND);
		}
	}
	catch (_com_error &e)
	{
		ComError.operator = ( (char *)(e.ErrorMessage()) );
		bError = true;
	}

	return hWnd;
}

// *********************************************************
// リロード
// *********************************************************
void LboxIE::Reload( void )
{
	VARIANT vParam;
	_variant_t vWork;

	bError = false;

	try {
		if ( pIE != NULL ) {
			vWork.operator = ( (short)REFRESH_COMPLETELY );
			vParam = vWork.Detach();
			pIE->Refresh2(&vParam);
		}
	}
	catch (_com_error &e)
	{
		ComError.operator = ( (char *)(e.ErrorMessage()) );
		bError = true;
	}
}

// *********************************************************
// プレビュー
// *********************************************************
void LboxIE::Preview( void )
{
	VARIANT vNull;

	ZeroMemory( &vNull, sizeof( VARIANT ) );
	vNull.vt = VT_NULL;

	bError = false;

	try {
		if ( pIE != NULL ) {
			pIE->ExecWB(
				OLECMDID_PRINTPREVIEW,
				OLECMDEXECOPT_DODEFAULT,
				&vNull,
				&vNull
			);
		}
	}
	catch (_com_error &e)
	{
		ComError.operator = ( (char *)(e.ErrorMessage()) );
		bError = true;
	}
}