Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to activate OLE server ?
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00480113
Message ID:
00480722
Views:
9
>>>>>>>>>Luis, did you register your DCOM on the client PC with
>>>>>>>>>clireg32 myDcom.VBR
>>
>>Yes I just did, and I did not make a difference.
>>
>>This is a pseudo code of what I am doing step by step
>>
>>Step 1, create a prg with the class definition
>>
>>DEFINE CLASS MyDCOM AS CUSTOM OLEPUBLIC
>> PROCEDURE GetValue
>> LPARAMETER tnValue
>>
>> DO CASE
>> CASE tnValue=1
>> RETURN 2
>>
>> CASE tnValue=2
>> RETURN 4
>>
>> CASE tnValue=3
>> RETURN 6
>> ENDCASE
>>
>> ENDPROC
>>ENDDEFINE
>>
>>Step 2
>>Add the prg to an empty project
>>
>>Step 3
>>Build the project as Com Server (exe)
>>
>>Step 4
>>Run MyDcom.exe -REGSERVER, from the dos prompt
>>
>>Step 5
>>Run CLiregReg32.exe MyDcom.vbr
>>It pops a window to choose Remote Transport
>>I click on Distributed Com
>>And type my computer name in the Network Address, "\\Luis"
>>
>>Step 6
>>Start AutMgr32.exe
>>
>>Step 7
>>Grab the CLSID from the VBR file
>>
>>Step 8
>>From the command window do a :
>>loMyDCOM=CreateObjectEX(lcMyCLSID,"\\Luis")
>>
>>and then I got Class not registered.
>>
>>
>>What am I missing here ?
>>Thanks for your time to all you :-)
>
>
>FWIW, I wasted a lot of time trying to use CreateObjectEx() on the same computer the server was installed on. It didn't work. DCOM servers need to be called from a different computer. Also, I don't know anyone who has had success getting a DCOM server to run correctly on Windows 98. You'll need Win NT/2K if you're not already using it.
>
>HTH

I didn't get it work on Win 98 either.

Luis, are you realy trying to run DCOM on one PC? My understanding was that you do it on different ones as it supposed to be with DCOM.
Nick Neklioudov
Universal Thread Consultant
3 times Microsoft MVP - Visual FoxPro

"I have not failed. I've just found 10,000 ways that don't work." - Thomas Edison
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform