git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
240 lines
5.1 KiB
Plaintext
240 lines
5.1 KiB
Plaintext
object ClientForm: TClientForm
|
|
Left = 372
|
|
Top = 277
|
|
Width = 614
|
|
Height = 403
|
|
Caption = 'Extended File Transfer Sample'
|
|
Color = clBtnFace
|
|
Constraints.MinWidth = 614
|
|
ParentFont = True
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 598
|
|
Height = 49
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 224
|
|
Height = 49
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel2'
|
|
TabOrder = 0
|
|
object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
|
|
Left = 0
|
|
Top = 0
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
end
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 224
|
|
Top = 0
|
|
Width = 374
|
|
Height = 49
|
|
Align = alClient
|
|
Caption = 'Server Connection'
|
|
TabOrder = 1
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 20
|
|
Width = 56
|
|
Height = 13
|
|
Caption = 'Target URL'
|
|
end
|
|
object edTargetURL: TEdit
|
|
Left = 68
|
|
Top = 17
|
|
Width = 213
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = 'http://localhost:8099/bin'
|
|
end
|
|
object btGetList: TButton
|
|
Left = 287
|
|
Top = 15
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Get List'
|
|
TabOrder = 1
|
|
OnClick = btGetListClick
|
|
end
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 49
|
|
Width = 598
|
|
Height = 144
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object GroupBox2: TGroupBox
|
|
Left = 408
|
|
Top = 0
|
|
Width = 190
|
|
Height = 144
|
|
Align = alRight
|
|
Caption = 'Download'
|
|
TabOrder = 0
|
|
object Label2: TLabel
|
|
Left = 16
|
|
Top = 24
|
|
Width = 52
|
|
Height = 13
|
|
Caption = 'Chunk size'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 16
|
|
Top = 56
|
|
Width = 61
|
|
Height = 13
|
|
Caption = 'Chunk count'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 16
|
|
Top = 88
|
|
Width = 64
|
|
Height = 13
|
|
Caption = 'Thread count'
|
|
end
|
|
object cbChunkSize: TComboBox
|
|
Left = 88
|
|
Top = 21
|
|
Width = 89
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
ItemIndex = 1
|
|
TabOrder = 0
|
|
Text = '64K'
|
|
OnChange = cbChunkSizeChange
|
|
Items.Strings = (
|
|
'500B'
|
|
'64K'
|
|
'128K'
|
|
'512K'
|
|
'1M'
|
|
'2M'
|
|
'3M')
|
|
end
|
|
object edChunkCount: TEdit
|
|
Left = 88
|
|
Top = 53
|
|
Width = 89
|
|
Height = 21
|
|
TabStop = False
|
|
BorderStyle = bsNone
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object edThreadCount: TMaskEdit
|
|
Left = 86
|
|
Top = 85
|
|
Width = 91
|
|
Height = 21
|
|
EditMask = '!99;0;_'
|
|
MaxLength = 2
|
|
TabOrder = 2
|
|
Text = '5'
|
|
end
|
|
object btDownload: TButton
|
|
Left = 16
|
|
Top = 112
|
|
Width = 161
|
|
Height = 25
|
|
Caption = 'Download'
|
|
TabOrder = 3
|
|
OnClick = btDownloadClick
|
|
end
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 408
|
|
Height = 144
|
|
Align = alClient
|
|
Caption = 'Remote Shared Directory'
|
|
TabOrder = 1
|
|
object lvFileList: TListView
|
|
Left = 2
|
|
Top = 15
|
|
Width = 404
|
|
Height = 127
|
|
Align = alClient
|
|
BevelInner = bvNone
|
|
BevelOuter = bvNone
|
|
Columns = <
|
|
item
|
|
Caption = 'File Name'
|
|
Width = 250
|
|
end
|
|
item
|
|
Caption = 'Size'
|
|
Width = 100
|
|
end
|
|
item
|
|
Caption = 'Type'
|
|
end>
|
|
GridLines = True
|
|
HideSelection = False
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
TabOrder = 0
|
|
ViewStyle = vsReport
|
|
OnChange = lvFileListChange
|
|
end
|
|
end
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 0
|
|
Top = 193
|
|
Width = 598
|
|
Height = 174
|
|
Align = alClient
|
|
Caption = 'Log'
|
|
TabOrder = 2
|
|
object edLog: TMemo
|
|
Left = 2
|
|
Top = 15
|
|
Width = 594
|
|
Height = 157
|
|
Align = alClient
|
|
ReadOnly = True
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
WordWrap = False
|
|
end
|
|
end
|
|
object ROMessage: TROBinMessage
|
|
Envelopes = <>
|
|
Left = 36
|
|
Top = 8
|
|
end
|
|
object ROChannel: TROWinInetHTTPChannel
|
|
UserAgent = 'RemObjects SDK'
|
|
TargetURL = 'http://localhost:8099/BIN'
|
|
TrustInvalidCA = False
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
Left = 8
|
|
Top = 8
|
|
end
|
|
object RORemoteService: TRORemoteService
|
|
Message = ROMessage
|
|
Channel = ROChannel
|
|
ServiceName = 'ExtendedFileTransferService'
|
|
Left = 64
|
|
Top = 8
|
|
end
|
|
end
|