main.dfm

采用cmpp2协议编写

object frmMain: TfrmMain
  Left = 225
  Top = 153
  Width = 697
  Height = 484
  Caption = #19996#36719'CMPP'#31616#21333#25910#21457#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 16
    Top = 136
    Width = 657
    Height = 305
    Ctl3D = False
    Lines.Strings = (
      'Memo1')
    ParentCtl3D = False
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 16
    Top = 16
    Width = 657
    Height = 38
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'Panel1'
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object Label5: TLabel
      Left = 264
      Top = 12
      Width = 28
      Height = 13
      Caption = 'SP ID'
    end
    object Label6: TLabel
      Left = 384
      Top = 12
      Width = 68
      Height = 13
      Caption = 'Shared Secret'
    end
    object Label7: TLabel
      Left = 520
      Top = 12
      Width = 75
      Height = 13
      Caption = 'Source Address'
    end
    object Label2: TLabel
      Left = 8
      Top = 11
      Width = 39
      Height = 13
      Caption = 'serverIP'
    end
    object Label3: TLabel
      Left = 160
      Top = 11
      Width = 24
      Height = 13
      Caption = #31471#21475
    end
    object eSpid: TEdit
      Left = 304
      Top = 8
      Width = 73
      Height = 19
      TabOrder = 0
      Text = '912345'
    end
    object eShSe: TEdit
      Left = 456
      Top = 8
      Width = 57
      Height = 19
      TabOrder = 1
      Text = '912345'
    end
    object eSouAdd: TEdit
      Left = 600
      Top = 8
      Width = 49
      Height = 19
      TabOrder = 2
      Text = '01234'
    end
    object eIP: TEdit
      Left = 48
      Top = 8
      Width = 97
      Height = 19
      TabOrder = 3
      Text = '127.0.0.1'
    end
    object Edit1: TEdit
      Left = 200
      Top = 8
      Width = 49
      Height = 19
      TabOrder = 4
      Text = '7890'
    end
  end
  object Panel2: TPanel
    Left = 16
    Top = 72
    Width = 657
    Height = 45
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = '   '
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #25163#26426#21495
    end
    object bLogout: TButton
      Left = 568
      Top = 8
      Width = 73
      Height = 25
      Caption = 'logout'
      TabOrder = 0
      OnClick = bLogoutClick
    end
    object bSubmit: TButton
      Left = 360
      Top = 8
      Width = 73
      Height = 25
      Caption = 'submit'
      TabOrder = 1
      OnClick = bSubmitClick
    end
    object bActiveTest: TButton
      Left = 464
      Top = 8
      Width = 73
      Height = 25
      Caption = 'ActiveTest'
      TabOrder = 2
      OnClick = bActiveTestClick
    end
    object eTel: TEdit
      Left = 64
      Top = 12
      Width = 97
      Height = 19
      TabOrder = 3
      Text = '13912345678'
    end
    object bLogin: TButton
      Left = 256
      Top = 8
      Width = 73
      Height = 25
      Caption = 'login'
      TabOrder = 4
      OnClick = bLoginClick
    end
  end
  object Cmpp_Client: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 7891
    OnRead = Cmpp_ClientRead
    OnError = Cmpp_ClientError
    Left = 208
    Top = 80
  end
end