90 lines
1.9 KiB
Plaintext
90 lines
1.9 KiB
Plaintext
|
object ServerForm: TServerForm
|
||
|
|
Left = 753
|
||
|
|
Top = 267
|
||
|
|
BorderStyle = bsDialog
|
||
|
|
Caption = 'Extended File Transfer Server'
|
||
|
|
ClientHeight = 209
|
||
|
|
ClientWidth = 228
|
||
|
|
Color = clBtnFace
|
||
|
|
ParentFont = True
|
||
|
|
OldCreateOrder = False
|
||
|
|
Position = poScreenCenter
|
||
|
|
OnCreate = FormCreate
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
|
||
|
|
Left = 8
|
||
|
|
Top = 8
|
||
|
|
Width = 212
|
||
|
|
Height = 48
|
||
|
|
Cursor = crHandPoint
|
||
|
|
end
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 8
|
||
|
|
Top = 161
|
||
|
|
Width = 71
|
||
|
|
Height = 13
|
||
|
|
Anchors = [akLeft, akBottom]
|
||
|
|
Caption = 'Shared Folder:'
|
||
|
|
end
|
||
|
|
object edSharedFolder: TEdit
|
||
|
|
Left = 8
|
||
|
|
Top = 180
|
||
|
|
Width = 187
|
||
|
|
Height = 21
|
||
|
|
Anchors = [akLeft, akBottom]
|
||
|
|
TabOrder = 0
|
||
|
|
Text = 'edSharedFolder'
|
||
|
|
end
|
||
|
|
object btBrowse: TButton
|
||
|
|
Left = 201
|
||
|
|
Top = 180
|
||
|
|
Width = 19
|
||
|
|
Height = 21
|
||
|
|
Hint = 'Browse for shared folder'
|
||
|
|
Anchors = [akLeft, akBottom]
|
||
|
|
Caption = '...'
|
||
|
|
ParentShowHint = False
|
||
|
|
ShowHint = True
|
||
|
|
TabOrder = 1
|
||
|
|
OnClick = btBrowseClick
|
||
|
|
end
|
||
|
|
object Memo1: TMemo
|
||
|
|
Left = 8
|
||
|
|
Top = 70
|
||
|
|
Width = 212
|
||
|
|
Height = 89
|
||
|
|
TabStop = False
|
||
|
|
BevelInner = bvNone
|
||
|
|
BevelOuter = bvNone
|
||
|
|
BorderStyle = bsNone
|
||
|
|
Color = clBtnFace
|
||
|
|
Lines.Strings = (
|
||
|
|
'This sample shows how client can '
|
||
|
|
'download files exposed by server in '
|
||
|
|
'chunks.'
|
||
|
|
'In order to test this sample please put '
|
||
|
|
'some files in following shared folder on the '
|
||
|
|
'server side.')
|
||
|
|
ReadOnly = True
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object ROMessage: TROBinMessage
|
||
|
|
Envelopes = <>
|
||
|
|
Left = 36
|
||
|
|
Top = 8
|
||
|
|
end
|
||
|
|
object ROServer: TROIndyHTTPServer
|
||
|
|
Dispatchers = <
|
||
|
|
item
|
||
|
|
Name = 'ROMessage'
|
||
|
|
Message = ROMessage
|
||
|
|
Enabled = True
|
||
|
|
PathInfo = 'Bin'
|
||
|
|
end>
|
||
|
|
Port = 8099
|
||
|
|
Left = 8
|
||
|
|
Top = 8
|
||
|
|
end
|
||
|
|
end
|