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 ENDDEFINEhere 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 ENDDEFINEthe browser shows rather then "I am here in the exe"