Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Need to call a routine and get something back.
Message
 
 
À
18/11/2000 02:21:45
Michael Vaccarello
Insurance Data Processing, Inc.
Wyncote, Pennsylvanie, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Divers
Thread ID:
00443088
Message ID:
00443371
Vues:
20
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform