这个com在vb中可以如下实现:
Dim objAPI As RTXServerApi.RTXAPI
Dim objSMS As RTXServerApi.IRTXObject
Dim objProp As Object
Dim RetCode As Integer
'创建RTX API的主对象
Set objAPI = CreateObject("RTXServer.RTXAPI")
Set objSMS = objAPI.GetObject("SMSObject")
Set objProp = objAPI.GetObject("Property")
但是因为IRTXObject是抽象类,而且CreateObject()定义返回_variant_t,我就是不知道在vc中如何实现,接口说明见上面。
//i assumed your variant just store on class
class myclass;
myclass *mc;
mc=new myclass();
void *p
p=memalloc(length);
(_variant_t *)p=myvariant;
mc=p;