mainform.dfm

著名的SecureBlackBox控件完整源码

object frmMain: TfrmMain
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = 'DTLS chat client'
  ClientHeight = 540
  ClientWidth = 423
  Color = clBtnFace
  Font.Charset = RUSSIAN_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object gbConnProps: TGroupBox
    Left = 0
    Top = 0
    Width = 423
    Height = 185
    Align = alTop
    Caption = 'Connection properties'
    TabOrder = 0
    object lblHost: TLabel
      Left = 16
      Top = 24
      Width = 77
      Height = 13
      Caption = 'Server address:'
    end
    object lblPort: TLabel
      Left = 184
      Top = 24
      Width = 59
      Height = 13
      Caption = 'Server port:'
    end
    object lblUsername: TLabel
      Left = 16
      Top = 72
      Width = 77
      Height = 13
      Caption = 'Chat username:'
    end
    object lblCertificate: TLabel
      Left = 16
      Top = 120
      Width = 85
      Height = 13
      Caption = 'Client certificate: '
    end
    object lblSelectCert: TLabel
      Left = 104
      Top = 120
      Width = 122
      Height = 13
      Cursor = crHandPoint
      Caption = '<no certificate selected>'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = lblSelectCertClick
    end
    object editHost: TEdit
      Left = 16
      Top = 40
      Width = 161
      Height = 21
      TabOrder = 0
      Text = '192.168.0.1'
    end
    object editPort: TEdit
      Left = 184
      Top = 40
      Width = 57
      Height = 21
      TabOrder = 1
      Text = '4433'
    end
    object editUsername: TEdit
      Left = 16
      Top = 88
      Width = 97
      Height = 21
      TabOrder = 2
      Text = 'client'
    end
    object btnConnect: TButton
      Left = 336
      Top = 144
      Width = 75
      Height = 25
      Caption = 'Connect'
      TabOrder = 3
      OnClick = btnConnectClick
    end
  end
  object pBottom: TPanel
    Left = 0
    Top = 429
    Width = 423
    Height = 111
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object lvLog: TListView
      Left = 0
      Top = 0
      Width = 423
      Height = 111
      Align = alClient
      Columns = <
        item
          Caption = 'Time'
          Width = 80
        end
        item
          Caption = 'Event'
          Width = 300
        end>
      ReadOnly = True
      RowSelect = True
      SmallImages = imgListLog
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object pClient: TPanel
    Left = 0
    Top = 185
    Width = 423
    Height = 244
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object pSendBox: TPanel
      Left = 0
      Top = 208
      Width = 423
      Height = 36
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object editTextToSend: TEdit
        Left = 8
        Top = 8
        Width = 329
        Height = 21
        TabOrder = 0
      end
      object btnSend: TButton
        Left = 344
        Top = 8
        Width = 75
        Height = 25
        Caption = 'Send'
        Enabled = False
        TabOrder = 1
        OnClick = btnSendClick
      end
    end
    object lvChatData: TListView
      Left = 0
      Top = 0
      Width = 423
      Height = 208
      Align = alClient
      Columns = <
        item
          Caption = 'User'
          Width = 80
        end
        item
          Caption = 'Message'
          Width = 300
        end>
      SmallImages = imgListChat
      TabOrder = 1
      ViewStyle = vsReport
    end
  end
  object Client: TElDTLSClient
    Options = []
    OnSend = ClientSend
    OnReceive = ClientReceive
    OnData = ClientData
    OnOpenConnection = ClientOpenConnection
    OnCertificateValidate = ClientCertificateValidate
    OnCiphersNegotiated = ClientCiphersNegotiated
    OnError = ClientError
    OnCloseConnection = ClientCloseConnection
    OnCertificateNeededEx = ClientCertificateNeededEx
    DatagramSize = 2048
    SplitLongData = False
    UseRetransmissionTimer = True
    TimerValue = 1000
    AutoAdjustTimerValue = True
    Left = 264
    Top = 40
  end
  object CertStorage: TElMemoryCertStorage
    Options = [csoStrictChainBuilding]
    Left = 296
    Top = 40
  end
  object OpenDialog: TOpenDialog
    Filter = 'PKCS #12 certificate (*.pfx)|*.pfx|All Files (*.*)|*.*'
    Left = 328
    Top = 40
  end
  object imgListLog: TImageList
    Left = 184
    Top = 461
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000FFE6
      B600FFE6B600FFE6B600FFE6B600FFE6B6000000000000000000FFE6B6000000
      0000000000000000000000000000000000000000000000000000000000000000
      FF000000FF000000FF000000FF000000FF0000000000000000000000FF000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000FFE6
      B600FFE6B600FFE6B600FFE6B600FFE6B600FFE6B600FFE6B600FFE6B6000000
      0000FFE6B6000000000000000000000000000000000000000000000000000000
      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
      00000000FF000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000FFE6
      B6000000000000000000000000000000000000000000FFE6B600FFE6B6000000