147 lines
3.7 KiB
Plaintext
147 lines
3.7 KiB
Plaintext
object frmMain: TfrmMain
|
|
Left = 367
|
|
Top = 69
|
|
Width = 543
|
|
Height = 393
|
|
Caption = 'TJvUrlListGrabber demo'
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 390
|
|
Constraints.MinWidth = 540
|
|
DefaultMonitor = dmDesktop
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poDesktopCenter
|
|
Scaled = False
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblExpl: TLabel
|
|
Left = 4
|
|
Top = 148
|
|
Width = 397
|
|
Height = 33
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption =
|
|
'Please use the memo below to indicate one URL per line. Those ur' +
|
|
'l will then be grabbed by the component when you press Go in the' +
|
|
' Design Time box'
|
|
WordWrap = True
|
|
end
|
|
object memExplanation: TMemo
|
|
Left = 7
|
|
Top = 4
|
|
Width = 520
|
|
Height = 133
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Lines.Strings = (
|
|
'This is the demo for TJvUrlListGrabber.'
|
|
|
|
'This component takes a list of strings through its Urls property' +
|
|
', each representing a URL to grab. At present it only supports H' +
|
|
'TTP, FTP and Local files URLs.'
|
|
|
|
'This component is replacing TJvHttpGrabber, TJvFtpGrabber and TJ' +
|
|
'vMultiHttpGrabber. ')
|
|
ReadOnly = True
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
WordWrap = False
|
|
end
|
|
object grbDesign: TGroupBox
|
|
Left = 415
|
|
Top = 195
|
|
Width = 113
|
|
Height = 130
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Caption = ' Commands '
|
|
TabOrder = 1
|
|
object btnGoDesign: TButton
|
|
Left = 20
|
|
Top = 56
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Go'
|
|
TabOrder = 0
|
|
OnClick = btnGoDesignClick
|
|
end
|
|
object btnClear: TButton
|
|
Left = 20
|
|
Top = 24
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Clear list'
|
|
TabOrder = 1
|
|
OnClick = btnClearClick
|
|
end
|
|
object btnStop: TButton
|
|
Left = 20
|
|
Top = 88
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Stop'
|
|
TabOrder = 2
|
|
OnClick = btnStopClick
|
|
end
|
|
end
|
|
object memUrls: TMemo
|
|
Left = 8
|
|
Top = 188
|
|
Width = 389
|
|
Height = 142
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Lines.Strings = (
|
|
'http://jvcl.sf.net'
|
|
'ftp://homepages.borland.com/home/jedi/jvcl/Licensing.html'
|
|
'file://C:/log2.txt'
|
|
'C:\log2.txt')
|
|
TabOrder = 2
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 347
|
|
Width = 535
|
|
Height = 19
|
|
Panels = <
|
|
item
|
|
Width = 50
|
|
end>
|
|
SimplePanel = False
|
|
end
|
|
object julGrabber: TJvUrlListGrabber
|
|
OnDoneFile = julGrabberDoneFile
|
|
OnError = julGrabberError
|
|
OnProgress = julGrabberProgress
|
|
OnConnectedToServer = julGrabberConnectedToServer
|
|
OnSendingRequest = julGrabberSendingRequest
|
|
OnRequestSent = julGrabberRequestSent
|
|
OnConnectionClosed = julGrabberConnectionClosed
|
|
OnStatusChange = julGrabberStatusChange
|
|
OnGrabberAdded = julGrabberGrabberAdded
|
|
Left = 384
|
|
Top = 156
|
|
DefaultGrabbersPropertiesList = <
|
|
item
|
|
UrlType = 'FTP'
|
|
Value.FileName = 'output.txt'
|
|
Value.OutputMode = omFile
|
|
Value.Agent = 'JEDI-VCL'
|
|
end
|
|
item
|
|
UrlType = 'HTTP'
|
|
Value.FileName = 'output.txt'
|
|
Value.OutputMode = omFile
|
|
Value.Agent = 'JEDI-VCL'
|
|
end
|
|
item
|
|
UrlType = 'LocalFile'
|
|
Value.FileName = 'output.txt'
|
|
Value.OutputMode = omFile
|
|
end>
|
|
end
|
|
end
|