ALT COM组件 ALT ActiveX组件中字符串的传入及VBS,按键精灵的调用方法

NemoHu

于 2013-11-13 15:32:38 发布

阅读量287

点赞数

分类专栏： VC实用代码

本文链接：https://blog.csdn.net/qq7183316/article/details/15813581

版权

VC实用代码专栏收录该内容

45 篇文章 0 订阅

订阅专栏

COM组件返回传出一个字符串

接口中的声明：
interface ITxQuest : IDispatch
{
[id(1), helpstring("method TestFun")] HRESULT TestFun([in]BSTR bstr,[out,retval]BSTR* pbstr);
};

类头文件中的声明.h
// ITxQuest
public:
STDMETHOD(TestFun)(BSTR bstr,BSTR* pbstr);

CPP文件中的实例
HRESULT CTxQuest::TestFun(BSTR bstr,BSTR* pbstr)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState())


// TODO: Add your implementation code here
SysAllocString(L"Test");


AfxMessageBox(bstr);
return S_OK;
}

VBS中的调用方法
Dim obj
Dim a,b
Set obj = CreateObject("TxQuestCom.TxQuest.1")
b = obj.TestFun(a)
MsgBox b