commtest.~dfm

自己写的串口收发程序

          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000FF0000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000FF000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000FF000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFEFFFF
          FFFFFFFFFEFFFF7FFF783EFFFFE00FFFFFC007FFFF8003FFFF8003FFFF0001FF
          FF0001FFF300019FFF0001FFFF0001FFFF8003FFFF8003FFFFC007FFFFE00FFF
          FF783DFFFEFFFEFFFFFFFFFFFFFEFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFF}
        Visible = False
      end
      object ComboBox1: TComboBox
        Left = 64
        Top = 16
        Width = 81
        Height = 21
        ImeName = 'itABC v5.30'
        ItemHeight = 13
        TabOrder = 0
        Text = 'Com1'
      end
      object ComboBox2: TComboBox
        Left = 64
        Top = 48
        Width = 81
        Height = 21
        ImeName = 'itABC v5.30'
        ItemHeight = 13
        TabOrder = 1
        Text = '9600'
      end
      object ComboBox3: TComboBox
        Left = 64
        Top = 80
        Width = 81
        Height = 21
        ImeName = 'itABC v5.30'
        ItemHeight = 13
        TabOrder = 2
        Text = 'N'
      end
      object ComboBox4: TComboBox
        Left = 64
        Top = 112
        Width = 81
        Height = 21
        ImeName = 'itABC v5.30'
        ItemHeight = 13
        TabOrder = 3
        Text = '8'
      end
      object ComboBox5: TComboBox
        Left = 64
        Top = 144
        Width = 81
        Height = 21
        ImeName = 'itABC v5.30'
        ItemHeight = 13
        TabOrder = 4
        Text = '1'
      end
      object Button1: TButton
        Left = 64
        Top = 176
        Width = 81
        Height = 33
        Caption = #25171#24320#20018#21475
        TabOrder = 5
        OnClick = Button1Click
      end
    end
    object GroupBox2: TGroupBox
      Left = 152
      Top = 234
      Width = 425
      Height = 47
      TabOrder = 1
      object Label18: TLabel
        Left = 8
        Top = 17
        Width = 36
        Height = 13
        Caption = #21253#22836#65306
      end
      object Button2: TButton
        Left = 368
        Top = 14
        Width = 49
        Height = 23
        Caption = #28165#31354
        TabOrder = 0
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 290
        Top = 14
        Width = 75
        Height = 22
        Caption = #20572#27490#26174#31034
        TabOrder = 1
        OnClick = Button3Click
      end
      object CheckBox1: TCheckBox
        Left = 120
        Top = 16
        Width = 89
        Height = 17
        Caption = #20197'HEX'#26174#31034
        TabOrder = 2
      end
      object CheckBox4: TCheckBox
        Left = 216
        Top = 16
        Width = 73
        Height = 17
        Caption = #21457#36865#24212#31572
        TabOrder = 3
      end
      object Edit1: TEdit
        Left = 48
        Top = 14
        Width = 64
        Height = 21
        TabOrder = 4
      end
    end
    object GroupBox3: TGroupBox
      Left = 4
      Top = 210
      Width = 153
      Height = 223
      Color = clBtnFace
      ParentColor = False
      TabOrder = 2
      object Label12: TLabel
        Left = 43
        Top = 45
        Width = 59
        Height = 24
        Caption = 'Closed'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 35
        Top = 22
        Width = 78
        Height = 24
        Caption = 'Com Port'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BitBtn1: TBitBtn
        Left = 1
        Top = 199
        Width = 66
        Height = 23
        Caption = #36864#20986
        TabOrder = 0
        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
      object GroupBox4: TGroupBox
        Left = 16
        Top = 72
        Width = 121
        Height = 113
        Caption = #35745#25968
        TabOrder = 1
        object Label10: TLabel
          Left = 22
          Top = 47
          Width = 15
          Height = 13
          Caption = 'Tx:'
        end
        object Label11: TLabel
          Left = 21
          Top = 25
          Width = 16
          Height = 13
          Caption = 'Rx:'
        end
        object Button7: TButton
          Left = 27
          Top = 76
          Width = 65
          Height = 21
          Caption = #35745#25968#28165#38646
          TabOrder = 0
          OnClick = Button7Click
        end
        object Edit3: TEdit
          Left = 48
          Top = 44
          Width = 49
          Height = 21
          ImeName = 'itABC v5.30'
          TabOrder = 1
          Text = '0'
        end
        object Edit4: TEdit
          Left = 48
          Top = 20
          Width = 49
          Height = 21
          ImeName = 'itABC v5.30'
          TabOrder = 2
          Text = '0'
        end
      end
    end
    object Memo2: TMemo
      Left = 184
      Top = 280
      Width = 393
      Height = 129
      ImeName = 'itABC v5.30'
      TabOrder = 3
    end
    object Button5: TButton
      Left = 462
      Top = 408
      Width = 55
      Height = 22
      Caption = #21457#36865
      Enabled = False
      TabOrder = 4
      OnClick = Button5Click
    end
    object CheckBox3: TCheckBox
      Left = 388
      Top = 406
      Width = 73
      Height = 25
      Caption = #33258#21160#21457#36865
      Enabled = False
      TabOrder = 5
      OnClick = CheckBox3Click
    end
    object CheckBox2: TCheckBox
      Left = 177
      Top = 411
      Width = 81
      Height = 17
      Caption = #20197'HEX'#21457#36865
      TabOrder = 6
    end
    object Edit2: TEdit
      Left = 329
      Top = 408
      Width = 41
      Height = 21
      ImeName = 'itABC v5.30'
      TabOrder = 7
      Text = '1000'
    end
    object Button6: TButton
      Left = 523
      Top = 408
      Width = 50
      Height = 22
      Caption = #28165#31354
      TabOrder = 8
      OnClick = Button6Click
    end
    object Memo1: TMemo
      Left = 184
      Top = 0
      Width = 393
      Height = 241
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 9
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 128
    Top = 216
  end
end