mainform.dfm

著名的SecureBlackBox控件完整源码

object frmMain: TfrmMain
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = 'DTLS chat server'
  ClientHeight = 473
  ClientWidth = 393
  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 gbConnProps: TGroupBox
    Left = 0
    Top = 0
    Width = 393
    Height = 121
    Align = alTop
    Caption = 'Connection properties'
    TabOrder = 0
    object lblPort: TLabel
      Left = 16
      Top = 24
      Width = 24
      Height = 13
      Caption = 'Port:'
    end
    object lblUsername: TLabel
      Left = 88
      Top = 24
      Width = 77
      Height = 13
      Caption = 'Chat username:'
    end
    object lblServerCert: TLabel
      Left = 16
      Top = 72
      Width = 87
      Height = 13
      Caption = 'Server certificate:'
    end
    object lblSelectCert: TLabel
      Left = 112
      Top = 72
      Width = 122
      Height = 13
      Cursor = crHandPoint
      Caption = '<no certificate selected>'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = lblSelectCertClick
    end
    object editPort: TEdit
      Left = 16
      Top = 40
      Width = 57
      Height = 21
      TabOrder = 0
      Text = '4433'
    end
    object editUsername: TEdit
      Left = 88
      Top = 40
      Width = 97
      Height = 21
      TabOrder = 1
      Text = 'server'
    end
    object btnListen: TButton
      Left = 304
      Top = 40
      Width = 75
      Height = 25
      Caption = 'Listen'
      TabOrder = 2
      OnClick = btnListenClick
    end
    object cbUseClientAuth: TCheckBox
      Left = 16
      Top = 96
      Width = 185
      Height = 17
      Caption = 'Use client authentication'
      TabOrder = 3
    end
  end
  object pLog: TPanel
    Left = 0
    Top = 348
    Width = 393
    Height = 125
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object lvLog: TListView
      Left = 0
      Top = 0
      Width = 393
      Height = 125
      Align = alClient
      Columns = <
        item
          Caption = 'Time'
          Width = 80
        end
        item
          Caption = 'Event'
          Width = 280
        end>
      ReadOnly = True
      RowSelect = True
      SmallImages = imgListLog
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object pSendBox: TPanel
    Left = 0
    Top = 307
    Width = 393
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object editTextToSend: TEdit
      Left = 8
      Top = 8
      Width = 297
      Height = 21
      TabOrder = 0
    end
    object btnSend: TButton
      Left = 312
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Send'
      Enabled = False
      TabOrder = 1
      OnClick = btnSendClick
    end
  end
  object pClient: TPanel
    Left = 0
    Top = 121
    Width = 393
    Height = 186
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object lvChatData: TListView
      Left = 0
      Top = 0
      Width = 393
      Height = 186
      Align = alClient
      Columns = <
        item
          Caption = 'User'
          Width = 80
        end
        item
          Caption = 'Message'
          Width = 270
        end>
      SmallImages = imgListChat
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object Server: TElDTLSServer
    Options = []
    OnSend = ServerSend
    OnReceive = ServerReceive
    OnData = ServerData
    OnOpenConnection = ServerOpenConnection
    OnCertificateValidate = ServerCertificateValidate
    OnCiphersNegotiated = ServerCiphersNegotiated
    OnError = ServerError
    Enabled = True
    ClientAuthentication = False
    CertStorage = CertStorage
    AbortOnMissingSRPName = False
    OnCloseConnection = ServerCloseConnection
    UseClientVerification = True
    DatagramSize = 2048
    SplitLongData = False
    UseRetransmissionTimer = True
    TimerValue = 1000
    AutoAdjustTimerValue = True
    Left = 192
    Top = 40
  end
  object CertStorage: TElMemoryCertStorage
    Options = [csoStrictChainBuilding]
    Left = 224
    Top = 40
  end
  object OpenDialog: TOpenDialog
    Left = 256
    Top = 40
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerTimer
    Left = 288
    Top = 40
  end
  object imgListLog: TImageList
    Left = 248
    Top = 412
    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