unit1.dfm

gprs协议实现

object Form1: TForm1
  Left = 245
  Top = 112
  Width = 660
  Height = 555
  VertScrollBar.Smooth = True
  BorderIcons = [biSystemMenu]
  Caption = 'gprs '#27979#35797#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 464
    Width = 72
    Height = 16
    Caption = #21457#36865#25968#25454'        '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 0
    Top = 496
    Width = 69
    Height = 16
    Caption = #25509#25910#25968#25454'       '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 496
    Top = 0
    Width = 66
    Height = 20
    Caption = 'remote ip'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 496
    Top = 48
    Width = 82
    Height = 20
    Caption = 'remote port'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 496
    Top = 96
    Width = 48
    Height = 20
    Caption = 'local ip'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 496
    Top = 144
    Width = 65
    Height = 20
    Caption = 'local Port'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 376
    Top = 200
    Width = 97
    Height = 25
    Caption = 'ATD*99***1#'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 376
    Top = 8
    Width = 97
    Height = 25
    Caption = #35774#32622#20018#21475
    TabOrder = 1
    OnClick = Button2Click
  end
  object RichEdit1: TRichEdit
    Left = 8
    Top = 8
    Width = 353
    Height = 337
    Color = clScrollBar
    Font.Charset = GB2312_CHARSET
    Font.Color = clHotLight
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PlainText = True
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Button4: TButton
    Left = 376
    Top = 232
    Width = 97
    Height = 25
    Caption = #25320#25171#30005#35805
    TabOrder = 3
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 376
    Top = 40
    Width = 97
    Height = 25
    Caption = #21516#27493#27874#29305#29575
    TabOrder = 4
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 376
    Top = 104
    Width = 97
    Height = 25
    Caption = #25171#24320#26469#30005#26174#31034
    TabOrder = 5
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 376
    Top = 72
    Width = 97
    Height = 25
    Caption = #20851#38381#22238#26174
    TabOrder = 6
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 376
    Top = 384
    Width = 97
    Height = 25
    Caption = #28165#38500#26174#31034
    TabOrder = 7
    OnClick = Button8Click
  end
  object Button9: TButton
    Left = 376
    Top = 167
    Width = 97
    Height = 25
    Caption = 'GPRS'#20381#38468
    TabOrder = 8
    OnClick = Button9Click
  end
  object Button10: TButton
    Left = 376
    Top = 136
    Width = 97
    Height = 25
    Caption = #23450#20041#19978#19979#25991
    TabOrder = 9
    OnClick = Button10Click
  end
  object Edit1: TEdit
    Left = 80
    Top = 464
    Width = 385
    Height = 21
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object Edit2: TEdit
    Left = 80
    Top = 496
    Width = 385
    Height = 21
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
  end
  object RichEdit2: TRichEdit
    Left = 0
    Top = 352
    Width = 361
    Height = 105
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 12
  end
  object Edit3: TEdit
    Left = 376
    Top = 264
    Width = 97
    Height = 21
    MaxLength = 15
    TabOrder = 13
    Text = '[phone]'
  end
  object Button3: TButton
    Left = 376
    Top = 288
    Width = 97
    Height = 25
    Caption = '+++'
    TabOrder = 14
    OnClick = Button3Click
  end
  object Button11: TButton
    Left = 376
    Top = 320
    Width = 97
    Height = 25
    Caption = 'ATO'
    TabOrder = 15
    OnClick = Button11Click
  end
  object Button12: TButton
    Left = 376
    Top = 352
    Width = 97
    Height = 25
    Caption = #25346#26029
    TabOrder = 16
    OnClick = Button12Click
  end
  object Edit4: TEdit
    Left = 496
    Top = 24
    Width = 121
    Height = 21
    MaxLength = 15
    TabOrder = 17
  end
  object Edit5: TEdit
    Left = 496
    Top = 72
    Width = 121
    Height = 21
    MaxLength = 15
    TabOrder = 18
    Text = '9000'
  end
  object Button13: TButton
    Left = 496
    Top = 200
    Width = 113
    Height = 25
    Caption = #21457#36865'echo'#21253
    TabOrder = 19
    OnClick = Button13Click
  end
  object Edit7: TEdit
    Left = 496
    Top = 168
    Width = 121
    Height = 21
    MaxLength = 15
    TabOrder = 20
    Text = '23'
  end
  object Edit6: TEdit
    Left = 496
    Top = 120
    Width = 121
    Height = 21
    MaxLength = 15
    TabOrder = 21
  end
  object Button14: TButton
    Left = 496
    Top = 304
    Width = 113
    Height = 25
    Caption = #35774#32622#30701#28040#24687#20013#24515
    TabOrder = 22
    OnClick = Button14Click
  end
  object Button15: TButton
    Left = 496
    Top = 368
    Width = 113
    Height = 25
    Caption = #21457#36865#30701#28040#24687
    TabOrder = 23
    OnClick = Button15Click
  end
  object Button16: TButton
    Left = 496
    Top = 432
    Width = 113
    Height = 25
    Caption = #35835#21462#30701#28040#24687
    TabOrder = 24
    OnClick = Button16Click
  end
  object Button17: TButton
    Left = 496
    Top = 336
    Width = 113
    Height = 25
    Caption = #35774#32622#20026#25991#26412#27169#24335
    TabOrder = 25
    OnClick = Button17Click
  end
  object Edit8: TEdit
    Left = 496
    Top = 272
    Width = 121
    Height = 21
    MaxLength = 15
    TabOrder = 26
    Text = '[phone]'
  end
  object Button18: TButton
    Left = 496
    Top = 400
    Width = 113
    Height = 25
    Caption = #21457#36865#30701#28040#24687#20869#23481
    TabOrder = 27
    OnClick = Button18Click
  end
  object Button19: TButton
    Left = 496
    Top = 496
    Width = 113
    Height = 25
    Caption = #21462#26412#26426#21495#30721
    TabOrder = 28
    OnClick = Button19Click
  end
  object Button20: TButton
    Left = 496
    Top = 464
    Width = 113
    Height = 25
    Caption = #36873#21462#30005#35805#26412
    TabOrder = 29
    OnClick = Button20Click
  end
  object Button21: TButton
    Left = 376
    Top = 432
    Width = 97
    Height = 25
    Caption = 'AT+CRC=1'
    TabOrder = 30
    OnClick = Button21Click
  end
  object Button22: TButton
    Left = 496
    Top = 232
    Width = 113
    Height = 25
    Caption = 'ping local'
    TabOrder = 31
  end
  object ComPort1: TComPort
    BaudRate = br9600
    Port = 'COM1'
    Parity.Bits = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
    Buffer.InputSize = 2048
    Buffer.OutputSize = 2048
    FlowControl.OutCTSFlow = False
    FlowControl.OutDSRFlow = False
    FlowControl.ControlDTR = dtrDisable
    FlowControl.ControlRTS = rtsDisable
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    OnRing = ComPort1Ring
    OnRLSDChange = ComPort1RLSDChange
    Left = 288
    Top = 40
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 50
    OnTimer = Timer1Timer
    Left = 288
    Top = 112
  end
  object UdpSocket1: TUdpSocket
    Active = True
    LocalPort = '23'
    OnReceive = UdpSocket1Receive
    Left = 288
    Top = 72
  end
end