jvcl driver development envionment

源代码在线查看: mainform.dfm

软件大小: 11078 K
上传用户: haowfei
关键词: development envionment driver jvcl
下载地址: 免注册下载 普通下载 VIP

相关代码

				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
							

相关资源