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