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
1076 lines
31 KiB
Plaintext
1076 lines
31 KiB
Plaintext
object MegaDemoClientMainForm: TMegaDemoClientMainForm
|
|
Left = 303
|
|
Top = 234
|
|
Caption = 'RemObjects SDK 4.0 for Delphi - Mega Demo Client'
|
|
ClientHeight = 410
|
|
ClientWidth = 684
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 444
|
|
Constraints.MinWidth = 675
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
ShowHint = True
|
|
OnCloseQuery = FormCloseQuery
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnDeactivate = FormDeactivate
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 684
|
|
Height = 410
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
BorderWidth = 5
|
|
TabOrder = 0
|
|
object Panel4: TPanel
|
|
Left = 5
|
|
Top = 169
|
|
Width = 674
|
|
Height = 140
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object Label15: TLabel
|
|
Left = 617
|
|
Top = 61
|
|
Width = 25
|
|
Height = 13
|
|
Caption = 'times'
|
|
end
|
|
object Label14: TLabel
|
|
Left = 619
|
|
Top = 85
|
|
Width = 37
|
|
Height = 13
|
|
Caption = 'threads'
|
|
end
|
|
object clbTests: TCheckListBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 112
|
|
Height = 108
|
|
Hint = 'Select test'
|
|
OnClickCheck = clbTestsClickCheck
|
|
Align = alLeft
|
|
ItemHeight = 13
|
|
Items.Strings = (
|
|
'Stress Test'
|
|
'Sum'
|
|
'EchoPerson'
|
|
'TestArrays'
|
|
'EchoBinary'
|
|
'GetServerTime'
|
|
'CustomClass'
|
|
'RaiseError')
|
|
TabOrder = 0
|
|
OnClick = clbTestsClick
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 0
|
|
Top = 108
|
|
Width = 674
|
|
Height = 32
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 5
|
|
object cbEnableLog: TCheckBox
|
|
Left = 183
|
|
Top = 8
|
|
Width = 82
|
|
Height = 17
|
|
Hint = 'Allows to show the report on performance of tests'
|
|
Caption = 'Enable Log'
|
|
TabOrder = 2
|
|
end
|
|
object cbVerbose: TCheckBox
|
|
Left = 111
|
|
Top = 8
|
|
Width = 66
|
|
Height = 17
|
|
Hint =
|
|
'Allows to show progress of transfer / reception of data for BIN ' +
|
|
'Message'
|
|
Caption = 'Verbose'
|
|
TabOrder = 1
|
|
end
|
|
object cbWriteTestInfo: TCheckBox
|
|
Left = 7
|
|
Top = 8
|
|
Width = 97
|
|
Height = 17
|
|
Hint = 'Shows the information on the test '
|
|
Caption = 'Write Test Info'
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object RunTestOnceButton: TButton
|
|
Left = 572
|
|
Top = 1
|
|
Width = 100
|
|
Height = 25
|
|
Caption = 'Run Test Once'
|
|
TabOrder = 1
|
|
OnClick = RunTestOnceButtonClick
|
|
end
|
|
object RunTestButton: TButton
|
|
Left = 572
|
|
Top = 28
|
|
Width = 100
|
|
Height = 25
|
|
Caption = 'Run Multiple Tests'
|
|
TabOrder = 2
|
|
OnClick = RunTestButtonClick
|
|
end
|
|
object seRepetitions: TSpinEdit
|
|
Left = 575
|
|
Top = 56
|
|
Width = 40
|
|
Height = 22
|
|
Hint = 'Set times for Stress test and multiple tests'
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
TabOrder = 3
|
|
Value = 10
|
|
end
|
|
object seThreads: TSpinEdit
|
|
Left = 575
|
|
Top = 80
|
|
Width = 40
|
|
Height = 22
|
|
Hint = 'Set threads for Stress test and multiple tests'
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
TabOrder = 4
|
|
Value = 5
|
|
end
|
|
object pPage: TPanel
|
|
Left = 112
|
|
Top = 0
|
|
Width = 456
|
|
Height = 108
|
|
Align = alCustom
|
|
Anchors = [akLeft, akTop, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 6
|
|
object pagecontrol2: TPageControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 456
|
|
Height = 108
|
|
ActivePage = tsSum
|
|
Align = alClient
|
|
TabOrder = 0
|
|
object tsStress: TTabSheet
|
|
Caption = 'Stress'
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object pStress: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 448
|
|
Height = 80
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
448
|
|
80)
|
|
object Label17: TLabel
|
|
Left = 7
|
|
Top = 0
|
|
Width = 434
|
|
Height = 79
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption =
|
|
'This test allows you to run one or more of the individual tests,' +
|
|
' depending on which are checked.'#13#10#13#10'IMPORTANT: before running an' +
|
|
'y test, you must activate the server'#39's transport that matches th' +
|
|
'e channel selected on this client (default is HTTP Channel).'
|
|
WordWrap = True
|
|
end
|
|
end
|
|
end
|
|
object tsSum: TTabSheet
|
|
Caption = 'Sum'
|
|
ImageIndex = 1
|
|
object pSum: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 448
|
|
Height = 80
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label18: TLabel
|
|
Left = 7
|
|
Top = 60
|
|
Width = 435
|
|
Height = 19
|
|
Align = alCustom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption = 'This method fulfils the sum of argument A and argument B'
|
|
WordWrap = True
|
|
end
|
|
object Label16: TLabel
|
|
Left = 7
|
|
Top = 28
|
|
Width = 60
|
|
Height = 13
|
|
Caption = 'Argument B:'
|
|
end
|
|
object Label11: TLabel
|
|
Left = 7
|
|
Top = 5
|
|
Width = 61
|
|
Height = 13
|
|
Caption = 'Argument A:'
|
|
end
|
|
object seB: TSpinEdit
|
|
Left = 75
|
|
Top = 23
|
|
Width = 81
|
|
Height = 22
|
|
Hint = 'Set argument B for Sum test'
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
TabOrder = 1
|
|
Value = 2
|
|
end
|
|
object seA: TSpinEdit
|
|
Left = 75
|
|
Top = 0
|
|
Width = 81
|
|
Height = 22
|
|
Hint = 'Set argument A for Sum test'
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
TabOrder = 0
|
|
Value = 1
|
|
end
|
|
end
|
|
end
|
|
object tsEchoPerson: TTabSheet
|
|
Caption = 'EchoPerson'
|
|
ImageIndex = 2
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object pEchoPerson: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 448
|
|
Height = 80
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label19: TLabel
|
|
Left = 7
|
|
Top = 60
|
|
Width = 433
|
|
Height = 19
|
|
Align = alCustom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption =
|
|
'This method created object TPerson and send it to server and r' +
|
|
'eturns a copy of this object from a server'
|
|
WordWrap = True
|
|
end
|
|
object Label2: TLabel
|
|
Left = 7
|
|
Top = 4
|
|
Width = 55
|
|
Height = 13
|
|
Caption = 'First Name:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 215
|
|
Top = 5
|
|
Width = 54
|
|
Height = 13
|
|
Caption = 'Last Name:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 38
|
|
Top = 27
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'Age:'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 120
|
|
Top = 27
|
|
Width = 22
|
|
Height = 13
|
|
Caption = 'Sex:'
|
|
end
|
|
object eLastName: TEdit
|
|
Left = 284
|
|
Top = 1
|
|
Width = 124
|
|
Height = 21
|
|
Hint = 'Set Last Name for EchoPerson test'
|
|
TabOrder = 1
|
|
Text = 'Smith'
|
|
end
|
|
object cbSex: TComboBox
|
|
Left = 143
|
|
Top = 23
|
|
Width = 109
|
|
Height = 21
|
|
Hint = 'Set Sex for EchoPerson test'
|
|
Style = csDropDownList
|
|
ItemHeight = 0
|
|
TabOrder = 3
|
|
end
|
|
object eFirstName: TEdit
|
|
Left = 75
|
|
Top = 0
|
|
Width = 124
|
|
Height = 21
|
|
Hint = 'Set First Name for EchoPerson test'
|
|
TabOrder = 0
|
|
Text = 'John'
|
|
end
|
|
object seAge: TSpinEdit
|
|
Left = 75
|
|
Top = 22
|
|
Width = 42
|
|
Height = 22
|
|
Hint = 'Set Age for EchoPerson test'
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
TabOrder = 2
|
|
Value = 33
|
|
end
|
|
end
|
|
end
|
|
object tsTestArrays: TTabSheet
|
|
Caption = 'TestArrays'
|
|
ImageIndex = 4
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object pTestArrays: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 448
|
|
Height = 80
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label6: TLabel
|
|
Left = 7
|
|
Top = 5
|
|
Width = 33
|
|
Height = 13
|
|
Caption = 'Count:'
|
|
end
|
|
object Label20: TLabel
|
|
Left = 7
|
|
Top = 60
|
|
Width = 437
|
|
Height = 19
|
|
Align = alCustom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption =
|
|
'This method sends the array on a server and returns a copy of th' +
|
|
'is array from a server'
|
|
WordWrap = True
|
|
end
|
|
object rbInteger: TRadioButton
|
|
Left = 7
|
|
Top = 22
|
|
Width = 85
|
|
Height = 17
|
|
Hint = 'Use integer array for TestArrays test'
|
|
Caption = 'Integer array'
|
|
Checked = True
|
|
TabOrder = 1
|
|
TabStop = True
|
|
end
|
|
object seArrayCount: TSpinEdit
|
|
Left = 75
|
|
Top = 0
|
|
Width = 81
|
|
Height = 22
|
|
Hint = 'Set array size for TestArrays test'
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
TabOrder = 0
|
|
Value = 10
|
|
end
|
|
object rbTPerson: TRadioButton
|
|
Left = 175
|
|
Top = 22
|
|
Width = 89
|
|
Height = 17
|
|
Hint = 'Use TPerson array for TestArrays test'
|
|
Caption = 'TPerson array'
|
|
TabOrder = 3
|
|
end
|
|
object rbString: TRadioButton
|
|
Left = 91
|
|
Top = 22
|
|
Width = 77
|
|
Height = 17
|
|
Hint = 'Use string array for TestArrays test'
|
|
Caption = 'String array'
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
end
|
|
object tsEchoBinary: TTabSheet
|
|
Caption = 'EchoBinary'
|
|
ImageIndex = 5
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object pEchoBinary: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 448
|
|
Height = 80
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label7: TLabel
|
|
Left = 7
|
|
Top = 5
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'Size:'
|
|
end
|
|
object Label21: TLabel
|
|
Left = 7
|
|
Top = 60
|
|
Width = 438
|
|
Height = 17
|
|
Align = alCustom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption =
|
|
'This method creates the buffer with the set size and dispatches ' +
|
|
'it on a server. The server returns a copy of this buffer'
|
|
WordWrap = True
|
|
end
|
|
object seBinSize: TSpinEdit
|
|
Left = 75
|
|
Top = 0
|
|
Width = 49
|
|
Height = 22
|
|
Hint = 'Set buffer size for EchoBinary test'
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
TabOrder = 0
|
|
Value = 5000
|
|
end
|
|
end
|
|
end
|
|
object tsGetServerTime: TTabSheet
|
|
Caption = 'GetServerTime'
|
|
ImageIndex = 6
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object pGetServerTime: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 448
|
|
Height = 80
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label22: TLabel
|
|
Left = 7
|
|
Top = 0
|
|
Width = 437
|
|
Height = 75
|
|
Align = alCustom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption = 'This method returns current time of a server'
|
|
WordWrap = True
|
|
end
|
|
end
|
|
end
|
|
object tsCustomClass: TTabSheet
|
|
Caption = 'CustomClass'
|
|
ImageIndex = 7
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object pCustomClass: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 448
|
|
Height = 80
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label23: TLabel
|
|
Left = 7
|
|
Top = 60
|
|
Width = 437
|
|
Height = 17
|
|
Align = alCustom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption = 'This method returns from a server the object as XML or a stream'
|
|
WordWrap = True
|
|
end
|
|
object rbStream: TRadioButton
|
|
Left = 7
|
|
Top = 0
|
|
Width = 63
|
|
Height = 17
|
|
Hint = 'To receive TCustomClass as TStreamtomClass'
|
|
Caption = 'Stream'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
object rbXML: TRadioButton
|
|
Left = 7
|
|
Top = 17
|
|
Width = 63
|
|
Height = 17
|
|
Hint = 'To receive TCustomClass as XML string'
|
|
Caption = 'XML'
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
object tsRaiseError: TTabSheet
|
|
Caption = 'RaiseError'
|
|
ImageIndex = 3
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object pRaiseError: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 448
|
|
Height = 80
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label24: TLabel
|
|
Left = 7
|
|
Top = 60
|
|
Width = 440
|
|
Height = 52
|
|
Align = alCustom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption =
|
|
'If you run this test within the IDE, you will want to disable br' +
|
|
'eak on exceptions. '#13#10#13#10'This test is not suitable for the Stress ' +
|
|
'Test.'
|
|
WordWrap = True
|
|
end
|
|
object cbCustomException: TCheckBox
|
|
Left = 7
|
|
Top = 0
|
|
Width = 59
|
|
Height = 17
|
|
Hint = 'Set custom error for RaiseError test'
|
|
Caption = 'Custom'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 5
|
|
Top = 5
|
|
Width = 674
|
|
Height = 164
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
|
|
Left = 8
|
|
Top = 9
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
ApplicationType = atClient
|
|
end
|
|
object GroupBox6: TGroupBox
|
|
Left = 222
|
|
Top = 3
|
|
Width = 451
|
|
Height = 158
|
|
Caption = ' Transport Channel '
|
|
TabOrder = 1
|
|
object Label1: TLabel
|
|
Left = 138
|
|
Top = 58
|
|
Width = 57
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
AutoSize = False
|
|
Caption = 'URL:'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 138
|
|
Top = 26
|
|
Width = 57
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
AutoSize = False
|
|
Caption = 'Server ID:'
|
|
end
|
|
object Label9: TLabel
|
|
Left = 138
|
|
Top = 114
|
|
Width = 57
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
AutoSize = False
|
|
Caption = 'Address:'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 325
|
|
Top = 114
|
|
Width = 24
|
|
Height = 13
|
|
Caption = 'Port:'
|
|
end
|
|
object Label12: TLabel
|
|
Left = 133
|
|
Top = 81
|
|
Width = 62
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
AutoSize = False
|
|
Caption = 'Component:'
|
|
end
|
|
object Bevel1: TBevel
|
|
Left = 40
|
|
Top = 48
|
|
Width = 353
|
|
Height = 2
|
|
Shape = bsTopLine
|
|
end
|
|
object Bevel2: TBevel
|
|
Left = 40
|
|
Top = 100
|
|
Width = 353
|
|
Height = 2
|
|
Shape = bsTopLine
|
|
end
|
|
object Label13: TLabel
|
|
Left = 133
|
|
Top = 138
|
|
Width = 62
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
AutoSize = False
|
|
Caption = 'Component:'
|
|
end
|
|
object rbWinMessage: TRadioButton
|
|
Left = 8
|
|
Top = 25
|
|
Width = 124
|
|
Height = 17
|
|
Caption = 'Windows Message'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnClick = rbHttpChannelClick
|
|
end
|
|
object rbTcpChannel: TRadioButton
|
|
Left = 8
|
|
Top = 113
|
|
Width = 113
|
|
Height = 17
|
|
Caption = 'TCP Channel'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
OnClick = rbHttpChannelClick
|
|
end
|
|
object rbHttpChannel: TRadioButton
|
|
Left = 8
|
|
Top = 57
|
|
Width = 113
|
|
Height = 17
|
|
Caption = 'HTTP Channel'
|
|
Checked = True
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
TabStop = True
|
|
OnClick = rbHttpChannelClick
|
|
end
|
|
object eServerID: TEdit
|
|
Left = 200
|
|
Top = 22
|
|
Width = 243
|
|
Height = 21
|
|
Hint = 'Set Server ID'
|
|
TabOrder = 1
|
|
Text = '{E46A5995-2260-44EA-AC60-121ADB4CC2D0}'
|
|
end
|
|
object cbHTTPURL: TComboBox
|
|
Left = 200
|
|
Top = 54
|
|
Width = 243
|
|
Height = 21
|
|
Hint = 'Set url for http channel'
|
|
ItemHeight = 13
|
|
TabOrder = 3
|
|
Text = 'http://127.0.0.1:8099/bin'
|
|
OnChange = cbHTTPURLChange
|
|
Items.Strings = (
|
|
'http://localhost:8099/soap'
|
|
'http://localhost:8099/bin'
|
|
'http://localhost/MegaRO/soap'
|
|
'http://localhost/MegaRO/bin')
|
|
end
|
|
object cbTCPIP: TComboBox
|
|
Left = 200
|
|
Top = 110
|
|
Width = 118
|
|
Height = 21
|
|
Hint = 'Set IP for tcp channel'
|
|
ItemHeight = 13
|
|
TabOrder = 6
|
|
Text = '127.0.0.1'
|
|
end
|
|
object cbTCPPort: TComboBox
|
|
Left = 354
|
|
Top = 110
|
|
Width = 90
|
|
Height = 21
|
|
Hint = 'Set port for tcp channel'
|
|
ItemHeight = 13
|
|
TabOrder = 7
|
|
Text = '8090'
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 200
|
|
Top = 79
|
|
Width = 244
|
|
Height = 17
|
|
BevelOuter = bvNone
|
|
TabOrder = 4
|
|
object rbIndyHttp: TRadioButton
|
|
Left = -1
|
|
Top = 0
|
|
Width = 41
|
|
Height = 17
|
|
Hint = 'Usage TROIndyHttpChannel'
|
|
Caption = 'Indy'
|
|
TabOrder = 0
|
|
OnClick = rbIndyHttpClick
|
|
end
|
|
object rbWinInetHttp: TRadioButton
|
|
Left = 43
|
|
Top = 0
|
|
Width = 61
|
|
Height = 17
|
|
Hint = 'Usage TROWininetHttpChannel'
|
|
Caption = 'WinInet'
|
|
Checked = True
|
|
TabOrder = 1
|
|
TabStop = True
|
|
OnClick = rbIndyHttpClick
|
|
end
|
|
object cbKeepConnection: TCheckBox
|
|
Left = 170
|
|
Top = 1
|
|
Width = 79
|
|
Height = 15
|
|
Hint = 'Enables Keep Connection'
|
|
Caption = 'Keep-Alive'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
end
|
|
object rbSynapseHttp: TRadioButton
|
|
Left = 104
|
|
Top = 0
|
|
Width = 65
|
|
Height = 17
|
|
Caption = 'Synapse'
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object Panel6: TPanel
|
|
Left = 200
|
|
Top = 136
|
|
Width = 77
|
|
Height = 17
|
|
BevelOuter = bvNone
|
|
TabOrder = 8
|
|
object RbIndyTcp: TRadioButton
|
|
Left = 1
|
|
Top = 0
|
|
Width = 41
|
|
Height = 17
|
|
Hint = 'Usage TROIndyTcpChannel'
|
|
Caption = 'Indy'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
end
|
|
object cbDisableNagle: TCheckBox
|
|
Left = 355
|
|
Top = 136
|
|
Width = 97
|
|
Height = 17
|
|
Hint = 'Disable Nagle'
|
|
Caption = 'Disable &Nagle'
|
|
TabOrder = 9
|
|
OnClick = cbDisableNagleClick
|
|
end
|
|
end
|
|
object GroupBox5: TGroupBox
|
|
Left = 6
|
|
Top = 64
|
|
Width = 214
|
|
Height = 97
|
|
Caption = ' Message Type '
|
|
TabOrder = 0
|
|
object rbBinary: TRadioButton
|
|
Left = 8
|
|
Top = 16
|
|
Width = 41
|
|
Height = 17
|
|
Hint = 'Use TROBINMessage'
|
|
Caption = 'Bin'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnClick = rbBinaryClick
|
|
end
|
|
object rbSOAP: TRadioButton
|
|
Left = 50
|
|
Top = 16
|
|
Width = 49
|
|
Height = 17
|
|
Hint = 'Use TROSOAPMessage'
|
|
Caption = 'SOAP'
|
|
TabOrder = 1
|
|
OnClick = rbSOAPClick
|
|
end
|
|
object cbUseCompression: TCheckBox
|
|
Left = 8
|
|
Top = 36
|
|
Width = 106
|
|
Height = 17
|
|
Hint = 'Allows to use a compression at data transmission'
|
|
Caption = 'Use &Compression'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 3
|
|
end
|
|
object rbPost: TRadioButton
|
|
Left = 103
|
|
Top = 16
|
|
Width = 49
|
|
Height = 17
|
|
Hint = 'Use TROPOSTMessage'
|
|
Caption = 'Post'
|
|
TabOrder = 2
|
|
OnClick = rbPostClick
|
|
end
|
|
object cbEncrypt: TCheckBox
|
|
Left = 9
|
|
Top = 53
|
|
Width = 137
|
|
Height = 17
|
|
Hint = 'Allows to cipher data by transfer'
|
|
Caption = 'Encrypt Communication'
|
|
TabOrder = 4
|
|
OnClick = cbEncryptClick
|
|
end
|
|
object rbXmlRpc: TRadioButton
|
|
Left = 149
|
|
Top = 16
|
|
Width = 61
|
|
Height = 17
|
|
Caption = 'XmlRpc'
|
|
TabOrder = 5
|
|
OnClick = rbXmlRpcClick
|
|
end
|
|
object cbAutoDetect: TCheckBox
|
|
Left = 9
|
|
Top = 70
|
|
Width = 198
|
|
Height = 17
|
|
Caption = 'Autodetect messagetype (on server)'
|
|
TabOrder = 6
|
|
OnClick = cbAutoDetectClick
|
|
end
|
|
end
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 5
|
|
Top = 309
|
|
Width = 674
|
|
Height = 96
|
|
ActivePage = tsLog
|
|
Align = alClient
|
|
TabOrder = 2
|
|
object tsLog: TTabSheet
|
|
Caption = 'Log'
|
|
ImageIndex = 1
|
|
object Memo: TMemo
|
|
Left = 0
|
|
Top = 0
|
|
Width = 666
|
|
Height = 68
|
|
Align = alClient
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object tsSoap: TTabSheet
|
|
Caption = 'Output'
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object Splitter1: TSplitter
|
|
Left = 337
|
|
Top = 0
|
|
Height = 68
|
|
ExplicitHeight = 69
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 0
|
|
Top = 0
|
|
Width = 337
|
|
Height = 68
|
|
Align = alLeft
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
object Memo2: TMemo
|
|
Left = 340
|
|
Top = 0
|
|
Width = 326
|
|
Height = 68
|
|
Align = alClient
|
|
ScrollBars = ssVertical
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object IndyHttpChannel: TROIndyHTTPChannel
|
|
Encryption.EncryptionSendKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
|
|
Encryption.EncryptionRecvKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
Left = 251
|
|
Top = 80
|
|
end
|
|
object BINMessage: TROBinMessage
|
|
OnInitializeMessage = BINMessageInitializeMessage
|
|
OnFinalizeMessage = BINMessageFinalizeMessage
|
|
OnWriteMessageParameter = BINMessageWriteMessageParameter
|
|
OnReadMessageParameter = BINMessageReadMessageParameter
|
|
UseCompression = False
|
|
Left = 21
|
|
Top = 137
|
|
end
|
|
object SOAPMessage: TROSOAPMessage
|
|
OnWriteToStream = SOAPMessageWriteToStream
|
|
OnReadFromStream = SOAPMessageReadFromStream
|
|
SerializationOptions = [xsoWriteMultiRefArray, xsoWriteMultiRefObject]
|
|
OnEnvelopeComplete = SOAPMessageEnvelopeComplete
|
|
Left = 80
|
|
Top = 135
|
|
end
|
|
object IndyTcpChannel: TROIndyTCPChannel
|
|
Encryption.EncryptionSendKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
|
|
Encryption.EncryptionRecvKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
Port = 0
|
|
Host = '127.0.0.1'
|
|
Left = 342
|
|
Top = 118
|
|
end
|
|
object WinMessageChannel: TROWinMessageChannel
|
|
Encryption.EncryptionSendKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
|
|
Encryption.EncryptionRecvKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
|
|
Delay = 150
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
Left = 345
|
|
Top = 16
|
|
end
|
|
object WininetHttpChannel: TROWinInetHTTPChannel
|
|
Encryption.EncryptionSendKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
|
|
Encryption.EncryptionRecvKey = 'CDB4E624C47EF40C26DCE65F70E6F3ABC03B6AD4FC0B064985F180A46895F064'
|
|
UserAgent = 'RemObjects SDK'
|
|
KeepConnection = True
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
Left = 300
|
|
Top = 80
|
|
end
|
|
object RemoteService: TRORemoteService
|
|
ServiceName = 'NewService'
|
|
Left = 609
|
|
Top = 339
|
|
end
|
|
object PostMessage: TROPostMessage
|
|
Left = 83
|
|
Top = 29
|
|
end
|
|
object XmlRpcMessage: TROXmlRpcMessage
|
|
Left = 110
|
|
Top = 28
|
|
end
|
|
end
|