mainunit.dfm

著名的SecureBlackBox控件完整源码

object FrmFileUpload: TFrmFileUpload
  Left = 385
  Top = 114
  BorderStyle = bsDialog
  Caption = 'File uploading demo'
  ClientHeight = 87
  ClientWidth = 383
  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 Label1: TLabel
    Left = 6
    Top = 6
    Width = 25
    Height = 13
    Caption = 'URL:'
  end
  object Label2: TLabel
    Left = 6
    Top = 32
    Width = 48
    Height = 13
    Caption = 'File name:'
  end
  object EdURL: TEdit
    Left = 58
    Top = 2
    Width = 319
    Height = 21
    TabOrder = 0
    Text = 'http://localhost/upload/simple_upload.php'
  end
  object EdFileName: TEdit
    Left = 58
    Top = 28
    Width = 255
    Height = 21
    TabOrder = 1
  end
  object BtSel: TButton
    Left = 320
    Top = 28
    Width = 57
    Height = 21
    Caption = 'Sel'
    TabOrder = 2
    OnClick = BtSelClick
  end
  object BtStart: TButton
    Left = 6
    Top = 60
    Width = 63
    Height = 21
    Caption = 'Start'
    TabOrder = 3
    OnClick = BtStartClick
  end
  object PBUploading: TProgressBar
    Left = 74
    Top = 60
    Width = 301
    Height = 21
    Min = 0
    Max = 100
    TabOrder = 4
  end
  object dlgOpen: TOpenDialog
    Left = 204
    Top = 46
  end
  object HttpClient: TElHTTPSClient
    Versions = [sbSSL2, sbSSL3, sbTLS1]
    SocksAuthentication = saNoAuthentication
    WebTunnelPort = 3128
    SSLEnabled = False
    RequestParameters.AcceptLanguage = 'en-us'
    RequestParameters.ContentRangeStart = -1
    RequestParameters.ContentRangeEnd = -1
    RequestParameters.UserAgent = 'SecureBlackbox'
    PreferKeepAlive = False
    HTTPVersion = hvHTTP10
    SendBufferSize = 65535
    HTTPProxyPort = 3128
    UseHTTPProxy = False
    OnData = HttpClientData
    OnProgress = HttpClientProgress
    Left = 232
    Top = 48
  end
end