Componentes.Terceros.RemObj.../internal/6.0.43.801/1/RemObjects Samples/RemObjects SDK for Delphi/Extended File Transfer/fClientForm.dfm
2010-01-29 16:17:43 +00:00

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