main.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 248
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Grab Website Demo'
  ClientHeight = 370
  ClientWidth = 489
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 64
    Top = 16
    Width = 358
    Height = 13
    Caption = 
      'This demo downloads all website pages and available resources re' +
      'cursively.'
  end
  object Label2: TLabel
    Left = 48
    Top = 40
    Width = 395
    Height = 13
    Caption = 
      'Please select the root website URL at which you want to start th' +
      'e grabbing process.'
  end
  object Label3: TLabel
    Left = 16
    Top = 72
    Width = 48
    Height = 13
    Caption = 'Root URL'
  end
  object Label4: TLabel
    Left = 16
    Top = 104
    Width = 47
    Height = 13
    Caption = 'Target Dir'
  end
  object Label5: TLabel
    Left = 16
    Top = 232
    Width = 18
    Height = 13
    Caption = 'Log'
  end
  object Label6: TLabel
    Left = 352
    Top = 136
    Width = 74
    Height = 13
    Caption = 'Max Nest Level'
  end
  object edtRootUrl: TEdit
    Left = 80
    Top = 72
    Width = 385
    Height = 21
    TabOrder = 0
    Text = 'http://www.google.com'
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 136
    Width = 321
    Height = 49
    Caption = 'Grab Options'
    TabOrder = 1
    object cbGrabAll: TCheckBox
      Left = 16
      Top = 16
      Width = 97
      Height = 17
      Caption = 'Grab All'
      TabOrder = 0
    end
    object cbGrabImages: TCheckBox
      Left = 112
      Top = 16
      Width = 89
      Height = 17
      Caption = 'Grab Images'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object cbGrabData: TCheckBox
      Left = 224
      Top = 16
      Width = 73
      Height = 17
      Caption = 'Grab Data'
      TabOrder = 2
    end
  end
  object edtTargetDir: TEdit
    Left = 80
    Top = 104
    Width = 385
    Height = 21
    TabOrder = 2
    Text = 'c:\downloads'
  end
  object btnGrab: TButton
    Left = 16
    Top = 200
    Width = 75
    Height = 25
    Caption = 'Grab'
    TabOrder = 3
    OnClick = btnGrabClick
  end
  object btnStop: TButton
    Left = 104
    Top = 200
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 4
    OnClick = btnStopClick
  end
  object memLog: TMemo
    Left = 0
    Top = 248
    Width = 489
    Height = 103
    Align = alBottom
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 5
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 351
    Width = 489
    Height = 19
    Panels = <
      item
        Text = 'Ready'
        Width = 50
      end>
  end
  object edtMaxNestLevel: TEdit
    Left = 352
    Top = 160
    Width = 97
    Height = 21
    TabOrder = 7
    Text = '3'
  end
  object updMaxNestLevel: TUpDown
    Left = 449
    Top = 160
    Width = 16
    Height = 21
    Associate = edtMaxNestLevel
    Position = 3
    TabOrder = 8
  end
  object clMultiDownLoader: TclMultiDownLoader
    DownLoadList = <>
    InternetAgent = 'Mozilla/4.0 (compatible; Clever Internet Suite)'
    OnIsBusyChanged = clMultiDownLoaderIsBusyChanged
    OnProcessCompleted = clMultiDownLoaderProcessCompleted
    Left = 144
    Top = 280
  end
end