#include <stdlib.h> #include <windows.h> #include <atlbase.h> #include <atlhost.h> #define CLASS_NAME "IE Component Test" HWND CreateIEWebBrowser( HWND parent, LPCTSTR url ) { RECT rect; HWND hwnd; CComPtr<IUnknown> unknown; CComQIPtr<IWebBrowser2> web2; CComVariant no_use, navigate_url( url ); if( !GetClientRect( parent, &rect ) ) return NULL; if( !AtlAxWinInit() ) return NULL; hwnd = CreateWindow( "AtlAxWin71", "Shell.Explorer.2", WS_CHILD|WS_TABSTOP|WS_VISIBLE, rect.left, rect.top, abs( rect.right - rect.left ), abs( rect.bottom - rect.top ), parent, 0, (HINSTANCE)GetWindowLong( parent, GWL_HINSTANCE ), 0 ); if( !hwnd ) return NULL; if( !url ) return hwnd; if( AtlAxGetControl( hwnd, &unknown ) != S_OK ) return NULL; web2 = unknown; web2->Navigate2( &navigate_url, &no_use, &no_use, &no_use, &no_use ); return hwnd; } LRESULT CALLBACK WinProc( HWND h, UINT m, WPARAM w, LPARAM l ) { switch(m) { case WM_DESTROY: PostQuitMessage(0); return 0; } return DefWindowProc( h, m, w, l ); } int WINAPI WinMain( HINSTANCE hinst, HINSTANCE, LPSTR, int ) { GUID guid; CComModule module; //WTL7.0以降ならこれでＯＫ WNDCLASS wc; HWND hwnd; MSG msg; memset( &wc, 0, sizeof(wc) ); wc.hbrBackground = (HBRUSH)GetStockObject( WHITE_BRUSH ); wc.hCursor = LoadCursor( NULL, IDC_ARROW ); wc.hIcon = LoadIcon( NULL, IDI_WINLOGO ); wc.hInstance = hinst; wc.lpfnWndProc = WinProc; wc.lpszClassName = CLASS_NAME; if( !RegisterClass( &wc ) ) return 1; hwnd = CreateWindow( CLASS_NAME, "Web Browser Sample", WS_BORDER|WS_CAPTION|WS_SYSMENU|WS_VISIBLE, 0, 0, 800, 600, 0, 0, hinst, 0 ); //Init()する場所はAtlAxWinInit()関数を呼ぶ前なら良いらしい。 //CreateIEWebBrowser()関数内で実行したらアサートに引っかかった。 //ということは、WinMain()関数内でないとダメ？？？ module.Init( 0, hinst, &guid ); CreateIEWebBrowser( hwnd, "http://www.yahoo.co.jp/" ); while( GetMessage( &msg, 0, 0, 0 ) > 0 ) { DispatchMessage( &msg ); } module.Term(); return 0; } 私は ATL, WTL, COM についての十分な知識がありません。 間違いなどありましたら、ご指摘頂ければ幸いです。 参考にしたサイト IEコンポーネントブラウザ ATL/WTLプログラミング 1：ATL/WTLの概要と基本 めも日記(2004-12-18) WTL7x で ATLASSERT(!InlineIsEqualGUID(*m_plibid,GUID_NULL) && "Did you forget to pass the LIBID to CComModule::Init?"); というアサートが出る現象についての解決策が書かれています。 ATL/WTL メモリ管理クラス(ATL) http://msdn.microsoft.com/ja-jp/library/44yh1z4f(VS.80).aspx CComPtr と CComQIPtr の違いについて My life your melody. IEコンポーネントの扱い方については、 下記のサイトをご覧いただければ事足りてしまうかも知れません。 IEコンポーネントの使い方[VC++の使い方] IEコンポーネントを利用するにあたって、 VC++ のバージョンや、インストールしている WTL のバージョンによって、 変更が必要になる部分があります。 私がサンプルを作成した環境は以下の通りです。 Windows XP Home Edition Version 2002 Service Pack 2 Windows Update は毎回行っています。 Microsoft Development Environment 2003 Version 7.1.6030 Microsoft .NET Framework 1.1 バージョン 1.1.4322 SP1 Microsoft Visual C++ .NET Microsoft Visual Studio .NET 2003 Service Pack 1 Internet Explorer 7 バージョン 7.0.5730.13 プロジェクトの設定 私の環境ではデフォルトのままで動作しました。 ATL についても「ATL を使用しない」という設定のままです。 CComModule について CComModule は WTL7.0 以降であれば、 グローバル変数にする必要はないそうです。 サンプルソースは WTL7.1 用です。 module.Init() は、どうも WinMain() 関数内で呼ばなければならないようです。 CreateIEWebBrowser() 関数内で呼び出すようにしたら、 コンパイルとリンクは通りましたが、 実行時にアサートにひっかかりました。 VC++6.0 での記述方法は、前述したサイトに書かれているので省略します。 CreateIEWebBrowser() について この関数は親ウィンドウのハンドルと、 表示するウェブサイトのＵＲＬを受け取って、 親ウィンドウのクライアント領域いっぱいに、 IEのウェブブラウザを表示させる関数です。 ウェブブラウザの作成に成功したら、そのウィンドウハンドルを返します。 失敗時は NULL を返します。 引数の説明 parent 親ウィンドウのハンドル url 表示するウェブサイトのＵＲＬ NULL 指定時はウェブブラウザの作成のみ行い、 ウェブサイトは表示しません。 関数内の処理の捕捉説明 if( !AtlAxWinInit() ) return NULL; AtlAxWinInit() は、 ATLを使ってIEのウェブブラウザを作成する前に必ず実行します。 hwnd = CreateWindow( "AtlAxWin71", "Shell.Explorer.2", "AtlAxWin71" は、WTL7x より前なら "AtlAxWin"、WTL8x 以降なら "AtlAxWin80" を指定するようです。 現在 SourceForge でダウンロード可能な WTL7.5 の場合は、 おそらく "AtlAxWin75" と指定します（動作検証はしてないので、 間違っている可能性があります）。 "Shell.Explorer.2" は固定です。 IEコンポーネントを使う場合は必ずこのように指定します。 IEコンポーネントの機能を使う IEウェブブラウザを作成したウィンドウのハンドルがあれば、 IEコンポーネント(IWebBrowser2)の機能(メソッド)を呼び出すことができます。 機能の呼び出し方 HWND browser = CreateIEWebBrowser( hwnd_parent, NULL ); CComPtr<IUnknown> unknown; CComQIPtr<IWebBrowser2> web2; if( AtlAxGetControl( browser, &unknown ) == S_OK ) { web2 = unknown; web2->何かのメソッド; } どんな機能があるかの説明は、以下のサイトにおまかせします。 MSDN IWebBrowser2 Interface http://msdn.microsoft.com/en-us/library/aa752127(VS.85).aspx インターフェース IWebBrowser2(Java用) http://www.k-nextage.co.jp/ame/soft/wfc/htmldoc/com.ms.wfc.html.om/com/ms/wfc/html/om/shdocvw/IWebBrowser2.html