HRESULT DispSource([out,retval]BSTR* path);STDMETHODIMP CTest::DispSource(BSTR* path)
{
SysFreeString(*path); CComBSTR b(str/*Your path string*/);
b.CopyTo(path);
}VB:'Import lib file.Dim obj As XXX.Test
Dim str as String
Set obj=CreateObject("XXX.Test")'progid
str=obj.DispSourceSet obj=nothing
{
SysFreeString(*path); CComBSTR b(str/*Your path string*/);
b.CopyTo(path);
}VB:'Import lib file.Dim obj As XXX.Test
Dim str as String
Set obj=CreateObject("XXX.Test")'progid
str=obj.DispSourceSet obj=nothing
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货