main.dfm

delphi编写的AVR串口通信工具串口通信原代码 delphi编写的AVR串口通信工具串口 通信原代码

        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
      OnClick = SpeedButton1Click
    end
    object ComboBox1: TComboBox
      Left = 48
      Top = 13
      Width = 79
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = ComboBox1Change
    end
    object ComboBox2: TComboBox
      Left = 48
      Top = 34
      Width = 79
      Height = 20
      AutoComplete = False
      Style = csDropDownList
      DropDownCount = 13
      ItemHeight = 12
      MaxLength = 6
      TabOrder = 1
      OnChange = ComboBox2Change
      OnKeyPress = ComboBox2KeyPress
      Items.Strings = (
        'Custom'
        '300'
        '600'
        '1200'
        '2400'
        '4800'
        '9600'
        '19200'
        '38400'
        '43000'
        '56000'
        '57600'
        '115200')
    end
    object ComboBox4: TComboBox
      Left = 48
      Top = 55
      Width = 79
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnChange = ComboBox4Change
      Items.Strings = (
        '5'
        '6'
        '7'
        '8')
    end
    object ComboBox3: TComboBox
      Left = 48
      Top = 76
      Width = 79
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      OnChange = ComboBox3Change
      Items.Strings = (
        'None'
        'Odd'
        'Even'
        'Mark'
        'Space')
    end
    object ComboBox5: TComboBox
      Left = 48
      Top = 96
      Width = 79
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
      OnChange = ComboBox5Change
      Items.Strings = (
        '1'
        '1.5'
        '2')
    end
    object btnSwitch: TButton
      Left = 16
      Top = 129
      Width = 57
      Height = 28
      Caption = #25171#24320#20018#21475
      TabOrder = 5
      OnClick = btnSwitchClick
    end
    object edRx: TEdit
      Left = 10
      Top = 218
      Width = 101
      Height = 20
      TabStop = False
      ParentColor = True
      ReadOnly = True
      TabOrder = 6
      Text = 'Rx:0'
    end
    object edTx: TEdit
      Left = 11
      Top = 198
      Width = 100
      Height = 20
      TabStop = False
      ParentColor = True
      ReadOnly = True
      TabOrder = 7
      Text = 'Tx:0'
    end
    object edStatus: TEdit
      Left = 3
      Top = 247
      Width = 127
      Height = 20
      TabStop = False
      ParentColor = True
      ReadOnly = True
      TabOrder = 8
      Text = ' STATUS:COM Port Closed'
    end
    object Button5: TButton
      Left = 16
      Top = 166
      Width = 57
      Height = 25
      Caption = #35745#25968#28165#38646
      TabOrder = 9
      OnClick = Button5Click
    end
    object BitBtn1: TBitBtn
      Left = 33
      Top = 309
      Width = 57
      Height = 33
      Anchors = [akRight]
      Caption = #36864#20986
      TabOrder = 10
      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 GroupBox1: TGroupBox
    Left = 144
    Top = 0
    Width = 297
    Height = 153
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = #21457#36865#21306
    TabOrder = 1
    DesignSize = (
      297
      153)
    object Label1: TLabel
      Left = 11
      Top = 97
      Width = 72
      Height = 12
      Caption = #33258#21160#21457#36865#21608#26399
    end
    object Label2: TLabel
      Left = 60
      Top = 138
      Width = 24
      Height = 12
      Caption = #27627#31186
    end
    object btnSend: TButton
      Left = 13
      Top = 17
      Width = 68
      Height = 22
      Caption = #25163#21160#21457#36865
      Enabled = False
      TabOrder = 0
      OnClick = btnSendClick
    end
    object cbsendHex: TCheckBox
      Left = 10
      Top = 64
      Width = 97
      Height = 17
      Caption = #21313#20845#36827#21046#21457#36865
      TabOrder = 1
    end
    object cbAutoSend: TCheckBox
      Left = 10
      Top = 78
      Width = 81
      Height = 17
      Caption = #33258#21160#21457#36865
      TabOrder = 2
      OnClick = cbAutoSendClick
    end
    object SpinEdit1: TSpinEdit
      Left = 13
      Top = 111
      Width = 73
      Height = 21
      MaxValue = 100000000
      MinValue = 1
      TabOrder = 3
      Value = 1000
      OnChange = SpinEdit1Change
    end
    object Button1: TButton
      Left = 14
      Top = 39
      Width = 66
      Height = 24
      Caption = #28165#31354#37325#22635
      TabOrder = 4
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 113
      Top = 131
      Width = 73
      Height = 21
      Caption = #36873#25321#21457#36865#25991#20214
      TabOrder = 5
      OnClick = Button3Click
    end
    object edSendFile: TEdit
      Left = 188
      Top = 129
      Width = 101
      Height = 20
      TabStop = False
      ParentColor = True
      ReadOnly = True
      TabOrder = 6
      Text = #36824#27809#26377#36873#25321#25991#20214
    end
    object Button4: TButton
      Left = 112
      Top = 113
      Width = 72
      Height = 17
      Caption = #21457#36865#25991#20214
      TabOrder = 7
      OnClick = Button4Click
    end
    object Memo2: TMemo
      Left = 104
      Top = 13