main.dfm

这是一套全面的网络组件

        Top = 118
        Width = 69
        Height = 13
        Caption = 'Preview Count'
      end
      object Bevel1: TBevel
        Left = 6
        Top = 232
        Width = 736
        Height = 121
        Shape = bsFrame
      end
      object Bevel2: TBevel
        Left = 6
        Top = 10
        Width = 736
        Height = 207
        Shape = bsFrame
      end
      object Label13: TLabel
        Left = 411
        Top = 31
        Width = 58
        Height = 13
        Caption = 'HTTP Proxy'
      end
      object Label14: TLabel
        Left = 410
        Top = 88
        Width = 63
        Height = 13
        Caption = 'Proxy Bypass'
      end
      object Label15: TLabel
        Left = 18
        Top = 175
        Width = 51
        Height = 13
        Caption = 'Buffer Size'
      end
      object Label16: TLabel
        Left = 19
        Top = 88
        Width = 78
        Height = 13
        Caption = 'Reconnect After'
      end
      object Label17: TLabel
        Left = 19
        Top = 147
        Width = 46
        Height = 13
        Caption = 'Try Count'
      end
      object Label18: TLabel
        Left = 410
        Top = 117
        Width = 51
        Height = 13
        Caption = 'Proxy User'
      end
      object Label19: TLabel
        Left = 410
        Top = 147
        Width = 75
        Height = 13
        Caption = 'Proxy Password'
      end
      object Label20: TLabel
        Left = 656
        Top = 32
        Width = 19
        Height = 13
        Caption = 'Port'
      end
      object Label21: TLabel
        Left = 411
        Top = 60
        Width = 49
        Height = 13
        Caption = 'FTP Proxy'
      end
      object Label22: TLabel
        Left = 656
        Top = 61
        Width = 19
        Height = 13
        Caption = 'Port'
      end
      object edtDirectory: TEdit
        Left = 102
        Top = 27
        Width = 291
        Height = 21
        TabOrder = 0
        OnChange = edtDirectoryChange
      end
      object edtTimeOut: TEdit
        Left = 102
        Top = 56
        Width = 275
        Height = 21
        TabOrder = 1
        Text = '0'
        OnChange = edtTimeOutChange
      end
      object edtPreviewCharCount: TEdit
        Left = 102
        Top = 115
        Width = 275
        Height = 21
        TabOrder = 5
        Text = '0'
        OnChange = edtPreviewCharCountChange
      end
      object chkDownLoadNews: TCheckBox
        Left = 104
        Top = 261
        Width = 153
        Height = 17
        Caption = 'Check for News'
        Checked = True
        State = cbChecked
        TabOrder = 19
        OnClick = chkDownLoadNewsClick
      end
      object edtSiteNewsURL: TEdit
        Left = 271
        Top = 259
        Width = 375
        Height = 21
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 20
      end
      object btnViewSiteNews: TButton
        Left = 657
        Top = 258
        Width = 72
        Height = 22
        Caption = 'View'
        TabOrder = 21
        OnClick = btnViewSiteNewsClick
      end
      object updTimeOut: TUpDown
        Left = 377
        Top = 56
        Width = 16
        Height = 21
        Associate = edtTimeOut
        Max = 32767
        TabOrder = 2
      end
      object updPreviewCount: TUpDown
        Left = 377
        Top = 115
        Width = 16
        Height = 21
        Associate = edtPreviewCharCount
        Max = 32767
        TabOrder = 6
      end
      object chkPassiveFTPMode: TCheckBox
        Left = 493
        Top = 173
        Width = 144
        Height = 17
        Caption = 'Passive FTP Mode'
        Checked = True
        State = cbChecked
        TabOrder = 18
        OnClick = chkPassiveFTPModeClick
      end
      object edtHttpProxy: TEdit
        Left = 492
        Top = 27
        Width = 157
        Height = 21
        TabOrder = 11
        OnChange = edtHttpProxyChange
      end
      object edtProxyBypass: TEdit
        Left = 492
        Top = 86
        Width = 237
        Height = 21
        TabOrder = 15
        OnChange = edtProxyBypassChange
      end
      object edtBatchSize: TEdit
        Left = 102
        Top = 173
        Width = 275
        Height = 21
        TabOrder = 9
        Text = '0'
        OnChange = edtBatchSizeChange
      end
      object updBatchSize: TUpDown
        Left = 377
        Top = 173
        Width = 15
        Height = 21
        Associate = edtBatchSize
        Max = 32767
        TabOrder = 10
      end
      object edtReconnectAfter: TEdit
        Left = 102
        Top = 85
        Width = 275
        Height = 21
        TabOrder = 3
        Text = '0'
        OnChange = edtReconnectAfterChange
      end
      object updReconnectAfter: TUpDown
        Left = 377
        Top = 85
        Width = 16
        Height = 21
        Associate = edtReconnectAfter
        Max = 32767
        TabOrder = 4
      end
      object edtTryCount: TEdit
        Left = 102
        Top = 144
        Width = 275
        Height = 21
        TabOrder = 7
        Text = '0'
        OnChange = edtTryCountChange
      end
      object updTryCount: TUpDown
        Left = 377
        Top = 144
        Width = 16
        Height = 21
        Associate = edtTryCount
        Max = 32767
        TabOrder = 8
      end
      object edtProxyUser: TEdit
        Left = 492
        Top = 115
        Width = 237
        Height = 21
        TabOrder = 16
        OnChange = edtProxyUserChange
      end
      object edtProxyPassword: TEdit
        Left = 492
        Top = 145
        Width = 237
        Height = 21
        PasswordChar = '*'
        TabOrder = 17
        OnChange = edtProxyPasswordChange
      end
      object edtHttpPort: TEdit
        Left = 682
        Top = 27
        Width = 47
        Height = 21
        TabOrder = 12
        Text = '0'
        OnChange = edtHttpPortChange
      end
      object edtFtpProxy: TEdit
        Left = 492
        Top = 56
        Width = 157
        Height = 21
        TabOrder = 13
        OnChange = edtFtpProxyChange
      end
      object edtFtpPort: TEdit
        Left = 682
        Top = 56
        Width = 47
        Height = 21
        TabOrder = 14
        Text = '0'
        OnChange = edtFtpPortChange
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 391
    Width = 758
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object clProgressBar: TclProgressBar
      Left = 44
      Top = 12
      Width = 150
      Height = 16
      BorderStyle = bsNone
      ProgressSplit = 50
      InternetControl = clMultiDownLoader
      Visible = False
      OnChanged = clProgressBarChanged
    end
    object btnExit: TButton
      Left = 677
      Top = 10
      Width = 72
      Height = 22
      Caption = 'E&xit'
      TabOrder = 0
      OnClick = btnExitClick
    end
  end
  object clMultiDownLoader: TclMultiDownLoader
    DownLoadList = <
      item
        URL = 'http://www.clevercomponents.com/images/testimage.jpg'
        LocalFile = 'c:\testimage.jpg'
      end>
    LocalFolder = 'c:\'
    InternetAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite)'
    OnGetResourceInfo = clMultiDownLoaderGetResourceInfo
    OnStatusChanged = clMultiDownLoaderStatusChanged
    OnDataItemProceed = clMultiDownLoaderDataItemProceed
    OnDataTextProceed = clMultiDownLoaderDataTextProceed
    OnError = clMultiDownLoaderError
    OnChanged = clMultiDownLoaderChanged
    OnIsBusyChanged = clMultiDownLoaderIsBusyChanged
    Left = 188
    Top = 40
  end
  object clNewsChecker: TclNewsChecker
    ThreadCount = 1
    URL = 'http://www.clevercomponents.com/checknews/clnews.html'
    LocalFile = 'clnews.html'
    Priority = ppLower
    TryCount = 1
    TimeOut = 60000
    InternetAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite)'
    OnChanged = clNewsCheckerChanged
    OnNewsExist = clNewsCheckerNewsExist
    Left = 302
    Top = 38
  end
end