main.dfm

delphi下的大文件分割控件,在网站有VC++的,这里传一个delphi的

object Form1: TForm1
  Left = 227
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FileSplitter Demo'
  ClientHeight = 133
  ClientWidth = 255
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 1
    Top = 2
    Width = 253
    Height = 131
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 9
    Top = 51
    Width = 74
    Height = 13
    Caption = '&Size of split files'
    FocusControl = edtSize
  end
  object Label2: TLabel
    Left = 9
    Top = 20
    Width = 49
    Height = 13
    Caption = '&File to split'
    FocusControl = edtFileName
  end
  object Label3: TLabel
    Left = 219
    Top = 51
    Width = 25
    Height = 13
    Caption = 'bytes'
  end
  object btnSplit: TButton
    Left = 27
    Top = 94
    Width = 75
    Height = 25
    Caption = 'Split!'
    TabOrder = 2
    OnClick = btnSplitClick
  end
  object btnUnSplit: TButton
    Left = 156
    Top = 93
    Width = 75
    Height = 25
    Caption = 'UnSplit!'
    TabOrder = 3
    OnClick = btnUnSplitClick
  end
  object edtSize: TEdit
    Left = 94
    Top = 47
    Width = 121
    Height = 21
    BiDiMode = bdLeftToRight
    ParentBiDiMode = False
    TabOrder = 1
    Text = '1457664'
  end
  object edtFileName: TEdit
    Left = 94
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 0
  end
  object btnSelectFile: TButton
    Left = 216
    Top = 16
    Width = 18
    Height = 21
    Caption = '...'
    TabOrder = 4
    TabStop = False
    OnClick = btnSelectFileClick
  end
  object FileSplitter: TFileSplitter
    FileName = 'D:\1d\Source.arj'
    SplitFileName = 'D:\1d\Source.SPL'
    Size = 1457664
    BufferSize = 1457664
    Left = 23
    Top = 4
  end
  object OpenDialog: TOpenDialog
    Filter = 'All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofShowHelp, ofPathMustExist, ofFileMustExist, ofNoDereferenceLinks, ofEnableSizing]
    Title = 'Select a file to split'
    Left = 23
    Top = 49
  end
end