unit1.dfm

著名的SecureBlackBox控件完整源码

object Form1: TForm1
  Left = 306
  Top = 236
  Width = 538
  Height = 533
  Caption = 'Client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label5: TLabel
    Left = 0
    Top = 0
    Width = 530
    Height = 25
    Align = alTop
    Alignment = taCenter
    AutoSize = False
    Caption = #39'kbmMW Freeware'#39' client demo'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object PageControl2: TPageControl
    Left = 0
    Top = 25
    Width = 530
    Height = 481
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet2: TTabSheet
      Caption = 'Standard services like the inventory service'
      object Label1: TLabel
        Left = 88
        Top = 0
        Width = 84
        Height = 13
        Caption = 'Connect to server'
      end
      object Label2: TLabel
        Left = 88
        Top = 32
        Width = 109
        Height = 13
        Caption = 'Disconnect from server'
      end
      object Label6: TLabel
        Left = 208
        Top = 64
        Width = 297
        Height = 57
        AutoSize = False
        Caption = 
          'You can use the simple client or the inventory client to access ' +
          'the inventory service on the server.'#13#10'In this sample, only the S' +
          'imple client is actually used.'
        WordWrap = True
      end
      object Button1: TButton
        Left = 8
        Top = 0
        Width = 75
        Height = 25
        Caption = 'Connect'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 8
        Top = 32
        Width = 75
        Height = 25
        Caption = 'Disconnect'
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 8
        Top = 64
        Width = 193
        Height = 25
        Caption = 'Request Inventory 100 times'
        TabOrder = 2
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 8
        Top = 96
        Width = 193
        Height = 25
        Caption = 'Request abstract for inventory'
        TabOrder = 3
        OnClick = Button4Click
      end
      object lbDebug: TListBox
        Left = 0
        Top = 128
        Width = 522
        Height = 325
        Anchors = [akLeft, akTop, akRight, akBottom]
        ItemHeight = 13
        TabOrder = 4
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'Performance'
      ImageIndex = 2
      object Button6: TButton
        Left = 8
        Top = 32
        Width = 153
        Height = 25
        Caption = 'Call inventory 10000 times'
        TabOrder = 0
        OnClick = Button6Click
      end
      object mPerformancelog: TMemo
        Left = 0
        Top = 64
        Width = 513
        Height = 433
        TabOrder = 1
      end
    end
  end
  object kbmMWSimpleClient1: TkbmMWSimpleClient
    Transport = kbmMWTCPIPIndyClientTransport1
    Left = 72
    Top = 208
  end
  object kbmMWTCPIPIndyClientTransport1: TkbmMWTCPIPIndyClientTransport
    Active = False
    Port = 3000
    Host = '127.0.0.1'
    StreamFormat = 'STANDARD'
    VerifyTransfer = True
    MaxRetries = 10
    MaxRetriesAlternative = 0
    RequestTimeout = 30
    Plugin = ElkbmMWIndy9Plugin1
    MinClientPort = 0
    MaxClientPort = 0
    ConnectTimeout = 60
    Left = 264
    Top = 320
  end
  object kbmMWInventoryClient1: TkbmMWInventoryClient
    Transport = kbmMWTCPIPIndyClientTransport1
    Inventory.Strings = (
      'KBMMW_INVENTORY'
      'KBMMW_QUERY')
    SelectedService = 'KBMMW_QUERY'
    InventoryService = 'KBMMW_INVENTORY'
    InventoryServiceVersion = 'kbmMW_1.0'
    Left = 224
    Top = 216
  end
  object ElkbmMWIndy9Plugin1: TElkbmMWIndy9Plugin
    ClientHandler = ElIndySSLIOHandlerSocket1
    Left = 68
    Top = 281
  end
  object ElIndySSLIOHandlerSocket1: TElIndySSLIOHandlerSocket
    SSLOptions.Method = sslvSSLv2
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    Versions = [sbSSL2, sbSSL3, sbTLS1]
    Left = 68
    Top = 345
  end
end