Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Htmllistener output from COM to ASP
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
00999087
Message ID:
00999338
Vues:
36
Thanks for you help. Is is possible to get the com/exe to return a value to the mtdll which then returns it to the asp. Here is some test code that I have to try that. In stead of the string being returned I get True. What do you think?

here is the asp code:
set oserver = Server.CreateObject("callvfp.getregionstream")
response.write("First from mtdll"+oServer.hello()+"<br>")
reponse.write(oServer.helloexe()) 
here is the callvfp.getregionstream code which is compiled as MTDLL
Define Class getregionstream As Custom OlePublic
   lError = .F.
   cErrorMsg = ""
   cAppstartpath = ""
  Function Init
    Set Resource Off
    Set Exclusive Off
    Set Cpdialog Off
    Set Deleted On
    Set Exact Off
    Set Safety Off
    Set Reprocess To 2 Seconds
    Sys(2335,0)
  Endfunc
  Function Error
    Lparameter nError, cMethod, nLine
    This.lError = .T.
    This.cErrorMsg=This.cErrorMsg + "<BR>Error No: " + Str(nError) + "<BR>  Method: " + cMethod + "<BR>  LineNo: " +Str(nLine) + "<BR>  Message: "+ Message() + Message(1) + "<HR>"
  Endfunc

  Function hello
    Return "I am "+Application.ServerName && location 
  ENDFUNC
  FUNCTION helloexe
    oServer1= CREATEOBJECT("fnprvfp.getreportexe")
    fromexe=oserver1.hello
    RETURN fromexe
  ENDFUNC  
ENDDEFINE
here is the fnprvfp.getreportexe code which is compiled as com server exe
DEFINE class getreportexe as custom olepublic
FUNCTION hello
  RETURN "I am here in the exe"
ENDFUNC
ENDDEFINE
the browser shows rather then "I am here in the exe"

First from mtdllI am c:\clientwork\copyoffnpdatabase\callvfp.dll
True
Paul Emery
theoakgrove@lansing.com
the Oakgrove Computer Group, Inc.
Grand Rapids, Michigan, USA
1-616-456-7133
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform