*-- Method Connect(Port As Long) As Long && no callback in this definition is there? *-- Member of a_CachStandardAPI.aClass *--Connect PUBLIC loAPI as a.CachStandardAPI.aClass loAPI = CREATEOBJECT("a.CachStandard.API.aClass","","") public lnport lnport = 5000 lnConnection = loAPI.connect(lnport) && returns integer 10 for a successful connection *--Populate the ab object's properties lcguid=getguid() && a routine I use to generate a guid Public loAObject as a.CachStandardAPI.abClass && another class in the com dll that holds information loAObject = CREATEOBJECT("a.CachStandard.API.abclass","","") loAObject.ID = lcGuid loAObject.CallbackNumber = '1234567890' loAObject.CallerNumber = '0987654321' loAObject.callerlocation = '100 N Main St;HP' loAObjectCallerName = 'Tracy C Holzer' *--Send the object to the com dll *-- Method SetAvals(obj As _abClass) As Long *-- Member of a_CachStandardAPI.aClass loAPI.SetAVals(loAObject) && works - I can see the object properties in the net com dllNow, if I modify the information in the net com dll directly, I should be able to request an update using a method in the API:
*-- Method GetAvals(CallID As GUID) As _abClass *-- Member of a_CachStandardAPI.aClass loAPI.GetAVals(loAObject.id) && returns 'OLE error code 0x80004002: No such interface supported'Any idea why it would return 'No such interface supported' when I can clearly see the interface in the object browser and I can see it as well if I step through the interfaces using:
*--This shows the interfaces and the GetAvals is listed public otli, otlb otli=NEWOBJECT('tli.tliapplication') otlb=otli.TypeLibInfoFromFile("a.CachStandardAPI.tlb") FOR each oCoClass in otlb.CoClasses ?" ",oCoClass.name *now each interface associated with this CoClass for each oInterface in oCoClass.Interfaces ?" ",oInterface.name endfor endfor ? ?"Interfaces" FOR each oInterface in otlb.Interfaces ?" ",oInterface.name ENDFOR ? FOR i = 1 TO otlb.Interfaces.Count ?"Interface Members for Interface "+ALLTRIM(STR(i)) FOR each oMember IN otlb.Interfaces(i).Members ?" ", oMember.name FOR each oParm in oMember.Parameters ?" ",oParm.name ENDFOR ENDFOR ENDFOR RETURNHowever, I can see the method and the interface in the object browser. It's supposed to return the abObject populated.