mainform.dfm

来自「著名的SecureBlackBox控件完整源码」· DFM 代码 · 共 593 行 · 第 1/2 页

object frmMain: TfrmMain
  Left = 247
  Top = 208
  Width = 730
  Height = 573
  Caption = 'SSH Local Port Forwarding Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object gbConnectOptions: TGroupBox
    Left = 0
    Top = 0
    Width = 209
    Height = 539
    Align = alLeft
    Caption = 'Connections options'
    TabOrder = 0
    object lblSSHHost: TLabel
      Left = 8
      Top = 40
      Width = 22
      Height = 13
      Caption = 'Host'
    end
    object lblSSHPort: TLabel
      Left = 152
      Top = 40
      Width = 19
      Height = 13
      Caption = 'Port'
    end
    object lblSSHUserName: TLabel
      Left = 8
      Top = 88
      Width = 48
      Height = 13
      Caption = 'Username'
    end
    object lblSSHPassword: TLabel
      Left = 112
      Top = 88
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object lblLocalServerPort: TLabel
      Left = 8
      Top = 168
      Width = 47
      Height = 13
      Caption = 'Local port'
    end
    object lblRemoteHostPort: TLabel
      Left = 8
      Top = 216
      Width = 102
      Height = 13
      Caption = 'Remote host and port'
    end
    object pnlSSHParameters: TPanel
      Left = 8
      Top = 16
      Width = 193
      Height = 17
      BevelOuter = bvLowered
      Caption = 'SSH'
      Color = clAppWorkSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object edtSSHHost: TEdit
      Left = 8
      Top = 56
      Width = 137
      Height = 21
      TabOrder = 1
      Text = '127.0.0.1'
    end
    object edtSSHPort: TEdit
      Left = 152
      Top = 56
      Width = 49
      Height = 21
      TabOrder = 2
      Text = '22'
    end
    object edtSSHUsername: TEdit
      Left = 8
      Top = 104
      Width = 89
      Height = 21
      TabOrder = 3
    end
    object edtSSHPassword: TEdit
      Left = 112
      Top = 104
      Width = 89
      Height = 21
      PasswordChar = '*'
      TabOrder = 4
    end
    object pnlForwardingParameters: TPanel
      Left = 8
      Top = 144
      Width = 193
      Height = 17
      BevelOuter = bvLowered
      Caption = 'Forwarding'
      Color = clAppWorkSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object edtLocalServerPort: TEdit
      Left = 8
      Top = 184
      Width = 57
      Height = 21
      TabOrder = 6
      Text = '8871'
    end
    object edtRemoteHost: TEdit
      Left = 8
      Top = 232
      Width = 137
      Height = 21
      TabOrder = 7
      Text = 'www.google.com'
    end
    object edtRemotePort: TEdit
      Left = 152
      Top = 232
      Width = 49
      Height = 21
      TabOrder = 8
      Text = '80'
    end
    object btnStart: TButton
      Left = 64
      Top = 272
      Width = 75
      Height = 25
      Caption = 'Start'
      Default = True
      TabOrder = 9
      OnClick = btnStartClick
    end
  end
  object PanelClient: TPanel
    Left = 209
    Top = 0
    Width = 513
    Height = 539
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter: TSplitter
      Left = 0
      Top = 438
      Width = 513
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object lvEvents: TListView
      Left = 0
      Top = 441
      Width = 513
      Height = 98
      Align = alBottom
      Columns = <
        item
          Width = 25
        end
        item
          Caption = 'Timestamp'
          Width = 150
        end
        item
          Caption = 'Event'
          Width = 300
        end>
      LargeImages = ilEvents
      ReadOnly = True
      RowSelect = True
      SmallImages = ilEvents
      TabOrder = 0
      ViewStyle = vsReport
    end
    object PanelStatus: TPanel
      Left = 0
      Top = 0
      Width = 513
      Height = 438
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object lvConnections: TListView
        Left = 0
        Top = 0
        Width = 513
        Height = 438
        Align = alClient
        Columns = <
          item
            Width = 25
          end
          item
            Caption = 'Address'
            Width = 120
          end
          item
            Caption = 'Sent'
            Width = 70
          end
          item
            Caption = 'Received'
            Width = 70
          end
          item
            Caption = 'State'
            Width = 100
          end>
        LargeImages = ilConnections
        ReadOnly = True
        RowSelect = True
        SmallImages = ilConnections
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    Left = 264
    Top = 56
  end
  object SSHClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = SSHClientSocketConnect
    OnDisconnect = SSHClientSocketDisconnect
    OnRead = SSHClientSocketRead
    Left = 320
    Top = 216
  end
  object ElSSHClient: TElSSHClient
    SoftwareName = 'EldoS_SSH'
    ForceCompression = False
    CompressionLevel = 6
    AuthenticationTypes = 22
    CloseIfNoActiveTunnels = False
    OnSend = ElSSHClientSend
    OnReceive = ElSSHClientReceive
    OnOpenConnection = ElSSHClientOpenConnection
    OnCloseConnection = ElSSHClientCloseConnection
    OnDebugData = ElSSHClientDebugData
    OnError = ElSSHClientError
    Versions = [sbSSH1, sbSSH2]
    TunnelList = SSHTunnelList
    OnKeyValidate = ElSSHClientKeyValidate
    OnAuthenticationSuccess = ElSSHClientAuthenticationSuccess
    OnAuthenticationFailed = ElSSHClientAuthenticationFailed
    Left = 416
    Top = 216
  end
  object ElLocalPortForwardSSHTunnel: TElLocalPortForwardSSHTunnel
    AutoOpen = True
    TunnelList = SSHTunnelList
    OnOpen = ElLocalPortForwardSSHTunnelOpen
    OnClose = ElLocalPortForwardSSHTunnelClose
    OnError = ElLocalPortForwardSSHTunnelError
    Port = 0