Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Returning Cursors...
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00695065
Message ID:
00695230
Views:
15
Larry

Try this

Create the 1st Com with a Private Datasession

DEFINE CLASS test AS Session OLEPUBLIC
Datasession = 2

Function test
Create Cursor 'cCursor' (test I)
o = CreateObject('test1.test')
? o.test()
EndFunc
EndDefine

Build MtDll as Test From Test



Create the 2nd Com with a Default Datasession

DEFINE CLASS test AS Session OLEPUBLIC
Datasession = 1

Function test
Return Used('cTable')
EndFunc
EndDefine

Build MtDll as Test1 From Test1



o = CreateObject('test.test')
? o.Test()

Barry
Previous
Reply
Map
View

Click here to load this message in the networking platform