Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need to call a routine and get something back.
Message
 
 
To
17/11/2000 12:19:17
Michael Vaccarello
Insurance Data Processing, Inc.
Wyncote, Pennsylvania, United States
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00443088
Message ID:
00443125
Views:
12
Create a COM server out of this and use that in your ASP page.

oVFPServer = createobject('myVFPServer.MyClass')
cPhoneticStr = oVFPServer.ParseName(Name, Type, Key2Return)

VFP Server
define class myclass as session olepublic
procedure ParseString
parameters m.NameIn, m.xType , m.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
HTH.

>I have a web page using ASP that queries a data set. I have a DLL which creates a pheonetic representation of the incoming name. I need to send the variables to the routine and get the result back. In VFP, I do use this procedure:
>
>parameters m.NameIn, m.xType , m.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)
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