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
|