Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Application crashes in COM+
Message
From
03/12/2002 18:54:08
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00729183
Message ID:
00729210
Views:
12
Hi Stephane,

This is a known issue that will be fixed before release. Thanks!

>Step to reproduce:
>
>1. Create on New VFP Project and call it TestC5
>2. Paste The following code in a new program in the new project
>
>Define Class TestC5 As Session OLEPUBLIC
>
>	Function Test1()
>		
>		This.EndTransaction()
>		Return "Test1"
>
>	EndFunc
>	
>	Function Test2
>		Return "Test2"
>	EndFunc
>	
>	Protected Function EndTransaction()
>
>		Local loCom, loContext, loContextState
>
>		loCom = CREATEOBJECT( "MTXAS.APPSERVER.1" )
>		loContext = loCom.GetObjectContext()
>
>		loContext.SetComplete()
>		
>		Store NULL TO loCom, loContext
>
>	EndFunc
>
>EndDefine
>
>
>3. Build as a Multi-Threaded Com server (dll)
>4. Open The Component services from the Administrative tools
>5. Drill down to: Component Services->Computers->My Computer->COM+ Application
>6. Click and then Right-click on COM+ Application And choose New->Application
>7. Click Next And Choose "Create An empty application"
>8. Enter "Test" As the application name and leave everything else as default.
>9. Open the COM+ Application->Test and click on Components.
>10. Right-click on components and Coose New->Component
>11. Click Next and choose "Install New component"
>12. Select the Testc5.dll created in step 3
>13. Click on Next and finish.
>
>14. Go back to the VFP IDE and run the following lines in the command window:
>
>ox=CreateObject("TestC5.TestC5")
>?ox.Test1 && Displays "Test 1"
>?ox.Test2 && Displays "Test 2"
>ox=Null && The COM+ Application crashes and a COM+ error Event is recorded in the application event log
>
>
>
>I reproduced it on many machines with :
>- VFP7, VFP7 SP1, VFP8
>- Windows 2000 WS SP3, 2000 Server SP3, XP SP1
>
>I also created the same functionnality with c# and it works fine.
>
>Can anybody confirm it's a bug?
------------------------------------------------
John Koziol, ex-MVP, ex-MS, ex-FoxTeam. Just call me "X"
"When the going gets weird, the weird turn pro" - Hunter Thompson (Gonzo) RIP 2/19/05
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform