clientmain.dfm

著名的SecureBlackBox控件完整源码

object Form2: TForm2
  Left = 539
  Top = 224
  Width = 305
  Height = 359
  Caption = 'ROClient'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 181
    Width = 95
    Height = 13
    Caption = 'File To Interchange:'
  end
  object Label2: TLabel
    Left = 8
    Top = 68
    Width = 62
    Height = 13
    Caption = 'Server-URL: '
  end
  object Label3: TLabel
    Left = 8
    Top = 92
    Width = 13
    Height = 13
    Caption = 'IP:'
  end
  object Bevel1: TBevel
    Left = 8
    Top = 135
    Width = 281
    Height = 7
    Shape = bsBottomLine
  end
  object Label4: TLabel
    Left = 8
    Top = 116
    Width = 25
    Height = 13
    Caption = 'Port: '
  end
  object Label5: TLabel
    Left = 8
    Top = 256
    Width = 67
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Download To:'
  end
  object cmdGetServerTime: TButton
    Left = 8
    Top = 146
    Width = 89
    Height = 25
    Caption = 'GetServerTime'
    TabOrder = 0
    OnClick = cmdGetServerTimeClick
  end
  object Edit1: TEdit
    Left = 72
    Top = 64
    Width = 217
    Height = 21
    TabOrder = 1
    Text = 'https://localhost:8099/bin'
  end
  object Edit2: TEdit
    Left = 101
    Top = 148
    Width = 188
    Height = 21
    TabOrder = 2
  end
  object edtFile: TEdit
    Left = 8
    Top = 199
    Width = 281
    Height = 21
    TabOrder = 3
  end
  object cmdUpload: TButton
    Left = 136
    Top = 226
    Width = 73
    Height = 25
    Caption = 'Upload -->'
    TabOrder = 4
    OnClick = cmdUploadClick
  end
  object cmdDownload: TButton
    Left = 216
    Top = 226
    Width = 73
    Height = 25
    Caption = 'Download <--'
    TabOrder = 5
    OnClick = cmdDownloadClick
  end
  object cmdOpenFile: TButton
    Left = 8
    Top = 226
    Width = 105
    Height = 25
    Caption = 'Select A Local File'
    TabOrder = 6
    OnClick = cmdOpenFileClick
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 313
    Width = 297
    Height = 19
    Panels = <>
  end
  object ProgressBar: TProgressBar
    Left = 0
    Top = 301
    Width = 297
    Height = 12
    Align = alBottom
    TabOrder = 8
  end
  object Edit3: TEdit
    Left = 72
    Top = 88
    Width = 217
    Height = 21
    TabOrder = 9
    Text = 'localhost'
  end
  object rgpChannel: TRadioGroup
    Left = 8
    Top = 8
    Width = 281
    Height = 49
    Caption = 'Transfer Channel'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'IndyHTTP-Channel'
      'IndyTCP/IP-Channel')
    TabOrder = 10
  end
  object edtPort: TSpinEdit
    Left = 72
    Top = 112
    Width = 217
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 11
    Value = 8099
  end
  object eDownloadDir: TEdit
    Left = 8
    Top = 272
    Width = 281
    Height = 21
    Anchors = [akLeft, akRight, akBottom]
    TabOrder = 12
    Text = 'c:\ClientDownloads'
  end
  object ROBINMessage1: TROBinMessage
    UseCompression = False
    Left = 192
    Top = 80
  end
  object ROIndyHTTPChannel1: TROIndyHTTPChannel
    IndyClient.IOHandler = ElIndySSLIOHandler
    IndyClient.MaxLineAction = maException
    IndyClient.ReadTimeout = 0
    IndyClient.Host = '127.0.0.1'
    IndyClient.Port = 8099
    IndyClient.AllowCookies = True
    IndyClient.ProxyParams.BasicAuthentication = False
    IndyClient.ProxyParams.ProxyPort = 0
    IndyClient.Request.ContentLength = -1
    IndyClient.Request.ContentRangeEnd = 0
    IndyClient.Request.ContentRangeStart = 0
    IndyClient.Request.ContentType = 'text/html'
    IndyClient.Request.Accept = 'text/html, */*'
    IndyClient.Request.BasicAuthentication = False
    IndyClient.Request.UserAgent = 'RemObjects SDK'
    IndyClient.HTTPOptions = [hoForceEncodeParams]
    Left = 224
    Top = 80
  end
  object OpenDialog: TOpenDialog
    Filter = 'All Files (*.*)|*.*'
    Left = 160
    Top = 80
  end
  object ROIndyTCPChannel1: TROIndyTCPChannel
    Port = 8098
    Host = '127.0.0.1'
    IndyClient.IOHandler = ElIndySSLIOHandler
    IndyClient.MaxLineAction = maException
    IndyClient.ReadTimeout = 0
    IndyClient.OnWork = ROIndyHTTPChannel1InternalIndyClientWork
    IndyClient.Host = '127.0.0.1'
    IndyClient.Port = 8098
    Left = 256
    Top = 80
  end
  object ElIndySSLIOHandler: TElIndySSLIOHandlerSocket
    SSLOptions.Method = sslvSSLv2
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    Passthrough = False
    Versions = [sbSSL3, sbTLS1]
    OnCertificateValidate = ElIndySSLIOHandlerCertificateValidate
    Left = 128
    Top = 168
  end
  object ServerCertStorage: TElMemoryCertStorage
    Left = 208
    Top = 168
  end
  object ClientCertStorage: TElMemoryCertStorage
    Left = 168
    Top = 168
  end
end