u_test.dfm

C++ builder 环境下编写

object F_Test: TF_Test
  Left = 66
  Top = 92
  Width = 647
  Height = 514
  Caption = 'GPRS IP MODEM与手机通讯示例'
  Color = 14803425
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 4
    Top = 136
    Width = 162
    Height = 12
    Caption = '接收缓冲区(Receive Buffer):'
  end
  object mReceive: TMemo
    Left = 0
    Top = 152
    Width = 639
    Height = 315
    Align = alBottom
    ImeName = '中文 (简体) - 微软拼音'
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 639
    Height = 51
    Align = alTop
    Caption = '初始化参数(Init Modem)'
    TabOrder = 1
    object Label2: TLabel
      Left = 14
      Top = 18
      Width = 36
      Height = 12
      Caption = '串行口'
    end
    object Label3: TLabel
      Left = 208
      Top = 14
      Width = 36
      Height = 12
      Caption = '波特率'
    end
    object Label6: TLabel
      Left = 14
      Top = 32
      Width = 30
      Height = 12
      Caption = '(Com)'
    end
    object Label7: TLabel
      Left = 206
      Top = 29
      Width = 36
      Height = 12
      Caption = '(Baud)'
    end
    object spdInit: TSpeedButton
      Left = 538
      Top = 20
      Width = 83
      Height = 25
      Caption = '初始化串口'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333FFFFFFFFF333333300000000
        0333333777777777F33333330888888803333337FFFFFFF7F333333307777777
        0333333777777777F33333330FFFFFFF03333337F3F3FFF7F33333330F9F000F
        03333337F7377737F33333330FFFFFFF03333337F3333337F33333330FFFFFFF
        03333337F3FFFFF7F33333330F40004F03333337F77777F7F33333330F00000F
        03333337F7F337F7F33333330F00000F03333337F7FFF7F7F33333330F40004F
        03333337F7777737F33333330FFFFFFF03333337FFFFFFF7F333333300000000
        0333333777777777333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = spdInitClick
    end
    object cmbCom: TComboBox
      Left = 67
      Top = 20
      Width = 101
      Height = 20
      ImeName = '中文 (简体) - 微软拼音'
      ItemHeight = 12
      TabOrder = 0
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4')
    end
    object cmbBaud: TComboBox
      Left = 255
      Top = 20
      Width = 101
      Height = 20
      ImeName = '中文 (简体) - 微软拼音'
      ItemHeight = 12
      TabOrder = 1
      Items.Strings = (
        '1200'
        '2400'
        '4800'
        '9600'
        '19200'
        '38400'
        '57600')
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 51
    Width = 639
    Height = 83
    Align = alTop
    Caption = '数据发送区(Send Data)'
    TabOrder = 2
    object Label4: TLabel
      Left = 12
      Top = 24
      Width = 48
      Height = 12
      Caption = '对方号码'
    end
    object Label5: TLabel
      Left = 11
      Top = 49
      Width = 48
      Height = 12
      Caption = '发送内容'
    end
    object Label8: TLabel
      Left = 196
      Top = 22
      Width = 54
      Height = 12
      Caption = '(Tel NO.)'
    end
    object Label9: TLabel
      Left = 440
      Top = 47
      Width = 54
      Height = 12
      Caption = '(Content)'
    end
    object spdSend: TSpeedButton
      Left = 538
      Top = 8
      Width = 84
      Height = 22
      Caption = '发送'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003B3000000000
        003B37F77777777777F73BB09111111110BB3777F3F3F3F3F777311098080808
        10B33777F7373737377313309999999910337F373F3F3F3F3733133309808089
        03337F3373737373733313333099999033337FFFF7FFFFF7FFFFB011B0000000
        BBBB7777777777777777B01110BBBBB0BBBB77F37777777777773011108BB333
        333337F337377F3FFFF33099111BB3010033373F33777F77773F331999100101
        11033373FFF77773337F33300099991999033337773FFFF33373333BB7100199
        113333377377773FF7F333BB333BB7011B33337733377F7777FF3BB3333BB333
        3BB3377333377F33377FBB33333BB33333BB7733333773333377}
      NumGlyphs = 2
      OnClick = spdSendClick
    end
    object spdPause: TSpeedButton
      Left = 539
      Top = 54
      Width = 84
      Height = 22
      Caption = '暂停监测'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FF3FF337F3E0F330030033
        70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
        70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
        70E337F33773773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
      OnClick = spdPauseClick
    end
    object SpeedButton1: TSpeedButton
      Left = 538
      Top = 31
      Width = 85
      Height = 22
      Caption = '接收'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333000003333333333F777773FF333333008F88800
        33333337733333773F33330FFF8F888F033333733333333373F330DEFFF8F8FE
        D03337F33333333337F330DDEFFFFFEDD0333733333FFF33373F0BBFDE000EDF
        BB037F33337773F3337F0AABB08880BBAA037F3337F3F7F3337F0EEAA08080AA
        EE037F3337F737F3337F0AABB08880BBAA037F33373FF733337F0BBFDE000EDB
        BB0373F333777333337330DDEFFFFFEDD03337F33333333337F330DEF8F8FFFE
        D033373F333333333733330FFF8F8FFF03333373FF33333F733333300FF8F800
        3333333773FFFF77333333333000003333333333377777333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object edtTel: TEdit
      Left = 67
      Top = 20
      Width = 121
      Height = 20
      ImeName = '中文 (简体) - 微软拼音'
      MaxLength = 20
      TabOrder = 0
    end
    object edtSend: TEdit
      Left = 67
      Top = 45
      Width = 370
      Height = 20
      ImeName = '中文 (简体) - 微软拼音'
      MaxLength = 100
      TabOrder = 1
    end
  end
  object sbStatus: TStatusBar
    Left = 0
    Top = 467
    Width = 639
    Height = 20
    Color = 14803425
    Panels = <
      item
        Text = '当前状态'
        Width = 65
      end
      item
        Width = 120
      end
      item
        Text = '通讯状态'
        Width = 65
      end
      item
        Width = 120
      end
      item
        Text = '信号强度'
        Width = 65
      end
      item
        Width = 65
      end>
    SimplePanel = False
  end
  object Comm1: TComm
    HwHandShaking = hhRTSCTS
    SwHandShaking = shXonXoff
    RThreshold = 1
    OnReceiveData = Comm1ReceiveData
    Left = 411
    Top = 12
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 379
    Top = 12
  end
end