main.dfm

提取铁路的GPS数据通过串口

      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 6
      Text = '0'
    end
    object Edit3: TEdit
      Left = 424
      Top = 144
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 7
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 185
    Width = 568
    Height = 56
    Align = alClient
    ParentColor = True
    TabOrder = 1
    DesignSize = (
      568
      56)
    object Label1: TLabel
      Left = 112
      Top = 26
      Width = 78
      Height = 12
      Caption = #33258#21160#37319#38598#21608#26399':'
      Visible = False
    end
    object Label2: TLabel
      Left = 272
      Top = 26
      Width = 24
      Height = 12
      Caption = #27627#31186
      Visible = False
    end
    object SpeedButton1: TSpeedButton
      Left = 5
      Top = 91
      Width = 22
      Height = 20
      Hint = #22266#23450#31383#20307
      AllowAllUp = True
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000040404FF040404FF00000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000040404FF040404FF040404FF000000000000
        00000000000000000000040404FF040404FF0000000000000000000000000000
        0000000000000000000000000000040404FF868686FF040404FF040404FF0404
        04FF040404FF040404FF040404FF040404FF0000000000000000000000000000
        0000000000000000000000000000040404FF868686FF040404FF040404FF0404
        04FF040404FF040404FF868686FF040404FF0000000000000000000000000000
        0000040404FF040404FF040404FF040404FFC0C0C0FF868686FF040404FF8686
        86FF868686FF040404FFC0C0C0FF040404FF0000000000000000000000000000
        0000868686FF868686FF868686FF040404FFC0C0C0FFC0C0C0FF868686FFC0C0
        C0FFC0C0C0FF868686FFC0C0C0FF040404FF0000000000000000000000000000
        0000000000000000000000000000040404FFC0C0C0FFFFFFFFFF868686FFFFFF
        FFFFFFFFFFFF868686FFFFFFFFFF040404FF0000000000000000000000000000
        0000000000000000000000000000040404FFC0C0C0FFFFFFFFFF040404FF0404
        04FF040404FF040404FFFFFFFFFF040404FF0000000000000000000000000000
        0000000000000000000000000000040404FFFFFFFFFF040404FF000000000000
        00000000000000000000040404FF040404FF0000000000000000000000000000
        0000000000000000000000000000040404FF040404FF00000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000}
      ParentShowHint = False
      ShowHint = True
      Visible = False
    end
    object cbAutoSend: TCheckBox
      Left = 24
      Top = 22
      Width = 81
      Height = 17
      Caption = #33258#21160#21457#36865
      TabOrder = 0
      Visible = False
      OnClick = cbAutoSendClick
    end
    object SpinEdit1: TSpinEdit
      Left = 194
      Top = 22
      Width = 73
      Height = 21
      MaxValue = 100000000
      MinValue = 1
      TabOrder = 2
      Value = 1000
      Visible = False
      OnChange = SpinEdit1Change
    end
    object btnSend: TButton
      Left = 325
      Top = 12
      Width = 90
      Height = 30
      Caption = #37319#38598#25968#25454
      Enabled = False
      TabOrder = 1
      OnClick = btnSendClick
    end
    object edStatus: TEdit
      Left = 27
      Top = 91
      Width = 240
      Height = 20
      TabStop = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ParentColor = True
      ReadOnly = True
      TabOrder = 5
      Text = ' STATUS:COM Port Closed'
      Visible = False
    end
    object edRx: TEdit
      Left = 272
      Top = 91
      Width = 100
      Height = 20
      TabStop = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ParentColor = True
      ReadOnly = True
      TabOrder = 6
      Text = 'Rx:0'
      Visible = False
    end
    object edTx: TEdit
      Left = 376
      Top = 91
      Width = 100
      Height = 20
      TabStop = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ParentColor = True
      ReadOnly = True
      TabOrder = 7
      Text = 'Tx:0'
      Visible = False
    end
    object Button5: TButton
      Left = 480
      Top = 91
      Width = 65
      Height = 21
      Caption = #35745#25968#28165#38646
      TabOrder = 3
      Visible = False
      OnClick = Button5Click
    end
    object BitBtn1: TBitBtn
      Left = 443
      Top = 11
      Width = 90
      Height = 30
      Anchors = [akRight]
      Caption = #36864#20986
      TabOrder = 4
      OnClick = BitBtn1Click
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF2FFFFF
        FFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFFFFFFF2FFFFFFFDF8596
        DCFF0F30B5FF1636B8FF1A39B8FF1A39B7FF1839BBFF1739B9FF1337BDFF0D35
        C0FF0A32C0FF072FBEFF022CC0FF0026B6FF7F90D1FFFFFFFFDFFFFFFFFF1138
        D4FF1F44D9FF2A4DDAFF2F51DAFF2E51DBFF2C51DBFF2951DCFF244FDFFF1C4B
        E0FF1547E0FF0D42E0FF053AE0FF0132D7FF0026B5FFFFFFFFFFFFFFFFFF1941
        DEFF2C50E1FF3759E3FF4464E5FF7E94EDFFE2E8FBFFFFFFFFFFFFFFFFFFDCE4
        FBFF7192F1FF134BE9FF0A43E8FF0439E0FF022BBEFFFFFFFFFFFFFFFFFF2248
        DFFF385AE3FF4363E4FFA2B2F2FFFFFFFFFFBBC8F6FF728FEEFF6F8FEFFFBACA
        F8FFFFFFFFFF98B1F6FF0E48E9FF083EE1FF052EC1FFFFFFFFFFFFFFFFFF2C51
        E1FF4261E4FF8B9EEEFFFFFFFFFF8398EEFF4669E6FF4066E7FF3763E8FF2C5D
        E9FF7294F1FFFFFFFFFF6B8DF0FF0F43E1FF0B33C1FFFFFFFFFFFFFFFFFF3558
        E2FF4B68E5FFEBEFFCFFBBC6F5FF4E6DE6FF496AE6FFFFFFFFFFFFFFFFFF2D5C
        E8FF2456E8FFB6C7F8FFDBE3FBFF1848E0FF1238C2FFFFFFFFFFFFFFFFFF3F5F
        E4FF536FE7FFFFFFFFFF8195EDFF506DE6FF4868E5FFFFFFFFFFFFFFFFFF2C58
        E6FF2352E6FF6587EEFFFFFFFFFF1F4CDFFF183CC0FFFFFFFFFFFFFFFFFF4564
        E5FF5A75E8FFFFFFFFFF8195EDFF506CE6FF4867E5FFFFFFFFFFFFFFFFFF2C55
        E4FF2450E4FF6483ECFFFFFFFFFF254EDEFF1D3FBFFFFFFFFFFFFFFFFFFF4F6C
        E6FF637DE8FFEFF1FDFFB7C2F5FF516CE6FF4865E4FFFFFFFFFFFFFFFFFF2C52
        E2FF264EE2FFB0BFF5FFE0E6FBFF2A50DCFF2141BFFFFFFFFFFFFFFFFFFF536F
        E7FF6C85EAFF97A9F1FFFFFFFFFF8093EDFF4C67E5FF4261E4FF3A5BE3FF3054
        E2FF6C86EBFFFFFFFFFF728AECFF2D51DCFF2342BEFFFFFFFFFFFFFFFFFF5E79
        E8FF7A91ECFF7089EBFFA6B5F2FFFFFFFFFFB1BDF4FF7086EAFF6B83E9FFB0BD
        F4FFFFFFFFFF95A8F0FF3053E1FF2F52DBFF2342BDFFFFFFFFFFFFFFFFFF6B85
        EAFF8DA1EFFF8097EDFF6F88EBFF97A8F0FFEEF0FCFFFFFFFFFFFFFFFFFFE9ED
        FCFF899DEEFF4162E4FF3A5CE3FF3053DCFF1E3EBCFFFFFFFFFFFFFFFFFF778E
        ECFF9DAEF1FF8CA0EFFF7990ECFF7089EBFF6A83E9FF657EE9FF627CE9FF5D78
        E8FF5673E7FF4E6CE6FF4162E4FF2F52DBFF1939BAFFFFFFFFFFFFFFFFDFB2BF
        F4FF768DECFF6781EAFF5B76E8FF5470E7FF4F6CE6FF4A69E6FF4B69E5FF4665
        E5FF3F60E3FF3B5DE3FF3154E2FF2347D8FF8A9BDEFFFFFFFFDFFFFFFF2FFFFF
        FFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFFFFFFF2F}
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 360
    Top = 152
  end
  object Comm1: TComm
    CommName = 'COM2'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = False
    Inx_XonXoffFlow = False
    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 = Comm1ReceiveData
    OnReceiveError = Comm1ReceiveError
    Left = 168
    Top = 152
  end
end