main.dfm

这是一套全面的网络组件

object DownLoaderTest: TDownLoaderTest
  Left = 258
  Top = 189
  BorderStyle = bsDialog
  Caption = 'DownLoader'
  ClientHeight = 409
  ClientWidth = 598
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 7
    Top = 52
    Width = 22
    Height = 13
    Caption = 'URL'
  end
  object Label2: TLabel
    Left = 307
    Top = 76
    Width = 16
    Height = 13
    Caption = 'File'
  end
  object Label3: TLabel
    Left = 7
    Top = 320
    Width = 37
    Height = 13
    Caption = 'Statistic'
  end
  object Label5: TLabel
    Left = 307
    Top = 154
    Width = 38
    Height = 13
    Caption = 'Preview'
  end
  object Label4: TLabel
    Left = 7
    Top = 280
    Width = 18
    Height = 13
    Caption = 'Log'
  end
  object Label6: TLabel
    Left = 7
    Top = 79
    Width = 22
    Height = 13
    Caption = 'User'
  end
  object Label7: TLabel
    Left = 7
    Top = 151
    Width = 43
    Height = 13
    Caption = 'URL Info'
  end
  object Label8: TLabel
    Left = 307
    Top = 49
    Width = 13
    Height = 13
    Caption = 'Dir'
  end
  object Label9: TLabel
    Left = 7
    Top = 107
    Width = 46
    Height = 13
    Caption = 'Password'
  end
  object clProgressBar1: TclProgressBar
    Left = 59
    Top = 344
    Width = 531
    Height = 19
    ProgressSplit = 50
    InternetControl = clDownLoader1
  end
  object Label10: TLabel
    Left = 307
    Top = 107
    Width = 39
    Height = 13
    Caption = 'Threads'
  end
  object Label11: TLabel
    Left = 453
    Top = 107
    Width = 28
    Height = 13
    Caption = 'Buffer'
  end
  object Label12: TLabel
    Left = 16
    Top = 8
    Width = 471
    Height = 13
    Caption = 
      'This demo downloads files from server via the following Network ' +
      'protocols: HTTP, HTTPS and FTP.'
  end
  object Label13: TLabel
    Left = 16
    Top = 24
    Width = 459
    Height = 13
    Caption = 
      'Please set the "http://" URL value for HTTP protocol, "https://"' +
      ' for HTTPS and "ftp://" for FTP.'
  end
  object btnDownLoad: TButton
    Left = 515
    Top = 373
    Width = 75
    Height = 25
    Caption = 'DownLoad'
    TabOrder = 15
    OnClick = btnDownLoadClick
  end
  object edtURL: TEdit
    Left = 57
    Top = 48
    Width = 240
    Height = 21
    TabOrder = 0
    Text = 'edtURL'
    OnChange = edtURLChange
  end
  object edtFile: TEdit
    Left = 349
    Top = 75
    Width = 241
    Height = 21
    TabOrder = 4
    Text = 'edtFile'
    OnChange = edtFileChange
  end
  object memPreview: TMemo
    Left = 349
    Top = 151
    Width = 241
    Height = 120
    ReadOnly = True
    TabOrder = 10
  end
  object edtStatistic: TEdit
    Left = 58
    Top = 318
    Width = 532
    Height = 21
    Color = clBtnFace
    ReadOnly = True
    TabOrder = 12
  end
  object btnGetInfo: TButton
    Left = 351
    Top = 373
    Width = 75
    Height = 25
    Caption = 'Get Info'
    TabOrder = 13
    OnClick = btnGetInfoClick
  end
  object memErrors: TMemo
    Left = 58
    Top = 278
    Width = 532
    Height = 35
    ReadOnly = True
    TabOrder = 11
  end
  object edtUser: TEdit
    Left = 58
    Top = 75
    Width = 240
    Height = 21
    TabOrder = 1
    OnChange = edtUserChange
  end
  object edtPassword: TEdit
    Left = 58
    Top = 103
    Width = 240
    Height = 21
    PasswordChar = '*'
    TabOrder = 2
    OnChange = edtPasswordChange
  end
  object btnStop: TButton
    Left = 433
    Top = 373
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 14
    OnClick = btnStopClick
  end
  object memInfo: TMemo
    Left = 58
    Top = 151
    Width = 240
    Height = 121
    ReadOnly = True
    TabOrder = 9
  end
  object edtDirectory: TEdit
    Left = 349
    Top = 48
    Width = 240
    Height = 21
    TabOrder = 3
    OnChange = edtDirectoryChange
  end
  object edtThreadCount: TEdit
    Left = 349
    Top = 103
    Width = 81
    Height = 21
    TabOrder = 5
    Text = '0'
    OnChange = edtThreadCountChange
  end
  object edtBufferSize: TEdit
    Left = 487
    Top = 103
    Width = 87
    Height = 21
    TabOrder = 7
    Text = '0'
    OnChange = edtBufferSizeChange
  end
  object updBufferSize: TUpDown
    Left = 574
    Top = 103
    Width = 15
    Height = 21
    Associate = edtBufferSize
    Max = 32767
    TabOrder = 8
  end
  object updThreadCount: TUpDown
    Left = 430
    Top = 103
    Width = 15
    Height = 21
    Associate = edtThreadCount
    TabOrder = 6
  end
  object clDownLoader1: TclDownLoader
    ThreadCount = 2
    URL = 'http://www.clevercomponents.com/images/testimage.jpg'
    LocalFile = 'c:\testimage.jpg'
    LocalFolder = 'c:\'
    BatchSize = 4096
    InternetAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite)'
    OnGetResourceInfo = clDownLoader1GetResourceInfo
    OnStatusChanged = clDownLoader1StatusChanged
    OnDataItemProceed = clDownLoader1DataItemProceed
    OnDataTextProceed = clDownLoader1DataTextProceed
    OnError = clDownLoader1Error
    OnUrlParsing = clDownLoader1URLParsing
    OnChanged = clDownLoader1Changed
    Left = 154
    Top = 57
  end
end