main.dfm

SPCOMM通讯测试

object FrmMain: TFrmMain
  Left = 267
  Top = 140
  Width = 320
  Height = 204
  Caption = #20018#21475#36890#35759#27979#35797
  Color = clMoneyGreen
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    312
    170)
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 20
    Width = 48
    Height = 12
    Caption = #27668#21387#21333#20803
  end
  object Label2: TLabel
    Left = 16
    Top = 43
    Width = 48
    Height = 12
    Caption = #28082#21387#21333#20803
  end
  object Label8: TLabel
    Left = 16
    Top = 65
    Width = 48
    Height = 12
    Caption = #30495#31354#21333#20803
  end
  object Memo1: TMemo
    Left = 73
    Top = 16
    Width = 65
    Height = 16
    TabStop = False
    Color = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 40
    Top = 126
    Width = 79
    Height = 25
    Anchors = [akRight]
    Caption = #36864#20986
    TabOrder = 1
    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 Memo2: TMemo
    Left = 73
    Top = 39
    Width = 65
    Height = 16
    TabStop = False
    Color = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
  end
  object Memo3: TMemo
    Left = 73
    Top = 61
    Width = 65
    Height = 16
    TabStop = False
    Color = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
  end
  object GroupBox1: TGroupBox
    Left = 156
    Top = 9
    Width = 141
    Height = 145
    TabOrder = 4
    object Label3: TLabel
      Left = 10
      Top = 24
      Width = 36
      Height = 12
      Caption = #31471'  '#21475
    end
    object Label4: TLabel
      Left = 10
      Top = 46
      Width = 36
      Height = 12
      Caption = #27874#29305#29575
    end
    object Label5: TLabel
      Left = 10
      Top = 69
      Width = 36
      Height = 12
      Caption = #26657#39564#20301
    end
    object Label6: TLabel
      Left = 10
      Top = 92
      Width = 36
      Height = 12
      Caption = #25968#25454#20301
    end
    object Label7: TLabel
      Left = 10
      Top = 115
      Width = 36
      Height = 12
      Caption = #20572#27490#20301
    end
    object ComboBox2: TComboBox
      Left = 53
      Top = 42
      Width = 79
      Height = 20
      AutoComplete = False
      Style = csDropDownList
      DropDownCount = 13
      ItemHeight = 12
      MaxLength = 6
      TabOrder = 0
      OnChange = ComboBox2Change
      OnKeyPress = ComboBox2KeyPress
      Items.Strings = (
        'Custom'
        '300'
        '600'
        '1200'
        '2400'
        '4800'
        '9600'
        '19200'
        '38400'
        '43000'
        '56000'
        '57600'
        '115200')
    end
    object ComboBox3: TComboBox
      Left = 53
      Top = 65
      Width = 79
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = ComboBox3Change
      Items.Strings = (
        'None'
        'Odd'
        'Even'
        'Mark'
        'Space')
    end
    object ComboBox4: TComboBox
      Left = 53
      Top = 88
      Width = 79
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnChange = ComboBox4Change
      Items.Strings = (
        '5'
        '6'
        '7'
        '8')
    end
    object ComboBox5: TComboBox
      Left = 53
      Top = 111
      Width = 79
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      OnChange = ComboBox5Change
      Items.Strings = (
        '1'
        '1.5'
        '2')
    end
    object ComboBox1: TComboBox
      Left = 53
      Top = 17
      Width = 79
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
    end
  end
  object btnSwitch: TButton
    Left = 40
    Top = 86
    Width = 79
    Height = 25
    Caption = #25171#24320#20018#21475
    TabOrder = 5
    OnClick = btnSwitchClick
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Top = 125
  end
  object Comm1: TComm
    CommName = 'COM2'
    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 = Comm1ReceiveData
    Top = 87
  end
end