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
|
|
|
|
%> |