client_form.txt

著名的SecureBlackBox控件完整源码

object RtcFileClient: TRtcFileClient
  Left = 237
  Top = 277
  Width = 436
  Height = 497
  Caption = 'RTC File Client Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 256
    Width = 428
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 428
    Height = 256
    Align = alTop
    TabOrder = 0
    object Panel2: TPanel
      Left = 339
      Top = 1
      Width = 88
      Height = 254
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object Label5: TLabel
        Left = 8
        Top = 60
        Width = 56
        Height = 13
        Caption = 'Reconnect:'
      end
      object btnConnect: TButton
        Left = 8
        Top = 5
        Width = 73
        Height = 26
        Caption = 'Connect'
        TabOrder = 0
        TabStop = False
        OnClick = btnConnectClick
      end
      object btnDisconnect: TButton
        Left = 8
        Top = 30
        Width = 73
        Height = 26
        Caption = 'Disconnect'
        Enabled = False
        TabOrder = 1
        TabStop = False
        OnClick = btnDisconnectClick
      end
      object btnPost: TButton
        Left = 8
        Top = 145
        Width = 73
        Height = 25
        Caption = 'POST'
        Default = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 6
        OnClick = btnPostClick
      end
      object btn100Post: TButton
        Left = 8
        Top = 171
        Width = 73
        Height = 25
        Caption = '100 x POST'
        TabOrder = 7
        OnClick = btn100PostClick
      end
      object btnCancelAll: TButton
        Left = 8
        Top = 198
        Width = 73
        Height = 25
        Caption = 'SKIP ALL'
        TabOrder = 8
        OnClick = btnCancelAllClick
      end
      object xReconError: TCheckBox
        Left = 12
        Top = 75
        Width = 65
        Height = 17
        Caption = 'on Error'
        TabOrder = 2
        OnClick = xReconErrorClick
      end
      object xReconFail: TCheckBox
        Left = 12
        Top = 92
        Width = 65
        Height = 16
        Caption = 'on Fail'
        Checked = True
        State = cbChecked
        TabOrder = 3
        OnClick = xReconFailClick
      end
      object xReconLost: TCheckBox
        Left = 12
        Top = 108
        Width = 65
        Height = 17
        Caption = 'on Lost'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = xReconLostClick
      end
      object xShowWarning: TCheckBox
        Left = 12
        Top = 125
        Width = 69
        Height = 17
        Caption = '>5? Stop!'
        Checked = True
        State = cbChecked
        TabOrder = 5
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 338
      Height = 254
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel3'
      TabOrder = 0
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 338
        Height = 254
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 4
        TabOrder = 0
        object Label7: TLabel
          Left = 8
          Top = 115
          Width = 36
          Height = 13
          Caption = 'Method'
        end
        object Label8: TLabel
          Left = 80
          Top = 115
          Width = 186
          Height = 13
          Caption = 'File Name, without "http://serveraddr/"'
        end
        object Label10: TLabel
          Left = 72
          Top = 135
          Width = 7
          Height = 13
          Caption = '/'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label11: TLabel
          Left = 8
          Top = 155
          Width = 83
          Height = 13
          Caption = 'Query parameters'
        end
        object Label9: TLabel
          Left = 8
          Top = 90
          Width = 56
          Height = 13
          Caption = 'Host Name:'
        end
        object Label3: TLabel
          Left = 8
          Top = 27
          Width = 56
          Height = 13
          Caption = 'Server Port:'
        end
        object Label2: TLabel
          Left = 80
          Top = 27
          Width = 75
          Height = 13
          Caption = 'Server Address:'
        end
        object Label1: TLabel
          Left = 8
          Top = 70
          Width = 60
          Height = 13
          Caption = 'REQUEST'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label12: TLabel
          Left = 8
          Top = 230
          Width = 87
          Height = 13
          Caption = 'Total bytes in+out:'
        end
        object lblDataInOut: TLabel
          Left = 100
          Top = 230
          Width = 6
          Height = 13
          Caption = '0'
        end
        object eReqMethod: TEdit
          Left = 8
          Top = 130
          Width = 57
          Height = 21
          TabOrder = 2
          Text = 'GET'
        end
        object eReqFileName: TEdit
          Left = 80
          Top = 130
          Width = 249
          Height = 21
          TabOrder = 3
          OnChange = eReqFileNameChange
        end
        object eReqQuery: TEdit
          Left = 8
          Top = 170
          Width = 321
          Height = 21
          TabOrder = 4
        end
        object xSaveToFile: TCheckBox
          Left = 8
          Top = 200
          Width = 81
          Height = 21
          Caption = 'Save to file:'
          TabOrder = 5
        end
        object eFileName: TEdit
          Left = 88
          Top = 200
          Width = 205
          Height = 21
          TabOrder = 6
          Text = 'c:\temp\index.htm'
        end
        object btnSaveAs: TButton
          Left = 305
          Top = 200
          Width = 25
          Height = 21
          Caption = '...'
          TabOrder = 7
          OnClick = btnSaveAsClick
        end
        object eReqHost: TEdit
          Left = 80
          Top = 85
          Width = 249
          Height = 21
          TabStop = False
          TabOrder = 1
          Text = 'localhost'
        end
        object ePort: TEdit
          Left = 8
          Top = 44
          Width = 61
          Height = 21
          TabStop = False
          TabOrder = 8
          Text = '80'
          OnChange = ePortChange
        end
        object eAddr: TEdit
          Left = 80
          Top = 44
          Width = 249
          Height = 21
          TabOrder = 0
          Text = '127.0.0.1'
          OnChange = eAddrChange
        end
        object xUseProxy: TCheckBox
          Left = 212
          Top = 5
          Width = 49
          Height = 17
          TabStop = False
          Caption = 'Proxy'
          TabOrder = 9
          OnClick = xUseProxyClick
        end
        object xThreads: TCheckBox
          Left = 8
          Top = 5
          Width = 89
          Height = 17
          TabStop = False
          Caption = 'Non-blocking'
          Checked = True
          State = cbChecked
          TabOrder = 10
          OnClick = xThreadsClick
        end
        object xUseSSL: TCheckBox
          Left = 280
          Top = 5
          Width = 49
          Height = 17
          TabStop = False
          Caption = 'SSL'
          TabOrder = 11
          OnClick = xUseSSLClick
        end
        object xAutoConnect: TCheckBox
          Left = 108
          Top = 5
          Width = 89
          Height = 17
          TabStop = False
          Caption = 'Auto-Connect'
          Checked = True
          State = cbChecked
          TabOrder = 12
          OnClick = xAutoConnectClick
        end
      end
    end
  end
  object Panel6: TPanel
    Left = 0
    Top = 259
    Width = 428
    Height = 211
    Align = alClient
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 1
      Top = 76
      Width = 426
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object Panel7: TPanel
      Left = 1
      Top = 1
      Width = 426
      Height = 75
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Panel9: TPanel
        Left = 0
        Top = 0
        Width = 426
        Height = 21
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label4: TLabel
          Left = 8
          Top = 5
          Width = 68
          Height = 13
          Caption = 'RESPONSE'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lblCount: TLabel
          Left = 192
          Top = 5
          Width = 55
          Height = 13
          Caption = '0 Received'
        end
        object lblRetry: TLabel
          Left = 96
          Top = 5
          Width = 48
          Height = 13
          Caption = '0 Reposts'
        end
      end
      object Panel10: TPanel
        Left = 0
        Top = 21
        Width = 426
        Height = 54
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 2
        TabOrder = 1
        object eResponseHeader: TMemo
          Left = 2
          Top = 2
          Width = 422
          Height = 50
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
    end
    object Panel8: TPanel
      Left = 1
      Top = 79
      Width = 426
      Height = 131
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Panel11: TPanel
        Left = 0
        Top = 0
        Width = 426
        Height = 43
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object lblTime: TLabel
          Left = 160
          Top = 5
          Width = 87
          Height = 13
          Caption = 'Time: 0 < 0 < 0 ms'
        end
        object Label6: TLabel
          Left = 8
          Top = 5
          Width = 51
          Height = 13
          Caption = 'Content in:'
        end
        object lblSpeed: TLabel
          Left = 388
          Top = 5
          Width = 33
          Height = 13
          Alignment = taRightJustify
          Caption = '0 KB/s'
        end
        object lblBytes: TLabel
          Left = 64
          Top = 5
          Width = 34
          Height = 13
          Caption = '0 bytes'
        end
        object pBar: TProgressBar
          Left = 8
          Top = 25
          Width = 413
          Height = 16
          TabOrder = 0
        end
      end
      object Panel12: TPanel
        Left = 0
        Top = 43
        Width = 426
        Height = 88
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 2
        TabOrder = 1
        object eResponseBody: TMemo
          Left = 2
          Top = 2
          Width = 422
          Height = 84
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 0
        end
      end
    end
  end
  object Client: TRtcHttpClient
    MultiThreaded = True
    ServerAddr = 'localhost'
    ServerPort = '443'
    OnConnect = ClientConnect
    OnDisconnect = ClientDisconnect
    ReconnectOn.ConnectLost = True
    OnConnectFail = ClientConnectFail
    AutoConnect = True
    OnDataOut = ClientDataOut
    OnDataIn = ClientDataIn
    CryptPlugin = SSLCrypt
    Left = 116
    Top = 140
  end
  object DataRequest: TRtcDataRequest
    AutoSyncEvents = True
    Client = Client
    OnBeginRequest = DataRequestBeginRequest
    OnRepostCheck = DataRequestRepostCheck
    OnResponseAbort = DataRequestResponseAbort
    OnDataReceived = DataRequestDataReceived
    Left = 188
    Top = 140
  end
  object SaveDialog1: TSaveDialog
    Left = 273
    Top = 138
  end
  object SSLCrypt: TSSLClientRtcCryptPlugin
    Versions = [sbSSL3, sbTLS1]
    OnCertificateValidate = SSLCryptCertificateValidate
    CertStorage = CertStorage
    Left = 193
    Top = 209
  end
  object CertStorage: TElMemoryCertStorage
    Options = [csoStrictChainBuilding]
    Left = 192
    Top = 264
    BinaryCertificates = {
      3D03000030820339020103308202F306092A864886F70D010701A08202E40482
      02E0308202DC308006092A864886F70D010706A0803080020100308006092A86
      4886F70D010701301C060A2A864886F70D010C0101300E04087F75F4332704FB
      9902020800A0800482028D96F74272EE2BECC2BC2CE1D62143088F2A725F0C93
      C1FECCA80BF9E2C43D185B6CBF59318387D2A9C79819B1F9A11A266AC8A3A07C
      F76264B25B6C58357C7CF79909797C6D47F336AD8C8FE00920E1701BE7B24DF0
      6651C1091EF2F307D4B90DE18284A3530739B599BD9CB25CAA9B2E7359D862ED
      CBC97A73D931232A619C317F09410218D66CE90B1A4EB5FFD955DDE49027052C
      4CCE8750C004A1E4359EB0A2CD81028B4635A9FA1A43434D1892903A7B9C20B5
      31FFCA6779F39054C08168EA096662A6CD8A64EDB4E4C51F3CCAF53E5DA8A149
      835AF3151C3C7DA7EB96B4728935413BEC3C7BB88130BF541A8EC784CDAF85A8
      5C975143B4D25755991F1F53B91C80C77B4D65771E4E4EC7900BC633DB2A5E59
      FFCD8E094C009F87ED4206A58806D0195BDAB823F16770A3418D9082913E7791
      A54EEE3DA978E5F9DC4B1F147E9443265823EBD4DB90EDBB3092EF81E96D1874
      F540EB34AF2B209AB72958C674A9BF0DCB260F5BACB295D6FFFE653631E275AC
      9C84D24F1AEE568A8078C311F997576020E586C7FC2BA291A48FCD86DE80F171
      F8002FD59C6C7AEF72CF69A71483604C44F974B8ED81BE3E5A6C2994A772E661
      3C5D4E97D76C571415F976B15908C5AFEA016F82D7583417C1F8DE36F3502102
      C5A1FD3C54D5439D897468E352997813713C4335C03EAC9C8DB06B7579AE8D69
      D06D4371056A863E7136DD26FFB37AEC2E6643B128845E7487523F5909CAE1B1
      1A4B182C08FC27643A8A3A3F2E303A20AAB2799ECA27DA403F7AC915A2219D1A
      6B647998DF34601B237DF559EAC7DFE4BB023AF06EC9E9A4802335F7C8E62EA9
      104487C9B9516BE1DB2A787DAFAAB947CD6E128DF4EAEADAFC0393AD0B3657C2
      C5DE9A148803F555B84B76F69B24FE5E88F53B211F842E5A0000000000000000
      0000303D3021300906052B0E03021A05000414C4DC517C4F24269F2A539EFB2D
      B4B0AECEF9E226041496D9E337C3965BCC6903D6C02C51117562C95C72020208
      00}
  end
end