unit1.dfm

用串口通信实现手机短信的收发的例子(带源码)

object FormSms: TFormSms
  Left = 209
  Top = 119
  BorderStyle = bsDialog
  Caption = #30701#20449#21457#36865#19982#25509#25910
  ClientHeight = 473
  ClientWidth = 577
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ButtonSend: TButton
    Left = 112
    Top = 440
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 0
    OnClick = ButtonSendClick
  end
  object ButtonExit: TButton
    Left = 376
    Top = 440
    Width = 73
    Height = 25
    Caption = #36864#20986
    TabOrder = 1
    OnClick = ButtonExitClick
  end
  object ButtonReceive: TButton
    Left = 200
    Top = 440
    Width = 75
    Height = 25
    Caption = #25509#25910
    TabOrder = 2
    OnClick = ButtonReceiveClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 561
    Height = 121
    Caption = #21457#36865#20449#24687
    TabOrder = 3
    object Label1: TLabel
      Left = 15
      Top = 20
      Width = 60
      Height = 13
      Caption = #30446#26631#30005#35805#65306
    end
    object Label2: TLabel
      Left = 16
      Top = 67
      Width = 60
      Height = 13
      Caption = #21457#36865#20869#23481#65306
    end
    object Label4: TLabel
      Left = 15
      Top = 44
      Width = 60
      Height = 13
      Caption = #30701#20449#20013#24515#65306
    end
    object EditPhone: TEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 0
      Text = '13813396996'
    end
    object EditCenter: TEdit
      Left = 80
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 1
      Text = '8613800250500'
    end
    object MemoSendContent: TMemo
      Left = 80
      Top = 64
      Width = 473
      Height = 49
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 136
    Width = 561
    Height = 297
    Caption = #25509#25910#20449#24687
    TabOrder = 4
    object Label5: TLabel
      Left = 16
      Top = 20
      Width = 60
      Height = 13
      Caption = #25509#25910#20869#23481#65306
    end
    object MemoReceiveSms: TMemo
      Left = 80
      Top = 16
      Width = 281
      Height = 273
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object MemoReceiveData: TMemo
      Left = 368
      Top = 16
      Width = 185
      Height = 273
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object ButtonDeCode: TButton
    Left = 288
    Top = 440
    Width = 75
    Height = 25
    Caption = #35299#30721
    Enabled = False
    TabOrder = 5
    OnClick = ButtonDeCodeClick
  end
  object Comm: TComm
    CommName = 'COM4'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = CommReceiveData
    Left = 528
    Top = 24
  end
end