david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 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 |