fmain.dfm

一个C++的断点续传和多线程下载代码,类似于网络蚂蚁 网际快车的原理

object fmMain: TfmMain
  Left = 221
  Top = 93
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '测试Http下载组件'
  ClientHeight = 430
  ClientWidth = 544
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 12
    Width = 60
    Height = 12
    Caption = '下载的URL:'
  end
  object Label2: TLabel
    Left = 16
    Top = 40
    Width = 42
    Height = 12
    Caption = '保存为:'
  end
  object EditURL: TEdit
    Left = 80
    Top = 8
    Width = 425
    Height = 20
    TabOrder = 0
    Text = 'http://www.21url.net/down/wd2000.zip'
  end
  object EditSaveFile: TEdit
    Left = 80
    Top = 36
    Width = 349
    Height = 20
    TabOrder = 1
    Text = 'D:\11.zip'
  end
  object ButtonBrowse: TButton
    Left = 432
    Top = 34
    Width = 75
    Height = 25
    Caption = '浏览'
    TabOrder = 2
    OnClick = ButtonBrowseClick
  end
  object ButtonStart: TButton
    Left = 32
    Top = 396
    Width = 75
    Height = 25
    Caption = '开始'
    TabOrder = 3
    OnClick = ButtonStartClick
  end
  object ButtonClose: TButton
    Left = 452
    Top = 396
    Width = 75
    Height = 25
    Caption = '关闭'
    TabOrder = 4
    OnClick = ButtonCloseClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 64
    Width = 261
    Height = 157
    Caption = '线程1'
    TabOrder = 5
    object LabelPosition0: TLabel
      Left = 8
      Top = 121
      Width = 6
      Height = 12
    end
    object LabelTotal0: TLabel
      Left = 136
      Top = 121
      Width = 117
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
    end
    object Memo0: TMemo
      Left = 8
      Top = 16
      Width = 245
      Height = 100
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object ProgressBar0: TProgressBar
      Left = 8
      Top = 137
      Width = 245
      Height = 12
      Min = 0
      Max = 100
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 276
    Top = 64
    Width = 261
    Height = 157
    Caption = '线程2'
    TabOrder = 6
    object LabelPosition1: TLabel
      Left = 8
      Top = 121
      Width = 6
      Height = 12
    end
    object LabelTotal1: TLabel
      Left = 136
      Top = 121
      Width = 117
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
    end
    object Memo1: TMemo
      Left = 8
      Top = 16
      Width = 245
      Height = 100
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object ProgressBar1: TProgressBar
      Left = 8
      Top = 137
      Width = 249
      Height = 12
      Min = 0
      Max = 100
      TabOrder = 1
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 228
    Width = 261
    Height = 157
    Caption = '线程3'
    TabOrder = 7
    object LabelPosition2: TLabel
      Left = 8
      Top = 121
      Width = 6
      Height = 12
    end
    object LabelTotal2: TLabel
      Left = 136
      Top = 121
      Width = 117
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
    end
    object Memo2: TMemo
      Left = 8
      Top = 16
      Width = 245
      Height = 100
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object ProgressBar2: TProgressBar
      Left = 8
      Top = 137
      Width = 249
      Height = 12
      Min = 0
      Max = 100
      TabOrder = 1
    end
  end
  object GroupBox4: TGroupBox
    Left = 276
    Top = 228
    Width = 261
    Height = 157
    Caption = '线程4'
    TabOrder = 8
    object LabelPosition3: TLabel
      Left = 8
      Top = 121
      Width = 6
      Height = 12
    end
    object LabelTotal3: TLabel
      Left = 136
      Top = 121
      Width = 117
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
    end
    object Memo3: TMemo
      Left = 8
      Top = 16
      Width = 245
      Height = 100
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object ProgressBar3: TProgressBar
      Left = 8
      Top = 137
      Width = 249
      Height = 12
      Min = 0
      Max = 100
      TabOrder = 1
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 460
    Top = 60
  end
  object HttpGetEx1: THttpGetEx
    ThreadCount = 4
    OnComplete = HttpGetEx1Complete
    OnGetFileSize = HttpGetEx1GetFileSize
    OnProgress = HttpGetEx1Progress
    OnStatusText = HttpGetEx1StatusText
    Left = 400
    Top = 92
  end
end