在 SDK 程序中引用 ActiveX 控件

冷不防 2022-01-17 02:57 264阅读 0赞

[为什么80%的码农都做不了架构师？>>> ][80_] ![hot3.png][]

很多时候真的很羡慕VB/DELPHI程序员，他们可以方便的用各种控件来搭建一个应用程序。  
而我们呢，要使用ActiveX控件都要找大 半天资料，而且还要手工做大量工作，真是不公平(呵呵，想想人家写硬件驱动的程序员，我们还是轻松多了嘛)。  
下面我就简单的来讲一下如何引用一个 ActiveX控件，我以Flash控件为例：  
这里我就不一步一步讲了，有兴趣的话就下载源代码吧：）  
  
[点击这里下 载工程源代码 ][Link 1]  
  
// 首先要包含几个COM头文件  
// 因为要用到ATL容器窗口，所以需要初始化一个CComModule以及包含atlwin.h头文件  
 \#include  
CComModule \_Module;  
\#include  
\#include  
\#pragma comment(lib,"atl")  
  
// 引入FLASH控件,这里的路径为自己计算机上的FLASH控件的实际路径  
\#import "C:/WINNT/system32/Macromed/Flash/Flash.ocx"  
using namespace ShockwaveFlashObjects;  
  
// 在WinMain中做初始化  
int APIENTRY WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)  
\{  
CoInitialize(NULL);  
AtlAxWinInit();  
.  
.  
.  
CoUninitialize();  
return msg.wParam;  
\}  
  
// 开始创建ATL容器窗口，并通过QueryControl()方法获得FLASH控件对象  
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)  
\{  
static CAxWindow WinContainer;  
static CComPtr pFlash;  
  
switch (message)  
\{  
case WM\_CREATE:  
RECT rc;  
GetClientRect(hWnd,&rc);  
WinContainer.Create(hWnd,&rc,LPCTSTR("ShockwaveFlash.ShockwaveFlash"),WS\_CHILD | WS\_VISIBLE);  
HRESULT hr;  
hr = WinContainer.QueryControl(\_\_uuidof (IShockwaveFlash),(void \*\*)&pFlash);  
if (FAILED(hr))return \-1L;  
hr = pFlash->put\_Movie(CComBSTR(L".//sample.swf"));  
if (SUCCEEDED(hr))pFlash->Play();  
break;  
.  
.  
.  
case WM\_DESTROY:  
pFlash.Release();  
WinContainer.DestroyWindow();  
PostQuitMessage(0);  
break;

default:  
return DefWindowProc(hWnd, message, wParam, lParam);  
\}  
  
return 0L;  
\}  
  
好了，终于我也可以在我的程序中播放FLASH动画了， 高兴啊：）  
下面再示范一下如何在程序中创建WebBrower控件：  
  
1. 将下面语句  
 \#import "C:/WINNT/system32/Macromed/Flash/Flash.ocx"  
using namespace ShockwaveFlashObjects;  
替换成：  
\#include "exdisp.h"  
  
2. 将对象变量  
static CComPtr pFlash;  
替换成：  
static CComPtr pWebBrowser;  
  
3. 将下面的语句  
RECT rc;  
GetClientRect(hWnd,&rc);  
WinContainer.Create(hWnd,&rc,LPCTSTR("ShockwaveFlash.ShockwaveFlash"),WS\_CHILD | WS\_VISIBLE);  
HRESULT hr;  
hr = WinContainer.QueryControl(\_\_uuidof (IShockwaveFlash),(void \*\*)&pFlash);  
if (FAILED(hr))return \-1L;  
hr = pFlash->put\_Movie(CComBSTR(L".//sample.swf"));  
if (SUCCEEDED(hr))pFlash->Play();  
替换 成：  
RECT rc;  
GetClientRect(hWnd,&rc);  
WinContainer.Create(hWnd,&rc,LPCTSTR("Microsoft.IExplorer.4"),WS\_CHILD | WS\_VISIBLE);  
HRESULT hr;  
hr = WinContainer.QueryControl(\_\_uuidof (IWebBrowser2),(void \*\*)&pWebBrowser);  
if (FAILED(hr))return \-1L;  
VARIANT url;  
VARIANT v;  
url.vt = VT\_BSTR;  
url.bstrVal = SysAllocString(L" [http://www.cppblog.com/azhisoft/ ][http_www.cppblog.com_azhisoft_] ");  
hr = pWebBrowser->Navigate2(&url,&v,&v,&v,&v);  
  
4. 最后一点  
pFlash.Release();  
WinContainer.DestroyWindow();  
PostQuitMessage(0);  
替 换成：  
pWebBrowser.Release();  
WinContainer.DestroyWindow();  
PostQuitMessage(0);  
  
此 为抛砖引玉，希望能给大家带来借鉴效果，呵呵！！！  
以后不用羡慕VB/DELPHI程序员了，因为我们同样可以，哈哈，高兴。

原文链接 [http://www.cppblog.com/azhisoft/articles/426.html][http_www.cppblog.com_azhisoft_articles_426.html]

转载于:https://my.oschina.net/dake/blog/196799

[80_]: https://my.oschina.net/u/2663968/blog/3051541
[hot3.png]: /images/20220117/06107fd9cb1944189c1b341a66b294f0.png
[Link 1]: http://azhisoft.com/useActiveX.rar
[http_www.cppblog.com_azhisoft_]: http://www.cppblog.com/azhisoft/azhisoft/azhisoft/
[http_www.cppblog.com_azhisoft_articles_426.html]: http://www.cppblog.com/azhisoft/articles/426.html