19 lines
631 B
Plaintext
19 lines
631 B
Plaintext
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 |