formupload.dfm

利用winhttp post 上传文件

object frmFilesUpload: TfrmFilesUpload
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'HTTP'#19978#20256#25991#20214
  ClientHeight = 327
  ClientWidth = 559
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lblFile: TLabel
    Left = 8
    Top = 200
    Width = 28
    Height = 13
    Caption = #25991#20214':'
  end
  object lblFileName: TLabel
    Left = 42
    Top = 200
    Width = 407
    Height = 13
    AutoSize = False
    Caption = 'lblFileName'
  end
  object lblTotalProgress: TLabel
    Left = 8
    Top = 242
    Width = 40
    Height = 13
    Caption = #24635#36827#24230':'
  end
  object lblAllFilesProgress: TLabel
    Left = 70
    Top = 242
    Width = 17
    Height = 13
    Caption = '0%'
  end
  object Bevel: TBevel
    Left = 8
    Top = 284
    Width = 545
    Height = 3
    Shape = bsBottomLine
  end
  object lblUploadSpeed: TLabel
    Left = 168
    Top = 242
    Width = 52
    Height = 13
    Caption = #19978#20256#36895#24230':'
  end
  object lblUploadRate: TLabel
    Left = 240
    Top = 242
    Width = 22
    Height = 13
    Caption = '0B/S'
  end
  object lblFileList: TLabel
    Left = 8
    Top = 4
    Width = 65
    Height = 13
    Caption = #25991#20214#28165#21333'(&L):'
    FocusControl = lvwUploadFiles
  end
  object btnUpload: TButton
    Left = 335
    Top = 293
    Width = 75
    Height = 25
    Caption = #19978#20256'(&U)'
    TabOrder = 0
    OnClick = btnUploadClick
  end
  object prbAllFilesUpload: TProgressBar
    Left = 8
    Top = 261
    Width = 545
    Height = 17
    Smooth = True
    Step = 1
    TabOrder = 1
  end
  object lvwUploadFiles: TListView
    Left = 8
    Top = 23
    Width = 545
    Height = 162
    Columns = <
      item
        Width = 40
      end
      item
        Caption = #25991#20214
        Width = 340
      end
      item
        Alignment = taCenter
        Caption = #22823#23567
        Width = 100
      end
      item
        Alignment = taCenter
        Caption = #36827#24230
        Width = 60
      end
      item
        Caption = #21464#37327
        Width = 60
      end>
    RowSelect = True
    TabOrder = 2
    ViewStyle = vsReport
  end
  object prbSingleFileUpload: TProgressBar
    Left = 8
    Top = 219
    Width = 545
    Height = 17
    Smooth = True
    Step = 1
    TabOrder = 3
  end
  object btnCancel: TBitBtn
    Left = 448
    Top = 293
    Width = 75
    Height = 25
    Caption = #21462#28040'(&C)'
    TabOrder = 4
    OnClick = btnCancelClick
  end
  object WinHTTP: TWinHTTP
    AcceptTypes = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
    AddHeaders.Strings = (
      'Accept-Language: zh-cn,zh;q=0.5'
      'Accept-Encoding: gzip,deflate'
      'Accept-Charset: gb2312,utf-8;q=0.7,*;q=0.7')
    Agent = 
      'Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.9.0.6) Geck' +
      'o/2009011913 Firefox/3.0.6'
    RequestMethod = rmPOST
    OnDone = WinHTTPDone
    OnUploadProgress = WinHTTPUploadProgress
    OnUploadFieldRequest = WinHTTPUploadFieldRequest
    OnHTTPError = WinHTTPHTTPError
    Left = 8
    Top = 288
  end
end