Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need to call a routine and get something back.
Message
 
 
To
18/11/2000 02:21:45
Michael Vaccarello
Insurance Data Processing, Inc.
Wyncote, Pennsylvania, United States
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00443088
Message ID:
00443371
Views:
17
>You'll forgive me, but I am new at this COM stuff. Ok. I compiled it as a Single Threaded COM component. I put it on the MTS server and tried to add the package. Everything is good until I hit Finish.

You need to compile it as a multi-threaded DLL.

Then it says:
>"The Component DLL's self-registering routine failed. the DLLRegisterServer function failed or did not register the component."

Most likely you don't have the VFP runtime files on the MTS server. COM servers require the the runtime files for whatever language was used to create them. There is a FAQ here that tells you what files you need. Remeber that you need the multi-threaded support file (VFP6T.DLL) instead of the single threaded version (VFP6R.DLL).

>
>I had copied over the TBL and DLL to the server. Any ideas??? I slightly modified the code you sent, but don't think that should matter. Here is what is in my project entitled "NAMECOM":
>
>Define class MVVClass as session olepublic
>
> Procedure GetSoundex
> Parameters m.NameIn, m.xType , m.Key2Return
>
> * In WEB PAGE you would call it like this:
> * oVFPServer = createobject('servername.MVVClass')
> * cPhoneticStr = oVFPServer.GetSoundex(Name, Type, Key2Return)
>
> Declare INTEGER matcher IN ISTDLL32 ;
> STRING,STRING,STRING,STRING,;
> STRING,STRING,STRING,STRING
>
> m.NameIn = m.NameIn+space(256-len(m.NameIn))
> m.nameout =space(256)
> m.rulebase =space(250)
> m.pheonetic=space(250)
> m.keycount =space(2)
> m.keystack =space(300)
> m.rangetable=space(750)
>
> m.xi = matcher( @Service , @NameIn , @nameout , @rulebase , ;
> @pheonetic, @keycount , @keystack , @rangetable )
>
> Return substr(keystack, 10*Key2Return-9 ,10)
> Endproc
>
>Enddefine
Larry Miller
MCSD
LWMiller3@verizon.net

Accumulate learning by study, understand what you learn by questioning. -- Mingjiao
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform