mainunit.dfm

著名的SecureBlackBox控件完整源码

object FrmMain: TFrmMain
  Left = 346
  Top = 177
  BorderStyle = bsDialog
  Caption = 'HTTP/HTTPS client demo'
  ClientHeight = 307
  ClientWidth = 539
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 2
    Top = 26
    Width = 26
    Height = 13
    Caption = 'Host:'
  end
  object Label2: TLabel
    Left = 2
    Top = 6
    Width = 43
    Height = 13
    Caption = 'Protocol:'
  end
  object Label3: TLabel
    Left = 202
    Top = 26
    Width = 24
    Height = 13
    Caption = 'Port:'
  end
  object Label4: TLabel
    Left = 2
    Top = 48
    Width = 26
    Height = 13
    Caption = 'Path:'
  end
  object EdHost: TEdit
    Left = 64
    Top = 26
    Width = 129
    Height = 21
    TabOrder = 1
    Text = 'localhost'
  end
  object btnGo: TButton
    Left = 327
    Top = 50
    Width = 66
    Height = 21
    Caption = 'Retrieve'
    Default = True
    TabOrder = 4
    OnClick = btnGoClick
  end
  object MMLog: TMemo
    Left = 0
    Top = 79
    Width = 538
    Height = 228
    ScrollBars = ssBoth
    TabOrder = 5
  end
  object CbProtocol: TComboBox
    Left = 64
    Top = 4
    Width = 95
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = 'HTTP'
    Items.Strings = (
      'HTTP'
      'HTTPS')
  end
  object EdPort: TEdit
    Left = 230
    Top = 24
    Width = 91
    Height = 21
    TabOrder = 2
    Text = '80'
  end
  object EdPath: TEdit
    Left = 64
    Top = 46
    Width = 257
    Height = 21
    TabOrder = 3
    Text = '/'
  end
  object HttpsClient: TElHTTPSClient
    Versions = [sbSSL2, sbSSL3, sbTLS1]
    LocalPort = 0
    SocksAuthentication = saNoAuthentication
    WebTunnelPort = 3128
    SSLEnabled = False
    RequestParameters.ContentRangeStart = -1
    RequestParameters.ContentRangeEnd = -1
    RequestParameters.UserAgent = 'SecureBlackbox'
    PreferKeepAlive = True
    HTTPVersion = hvHTTP11
    UseNTLMAuth = False
    SendBufferSize = 65535
    HTTPProxyPort = 3128
    UseHTTPProxy = False
    OnData = HttpsClientData
    OnDocumentBegin = HttpsClientDocumentStart
    OnDocumentEnd = HttpsClientDocumentFinish
    OnReceivingHeaders = HttpsClientReceivingHeaders
    OnPreparedHeaders = HttpsClientPreparedHeaders
    OnRedirection = HttpsClientRedirection
    OnCertificateValidate = HttpsClientCertificateValidate
    OnCloseConnection = HttpsClientCloseConnection
    Left = 84
    Top = 102
  end
end