david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
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 |