jvcl driver development envionment
源代码在线查看: mainform.dfm
object frmMain: TfrmMain
Left = 192
Top = 107
Width = 543
Height = 438
Caption = 'TJvUrlListGrabber demo'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object lblExpl: TLabel
Left = 4
Top = 184
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 = 161
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 intended to replace TJvHttpGrabber, TJvFtpGrab' +
'ber and TJvMultiHttpGrabber. ')
ScrollBars = ssVertical
TabOrder = 0
WordWrap = False
end
object grbDesign: TGroupBox
Left = 415
Top = 236
Width = 113
Height = 129
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 = 224
Width = 389
Height = 151
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 = 392
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
Left = 384
Top = 192
DefaultGrabbersPropertiesList = <
item
UrlType = 'FTP'
Value.FileName = 'output.txt'
Value.OutputMode = omFile
Value.Agent = 'JEDI-VCL'
Value.Port = 21
end
item
UrlType = 'HTTP'
Value.FileName = 'output.txt'
Value.OutputMode = omFile
Value.Agent = 'JEDI-VCL'
Value.Port = 80
end
item
UrlType = 'LocalFile'
Value.FileName = 'output.txt'
Value.OutputMode = omFile
end>
end
end