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

原创于 2013-11-13 15:32:38 发布 · 318 阅读

0 ·

CC 4.0 BY-SA版权

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

45 篇文章

订阅专栏

本文介绍了一个COM组件中字符串的传递方法。通过ITxQuest接口的TestFun方法实现字符串的输入和输出。在类头文件中定义了相应的方法，并在CPP文件中实现了具体的逻辑。最后，展示了如何使用VBS进行调用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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