mainform.xfm

著名的SecureBlackBox控件完整源码

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 360
  Height = 249
  VertScrollBar.Range = 241
  HorzScrollBar.Range = 355
  ActiveControl = Button1
  Caption = 'Secure HTTP Client'
  Color = clBackground
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object Button1: TButton
    Left = 280
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 8
    Top = 8
    Width = 209
    Height = 21
    TabOrder = 1
    Text = '127.0.0.1'
  end
  object Edit2: TEdit
    Left = 224
    Top = 8
    Width = 49
    Height = 21
    TabOrder = 2
    Text = '4433'
  end
  object Memo1: TMemo
    Left = 8
    Top = 40
    Width = 345
    Height = 201
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object TcpClient1: TTcpClient
    RemoteHost = '127.0.0.1'
    RemotePort = '4433'
    OnConnect = TcpClient1Connect
    OnDisconnect = TcpClient1Disconnect
    OnError = TcpClient1Error
    Left = 328
    Top = 72
  end
  object ElSecureClient1: TElSecureClient
    OnSend = ElSecureClient1Send
    OnReceive = ElSecureClient1Receive
    OnData = ElSecureClient1Data
    OnCloseConnection = ElSecureClient1CloseConnection
    OnOpenConnection = ElSecureClient1OpenConnection
    OnCertificateValidate = ElSecureClient1CertificateValidate
    Enabled = False
    Left = 328
    Top = 40
  end
end