david
d99a44999f
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@7 b6239004-a887-0f4b-9937-50029ccdca16
27 lines
777 B
Plaintext
27 lines
777 B
Plaintext
<!--
|
|
Please run
|
|
<RemObjects SDK for Delphi>\Samples\MegaDemo\MegaDemoServer.exe
|
|
and activate HTTP server"
|
|
-->
|
|
<%
|
|
Dim result
|
|
|
|
Set ROServer = Server.CreateObject("RemObjects.SDK.COMServer")
|
|
ROServer.MessageType = "TROBINMessage"
|
|
ROServer.ChannelType = "TROWinInetHTTPChannel"
|
|
ROServer.SetChannelProperty "TargetURL", "http://localhost:8099/BIN"
|
|
|
|
Set MegaDemoService = ROServer.CreateService("MegaDemoService")
|
|
|
|
Response.Write "This is an ASP page that invokes methods of the RemObjects MegaDemo<BR>"
|
|
|
|
result = MegaDemoService.Sum(100, 200)
|
|
Response.Write "The result of 100+200 is " & result & "<BR>"
|
|
|
|
result = MegaDemoService.GetServerTime
|
|
Response.Write "The time on the server is " & result
|
|
|
|
Set MegaDemoService = nothing
|
|
Set ROServer = nothing
|
|
|
|
%> |