Dim result

MsgBox "Please run <RemObjects SDK for Delphi>\Samples\MegaDemo\MegaDemoServer.exe and activate HTTP server"

Set ROServer = CreateObject("RemObjects.SDK.COMServer")
ROServer.MessageType = "TROBINMessage"
ROServer.ChannelType = "TROWinInetHTTPChannel"
ROServer.SetChannelProperty "TargetURL", "http://localhost:8099/BIN"

Set MegaDemoService = ROServer.CreateService("MegaDemoService")

result = MegaDemoService.Sum(100, 200)
MsgBox "The result was [" & result & "]"

result = MegaDemoService.GetServerTime
MsgBox "The result was [" & result & "]"

Set MegaDemoService = nothing
Set ROServer = nothing