ATL Activex COM

ATL中的TREECTRL（又是老帮菜的货）

玻璃小屋 — Thu, 27 Sep 2007 12:52:00 GMT

我程序的部分内容：看 BEGIN_PROP_MAP 部分 [所有相关帖子]

WTL 没有用过，因为虽然是微软的东西，但没有资料。但我知道 ATL 吸收了很多 WTL 的东西，另外 WTL 和 ATL 是可以混合用的。

/ NaviTreeCtl.h : CNaviTreeCtl 的声明
#pragma once
#include "resource.h"       // 主符号
#include <atlctl.h>
#include "FtrCtl.h"
#include "_INaviTreeCtlEvents_CP.h"
#include <commctrl.h>
#include "StrLine.h"
#include "atlcomcli.h"

extern HINSTANCE g_hInstance;

typedef struct _tagNAVIGATION_NODE
{
    BSTR bstrType;        // ROOT：根结点； MODI：有改动后的根结点
                    // S：检索表达式 O：分支 F：文件 M：宏
    BSTR bstrPara;    // 参数
} NAVIGATION_NODE, FAR * LPNAVIGATION_NODE;
// CNaviTreeCtl
class ATL_NO_VTABLE CNaviTreeCtl :
    public CComObjectRootEx<CComSingleThreadModel>,
    public CStockPropImpl<CNaviTreeCtl, INaviTreeCtl>,
    public IPersistStreamInitImpl<CNaviTreeCtl>,
    public IOleControlImpl<CNaviTreeCtl>,
    public IOleObjectImpl<CNaviTreeCtl>,
    public IOleInPlaceActiveObjectImpl<CNaviTreeCtl>,
    public IViewObjectExImpl<CNaviTreeCtl>,
    public IOleInPlaceObjectWindowlessImpl<CNaviTreeCtl>,
    public ISupportErrorInfo,
    public IConnectionPointContainerImpl<CNaviTreeCtl>,
    public CProxy_INaviTreeCtlEvents<CNaviTreeCtl>,
    public IPersistStorageImpl<CNaviTreeCtl>,
    public ISpecifyPropertyPagesImpl<CNaviTreeCtl>,
    public IQuickActivateImpl<CNaviTreeCtl>,
    public IDataObjectImpl<CNaviTreeCtl>,
    public IProvideClassInfo2Impl<&CLSID_NaviTreeCtl, &__uuidof(_INaviTreeCtlEvents), &LIBID_FtrCtlLib>,
    public CComCoClass<CNaviTreeCtl, &CLSID_NaviTreeCtl>,
    public CComControl<CNaviTreeCtl>,
    public IPersistPropertyBagImpl<CNaviTreeCtl>
    //    public IDispatchImpl<_INaviTreeCtlEvents, &__uuidof(_INaviTreeCtlEvents), &LIBID_FtrCtlLib, /* wMajor = */ 1, /* wMinor = */ 0>
{
public:
    CContainedWindow m_ctlSysTreeView32;

#pragma warning(push)
#pragma warning(disable: 4355) // “this”: 用于基成员初始值设定项列表

    CNaviTreeCtl()
        : m_ctlSysTreeView32(_T("SysTreeView32"), this, 1)
    {
        m_bWindowOnly = TRUE;
        m_hwndTree = NULL;
        m_hImgList = NULL;
        m_bDirty = FALSE;
        m_bMenu = true;
    }

#pragma warning(pop)

    DECLARE_OLEMISC_STATUS(OLEMISC_RECOMPOSEONRESIZE |
    OLEMISC_CANTLINKINSIDE |
        OLEMISC_INSIDEOUT |
        OLEMISC_ACTIVATEWHENVISIBLE |
        OLEMISC_SETCLIENTSITEFIRST
        )

        DECLARE_REGISTRY_RESOURCEID(IDR_NAVITREECTL)

    BEGIN_COM_MAP(CNaviTreeCtl)
        COM_INTERFACE_ENTRY(INaviTreeCtl)
        COM_INTERFACE_ENTRY(IDispatch)//, _INaviTreeCtlEvents)
        COM_INTERFACE_ENTRY(IViewObjectEx)
        COM_INTERFACE_ENTRY(IViewObject2)
        COM_INTERFACE_ENTRY(IViewObject)
        COM_INTERFACE_ENTRY(IOleInPlaceObjectWindowless)
        COM_INTERFACE_ENTRY(IOleInPlaceObject)
        COM_INTERFACE_ENTRY2(IOleWindow, IOleInPlaceObjectWindowless)
        COM_INTERFACE_ENTRY(IOleInPlaceActiveObject)
        COM_INTERFACE_ENTRY(IOleControl)
        COM_INTERFACE_ENTRY(IOleObject)
        COM_INTERFACE_ENTRY(IPersistStreamInit)
        COM_INTERFACE_ENTRY2(IPersist, IPersistStreamInit)
        COM_INTERFACE_ENTRY(ISupportErrorInfo)
        COM_INTERFACE_ENTRY(IConnectionPointContainer)
        COM_INTERFACE_ENTRY(ISpecifyPropertyPages)
        COM_INTERFACE_ENTRY(IQuickActivate)
        COM_INTERFACE_ENTRY(IPersistStorage)
        COM_INTERFACE_ENTRY(IDataObject)
        COM_INTERFACE_ENTRY(IProvideClassInfo)
        COM_INTERFACE_ENTRY(IProvideClassInfo2)
        COM_INTERFACE_ENTRY(IPersistPropertyBag)
//        COM_INTERFACE_ENTRY(_INaviTreeCtlEvents)
    END_COM_MAP()

    BEGIN_PROP_MAP(CNaviTreeCtl)
        PROP_DATA_ENTRY("_cx", m_sizeExtent.cx, VT_UI4)
        PROP_DATA_ENTRY("_cy", m_sizeExtent.cy, VT_UI4)
        PROP_ENTRY("Appearance", DISPID_APPEARANCE, CLSID_NULL)
        PROP_ENTRY("LibCaption", 1, CLSID_NULL)
        PROP_ENTRY("Navigation", 2, CLSID_NULL)
        PROP_ENTRY("bMenu", 8, CLSID_NULL)
        // 示例项
        // PROP_ENTRY("Property Description", dispid, clsid)
        // PROP_PAGE(CLSID_StockColorPage)
    END_PROP_MAP()

    BEGIN_CONNECTION_POINT_MAP(CNaviTreeCtl)
        CONNECTION_POINT_ENTRY(__uuidof(_INaviTreeCtlEvents))
    END_CONNECTION_POINT_MAP()

    BEGIN_CATEGORY_MAP(CNaviTreeCtl)
        IMPLEMENTED_CATEGORY(CATID_SafeForScripting)
        IMPLEMENTED_CATEGORY(CATID_SafeForInitializing)
    END_CATEGORY_MAP()

    BEGIN_MSG_MAP(CNaviTreeCtl)
        MESSAGE_HANDLER(WM_CREATE, OnCreate)
        MESSAGE_HANDLER(WM_SETFOCUS, OnSetFocus)
        MESSAGE_HANDLER(WM_DESTROY, OnDestroy)
        CHAIN_MSG_MAP(CComControl<CNaviTreeCtl>)
        ALT_MSG_MAP(1)
        // 将此替换为超类 SysTreeView32 的消息映射项
//        MESSAGE_HANDLER(WM_LBUTTONDBLCLK, OnDblclk)
        MESSAGE_HANDLER(WM_LBUTTONDOWN, OnLButtonDown)
        MESSAGE_HANDLER(WM_RBUTTONDOWN,OnRButtonDown)
        COMMAND_HANDLER(IDM_NEW,0,OnItemNew)
        COMMAND_HANDLER(IDM_EDIT,0,OnItemEdit)
        COMMAND_HANDLER(IDM_DEL,0,OnItemDel)
    END_MSG_MAP()
    // 处理程序原型:
    //  LRESULT MessageHandler(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled);
    //  LRESULT CommandHandler(WORD wNotifyCode, WORD wID, HWND hWndCtl, BOOL& bHandled);
    //  LRESULT NotifyHandler(int idCtrl, LPNMHDR pnmh, BOOL& bHandled);

状元老梆菜发表于 2007-9-27 20:28:47 给分

错误 "8007007e" 说是文件找不到。。。

玻璃小屋 — Tue, 11 Apr 2006 02:33:00 GMT

检索 COM 类工厂中 CLSID 为 {592232C7-C762-48E1-A38A-C1B653186A6D} 的组件时失败，原因是出现以下错误: 8007007e。System.IO.FileNotFoundException: 检索 COM 类工厂中 CLSID 为 {592232C7-C762-48E1-A38A-C1B653186A6D} 的组件时失败，原因是出现以下错误: 8007007e。
在 WebApplication1.WebForm1.Button1_Click(Object sender, EventArgs e)App_Web_7d0pmnoiabc

//倒霉。。。把 vs2003卸载了，换成 vs2005，asp.net就不能正常了。一个注册的 com找不到，这个com也是自己写的，也是用 vs2003编译的，文件明明摆在哪里，注册表里面的com注册信息也正确，他就说找不到。晕了。。。后来用 dependecy 看了一个自己写的这个 com组件的dll文件。。靠 MFC71d.dll和 Msvcr71.dll找不到。。原来是用 vs2003动态连接到mfc编译的。。。把vs2003卸载了。。。vs2003的mfc库也没了。。所以com组件找不到dll文件就报错了。。。可是这个错误就不能在明确点？？找到这两个文件copy到 com的dll的目录。OK!搞定。

好东西哦~ 专门下载dll文件的网站~ 以后再少什么dll文件就来这找找

玻璃小屋 — Tue, 29 Nov 2005 02:49:00 GMT

http://www.dll-files.com/dllindex/index.shtml

向程序中导入 ACCESS

玻璃小屋 — Tue, 23 Aug 2005 06:58:00 GMT

#define Uses_MSO2000

#ifdef Uses_MSO2000
// for MS Office 2000
#import "C:Program FilesMicrosoft OfficeOfficeMSO9.DLL"
#import "C:Program FilesCommon FilesMicrosoft SharedVBAVBA6VBE6EXT.OLB"
/*
#import "C:Program FilesMicrosoft OfficeOfficeMSWORD9.OLB"
    rename("ExitWindows","_ExitWindows")
#import "C:Program FilesMicrosoft OfficeOfficeEXCEL9.OLB"
    rename("DialogBox","_DialogBox")
    rename("RGB","_RGB")
    exclude("IFont","IPicture")

*/
#import "c:Program FilesCommon FilesSystemADOmsado15.dll" no_namespace rename("EOF", "EndOfFile")
#import "C:Program FilesCommon FilesMicrosoft SharedDAODAO360.DLL"
    rename("EOF","EndOfFile") rename("BOF","BegOfFile")

#import "C:Program FilesMicrosoft OfficeOfficeMSACC9.OLB"
#else
// for MS Office 97
#import "C:Program FilesMicrosoft OfficeOfficeMSO97.DLL"
#import "C:Program FilesCommon FilesMicrosoft SharedVBAVBEEXT1.OLB
#import "C:Program FilesMicrosoft OfficeOfficeMSWORD8.OLB"
    rename("ExitWindows","_ExitWindows")
#import "C:Program FilesMicrosoft OfficeOfficeEXCEL8.OLB"
    rename("DialogBox","_DialogBox")
    rename("RGB","_RGB")
    exclude("IFont","IPicture")
#import "C:Program FilesCommon FilesMicrosoft SharedDAODAO350.DLL"
    rename("EOF","EndOfFile") rename("BOF","BegOfFile")
#import "C:Program FilesMicrosoft OfficeOfficeMSACC8.OLB"
#endif

从 IHTMLDocument2 获得/写入 HTML 文本 (IPersistStreamInit)

玻璃小屋 — Thu, 23 Jun 2005 08:07:00 GMT

/////////////////////////////////////////////////////////////////////////////
// CHtmlView operations

BOOL CHtmlView::GetSource(CString& refString)
{
    BOOL bRetVal = FALSE;
    CComPtr<IDispatch> spDisp = GetHtmlDocument();

    if (spDisp != NULL)
    {
        HGLOBAL hMemory;
        hMemory = GlobalAlloc(GMEM_MOVEABLE, 0);
        if (hMemory != NULL)
        {
            CComQIPtr<IPersistStreamInit> spPersistStream = spDisp;
            if (spPersistStream != NULL)
            {
                CComPtr<IStream> spStream;
                if (SUCCEEDED(CreateStreamOnHGlobal(hMemory, TRUE, &spStream)))
                {
                    spPersistStream->Save(spStream, FALSE);

                    LPCTSTR pstr = (LPCTSTR) GlobalLock(hMemory);
                    if (pstr != NULL)
                    {
                        // Stream is always ANSI, but CString
                        // assignment operator will convert implicitly.

                        bRetVal = TRUE;
                        TRY
                        {
                            refString = pstr;
                        }
                        CATCH_ALL(e)
                        {
                            bRetVal = FALSE;
                            DELETE_EXCEPTION(e);
                        }
                        END_CATCH_ALL

                        if(bRetVal == FALSE)
                            GlobalFree(hMemory);
                        else
                            GlobalUnlock(hMemory);
                    }
                }
            }
        }
    }

    return bRetVal;
}

向 IHTMLDocument2 写入 HTML 文本

int CChildView::HqResize(void)
{
USES_CONVERSION;
CComPtr<IHTMLDocument2> pDoc;

CComPtr<IHTMLElementCollection> sphtmlAll;
CComPtr<IHTMLScriptElement> spObject;
CComPtr<IDispatch> spDisp;
CComVariant varName;
CComVariant varIndex;

if(FAILED(m_wndHq.GetDocument(&pDoc)) || pDoc==NULL)
return 0;

CString strHtml="<html><head><title>网页行情</title></head>"
  "<body leftmargin=0 topmargin=0>"
  "<OBJECT ID=KYT CODEBASE='http://www.sostock.com.cn/hq/webhq/webhq.cab#version=1,0,0,5'"
  "CLASSID='clsid:C952403E-C18D-4332-9F3D-0E1D7C486145'"
  "ALIGN='CENTER'"
  "width='%d'"
  "height='%d'>"
  "</OBJECT>"
  "<script language=javascript id=KYT1>"
  "window.focus();"
  "</script>"
  "</body>"
  "</html>";

CRect rc;
GetClientRect(&rc);

CString strIn;
strIn.Format(strHtml,rc.Width()-20,rc.Height()-15);

CComQIPtr<IPersistStreamInit> spPersistStream(pDoc);

if(spPersistStream==NULL)
return 0;

LPTSTR lpMem = (LPTSTR)::GlobalAlloc( GPTR,strIn.GetLength()+1);
lstrcpy(lpMem,strIn.GetBuffer());

CComPtr<IStream>spStream;
CreateStreamOnHGlobal( lpMem, TRUE, &spStream );
// 初始化后，装载显示
spPersistStream->InitNew();
spPersistStream->Load(spStream );

return 0;
}

IE 里的 Activex 操作 IE打开某个URL

玻璃小屋 — Wed, 01 Jun 2005 06:00:00 GMT

HRESULT CCDlgSell::NavigateURL(const string & strUrl)
{
USES_CONVERSION;
LPOLECLIENTSITE lpClientSite =NULL;
GetClientSite(&lpClientSite);

//ASSERT(lpClientSite != NULL);

LPOLECONTAINER lpContainer;
HRESULT hr = lpClientSite->GetContainer(&lpContainer);
if (FAILED(hr))
return hr;

IServiceProvider* lpServiceProvider;
hr = lpContainer->QueryInterface(IID_IServiceProvider, (void**)&lpServiceProvider);
lpContainer->Release();
if(FAILED(hr))
return hr;

IWebBrowser2* lpWebBrowser;
hr = lpServiceProvider->QueryService(SID_SWebBrowserApp, IID_IWebBrowser2, (void**)&lpWebBrowser);
lpServiceProvider->Release();
if(FAILED(hr))
return hr;

lpWebBrowser->Navigate(CComBSTR(strUrl._Myptr()),NULL,NULL,NULL,NULL);//>get_LocationURL(&bstrURL);

lpWebBrowser->Release();

return hr;
}

ATL 写的COM 组件要取得本DLL模块相关信息的办法

玻璃小屋 — Mon, 17 Jan 2005 19:18:00 GMT

ASP 脚本提示不能创建对象（Server.CreateObject失败)的一种解决办法。

玻璃小屋 — Mon, 20 Dec 2004 21:58:00 GMT

用MFC改写的点对点语音通讯的ActiveX控件源代码！！！

玻璃小屋 — Fri, 10 Dec 2004 03:43:00 GMT

VC调用IDispatch的原理性代码(新货！老梆菜师傅的~~)

玻璃小屋 — Tue, 07 Dec 2004 04:18:00 GMT