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
129 lines
2.8 KiB
Plaintext
129 lines
2.8 KiB
Plaintext
object DynamicRequestClientMainForm: TDynamicRequestClientMainForm
|
|
Left = 311
|
|
Top = 174
|
|
AutoScroll = False
|
|
Caption = 'Dynamic Request Client'
|
|
ClientHeight = 344
|
|
ClientWidth = 335
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
|
|
Left = 50
|
|
Top = 279
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
Anchors = [akLeft, akBottom]
|
|
ApplicationType = atClient
|
|
end
|
|
object bSum: TButton
|
|
Left = 8
|
|
Top = 5
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Sum'
|
|
TabOrder = 0
|
|
OnClick = bSumClick
|
|
end
|
|
object bGetServerTime: TButton
|
|
Left = 96
|
|
Top = 5
|
|
Width = 105
|
|
Height = 25
|
|
Caption = 'GetServerTime'
|
|
TabOrder = 1
|
|
OnClick = bGetServerTimeClick
|
|
end
|
|
object bEchoPerson: TButton
|
|
Left = 208
|
|
Top = 5
|
|
Width = 121
|
|
Height = 25
|
|
Caption = 'EchoPerson'
|
|
TabOrder = 2
|
|
OnClick = bEchoPersonClick
|
|
end
|
|
object Memo: TMemo
|
|
Left = 8
|
|
Top = 39
|
|
Width = 321
|
|
Height = 229
|
|
ScrollBars = ssVertical
|
|
TabOrder = 3
|
|
end
|
|
object DynamicRequestSum: TRODynamicRequest
|
|
RemoteService = RemoteService
|
|
MethodName = 'Sum'
|
|
Params = <
|
|
item
|
|
Name = 'A'
|
|
DataType = rtInteger
|
|
Flag = fIn
|
|
end
|
|
item
|
|
Name = 'B'
|
|
DataType = rtInteger
|
|
Flag = fIn
|
|
end
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtInteger
|
|
Flag = fResult
|
|
end>
|
|
Left = 49
|
|
Top = 3
|
|
end
|
|
object EmptyDynamicRequest: TRODynamicRequest
|
|
RemoteService = RemoteService
|
|
MethodName = 'GetServerTime'
|
|
Params = <>
|
|
Left = 168
|
|
Top = 3
|
|
end
|
|
object DynamicRequestEchoPerson: TRODynamicRequest
|
|
RemoteService = RemoteService
|
|
MethodName = 'EchoPerson'
|
|
Params = <
|
|
item
|
|
Name = 'aPerson'
|
|
DataType = rtUserDefined
|
|
Flag = fIn
|
|
TypeName = 'TPerson'
|
|
end
|
|
item
|
|
Name = 'anotherPerson'
|
|
DataType = rtUserDefined
|
|
Flag = fOut
|
|
TypeName = 'TPerson'
|
|
end>
|
|
Left = 290
|
|
Top = 3
|
|
end
|
|
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
UserAgent = 'RemObjects SDK'
|
|
TargetURL = 'http://localhost:8099/BIN'
|
|
Left = 252
|
|
Top = 129
|
|
end
|
|
object ROBinMessage1: TROBinMessage
|
|
Left = 220
|
|
Top = 129
|
|
end
|
|
object RemoteService: TRORemoteService
|
|
Message = ROBinMessage1
|
|
Channel = ROWinInetHTTPChannel1
|
|
ServiceName = 'DynamicRequestService'
|
|
Left = 284
|
|
Top = 129
|
|
end
|
|
end
|