ATL Activex COM

枚举 CLSID_AudioCompressorCategory 时遇到中断错误！

玻璃小屋 — Wed, 16 Dec 2009 06:11:00 GMT

HRESULT GetACMFilterByName(wchar_t* pwcFilterName)
{
// Create the System Device Enumerator.
HRESULT hr;
ICreateDevEnum *pSysDevEnum = NULL;
JIF(CoCreateInstance(CLSID_SystemDeviceEnum, NULL, CLSCTX_INPROC_SERVER,IID_ICreateDevEnum, (void **)&pSysDevEnum));

// Obtain a class enumerator for the video compressor category.
IEnumMoniker *pEnumCat = NULL;

// 如果应用程序以调试模式启动的话，下面这句会错误中断。。如果直接运行，不启动调试，就可以正常不知道为什么。。。没办法了。。只有后面加一句 assert(0); 然后直接运行。。到assert(0);时用重试进入调试模式。。。
JIF(pSysDevEnum->CreateClassEnumerator(CLSID_AudioCompressorCategory, &pEnumCat, 0));

assert(0);

IPropertyBag* pPropBag;
IMoniker*  pMoniker = NULL;
ULONG   cFetched;
VARIANT   varName;
IBaseFilter* pFilter;
LRESULT   lrId;

while(pEnumCat->Next(1, &pMoniker, &cFetched) == S_OK)
{
  hr = pMoniker->BindToStorage(0, 0, IID_IPropertyBag, (void **)&pPropBag);
  if (SUCCEEDED(hr))
  {
   VariantInit(&varName);
   hr = pPropBag->Read(L"FriendlyName", &varName, 0);
   if (SUCCEEDED(hr))
   {
    hr = pMoniker->BindToObject(NULL, NULL, IID_IBaseFilter,(void**)&pFilter);
    {
     assert(pFilter != 0);
     //EnumSoundInputPinToCommbo(pFilter,varName.bstrVal,IDC_COMBO_SOUND);
    }

    //if(SupportsPropertyPage(pFilter))
    //{
    // hr = ShowFilterPropertyPage(pFilter,hDlg);
    //}
   }
   VariantClear(&varName);

   SAFE_RELEASE(pPropBag);
  }
  SAFE_RELEASE(pMoniker);
}

SAFE_RELEASE(pEnumCat);
SAFE_RELEASE(pSysDevEnum);
}

异常时的堆栈信息：

> ntdll.dll!_DbgBreakPoint@0()
  ntdll.dll!_RtlpBreakPointHeap@4() + 0x28 字节
  ntdll.dll!_RtlpValidateHeapEntry@12() + 0x514ef 字节
  ntdll.dll!_RtlDebugFreeHeap@12() + 0x97 字节
  ntdll.dll!_RtlFreeHeapSlowly@12() + 0x15340 字节
  ntdll.dll!_RtlFreeHeap@12() + 0x147b9 字节
  msms001.vwp!04947b68()
  [下面的框架可能不正确和/或缺失，没有为 msms001.vwp 加载符号]
  msms001.vwp!04932483()
  msms001.vwp!04947539()
  msms001.vwp!0493fcf7()
  vct3216.dll!048d4326()
  vct3216.dll!048d7102()
  vct3216.dll!048d4699()
  vct3216.dll!048c5b1e()
  vct3216.dll!048c4bb0()
  vct3216.dll!048c46d7()
  vct3216.dll!048ca646()
  vct3216.dll!048ca261()
  vct3216.acm!048a2e04()
  kernel32.dll!_IsProcessorFeaturePresent@4()

哎。。带preview的写2路文件的dshow录制filter 链...

玻璃小屋 — Fri, 27 Nov 2009 08:40:00 GMT

视频预览必须用smart tee分出的preview 脚。。用infinine tee filter的话。。。会停住。。。
http://blog.vckbase.com//images/vckbase_com/zaboli/352/o_graph_2file_1preview.GIF

不用_ConnectPtr，和数据库中的表，生成自己的_RecordsetPtr

玻璃小屋 — Wed, 11 Nov 2009 04:16:00 GMT

_RecordsetPtr rs;
rs.CreateInstance(__uuidof(Recordset));
rs->CursorLocation = adUseClient;

rs->Fields->Append(_bstr_t("[test]"),adVarChar,50,adFldMayBeNull);//,"t1");
rs->Fields->Append(_bstr_t("[test2]"),adVarChar,50,adFldMayBeNull);//,"t2");

rs->Open(vtMissing,vtMissing,adOpenUnspecified,adLockUnspecified ,adOptionUnspecified);

for(int i = 0; i < 20; i++)
{
  rs->AddNew();
  rs->PutCollect(_bstr_t("[test]"),_bstr_t("t1"));
  rs->PutCollect(_bstr_t("[test2]"),_bstr_t("t2"));
  rs->Update();
}

rs->MoveFirst();
while(!rs->adoEOF)
{
  _bstr_t bstr = rs->GetCollect(_bstr_t("[test]"));
  _bstr_t bstr1 = rs->GetCollect(_bstr_t("[test2]"));
  rs->MoveNext();

}

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