unitset.dfm

uart串口通信的控件和demo,用API 编写

object FormSet: TFormSet
  Left = 247
  Top = 141
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20018#21475#39640#32423#36873#39033#35774#32622
  ClientHeight = 338
  ClientWidth = 434
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ImagePortSet: TImage
    Left = 216
    Top = 184
    Width = 33
    Height = 33
    Picture.Data = {
      055449636F6E0000010001002020000000000000A80800001600000028000000
      2000000040000000010008000000000000040000000000000000000000000000
      0000000000000000000080000080000000808000800000008000800080800000
      C0C0C000C0DCC000F0CAA60004040400080808000C0C0C001111110016161600
      1C1C1C002222220029292900555555004D4D4D004242420039393900807CFF00
      5050FF009300D600FFECCC00C6D6EF00D6E7E70090A9AD000000330000006600
      000099000000CC00003300000033330000336600003399000033CC000033FF00
      006600000066330000666600006699000066CC000066FF000099000000993300
      00996600009999000099CC000099FF0000CC000000CC330000CC660000CC9900
      00CCCC0000CCFF0000FF660000FF990000FFCC00330000003300330033006600
      330099003300CC003300FF00333300003333330033336600333399003333CC00
      3333FF00336600003366330033666600336699003366CC003366FF0033990000
      3399330033996600339999003399CC003399FF0033CC000033CC330033CC6600
      33CC990033CCCC0033CCFF0033FF330033FF660033FF990033FFCC0033FFFF00
      660000006600330066006600660099006600CC006600FF006633000066333300
      66336600663399006633CC006633FF0066660000666633006666660066669900
      6666CC00669900006699330066996600669999006699CC006699FF0066CC0000
      66CC330066CC990066CCCC0066CCFF0066FF000066FF330066FF990066FFCC00
      CC00FF00FF00CC009999000099339900990099009900CC009900000099333300
      990066009933CC009900FF00996600009966330099336600996699009966CC00
      9933FF009999330099996600999999009999CC009999FF0099CC000099CC3300
      66CC660099CC990099CCCC0099CCFF0099FF000099FF330099CC660099FF9900
      99FFCC0099FFFF00CC00000099003300CC006600CC009900CC00CC0099330000
      CC333300CC336600CC339900CC33CC00CC33FF00CC660000CC66330099666600
      CC669900CC66CC009966FF00CC990000CC993300CC996600CC999900CC99CC00
      CC99FF00CCCC0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000
      CCFF330099FF6600CCFF9900CCFFCC00CCFFFF00CC003300FF006600FF009900
      CC330000FF333300FF336600FF339900FF33CC00FF33FF00FF660000FF663300
      CC666600FF669900FF66CC00CC66FF00FF990000FF993300FF996600FF999900
      FF99CC00FF99FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00
      FFFF3300CCFF6600FFFF9900FFFFCC006666FF0066FF660066FFFF00FF666600
      FF66FF00FFFF66002100A5005F5F5F00777777008686860096969600CBCBCB00
      B2B2B200D7D7D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F800F0FBFF00
      A4A0A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF0000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000EC12120000000000000000000000
      00000000000000000000000000000000ECECFFEAEA1212000000000000000000
      0000000000000000000000000000ECECFFFF070707EAEA121200000000000000
      000000000000000000000000ECECFFFF0707FFF8000707EAEA12120000000000
      00000000000000000000ECECFFFF0707FFF800FFF8F8000707EAEAEA12000000
      0000000000000000ECECFFFF0707FFF800FFF8F800FFF800FF0707EAEA120000
      000000000000ECECFFFF0707FFF800FFF8F800FFF800FFFF072D2707EDEA0000
      00000000EC07FFFF0707FFF800FFF8F800FFF800FFFF0707075A34ED00000000
      00000000F8F80707FFF800FFF8F800FFF800FFFF07070707EDED0000ED120000
      000000000000F8F80707F8F800FFF800FFFF07070707EDED0000EDED07ED1200
      0000000000000000F8F80707F800FFFF07070707EDED0000EDED07FF07071200
      00000000000000000000F8F8FFFF07070707EDED0000EDED07FFFFFCFF07ED12
      000000000000000000000000F8F80707EDED0000EDED07FFFFFCFCFCFF070712
      0000000000000000000000000000F8ED0000EDED07FFFFFCFCFCFCFCFCFF07ED
      12000000000000000000000000000000EDED07FFFFFCFCCDFCCDFCCDFCFF0707
      1200000000000000000000000000F8EDEEFFFFC8CDC8CDC8CDC8CDFCCDFCFF07
      ED12000000000000000000400000F8EEEF00C8CDC8CEC8CEC8CDC8CDC8FCFF07
      0712000000000000000040F9400000F8EE00CDC8CDC8CDC8CDC8CDC8CDC8FCFF
      07ED12000000000000000041000000F8EEEF00CDCDCDCDCDCDCDCDCDC8CDC8FF
      07071200000000000000000000000000F8EE00CDD3CDCDCDCDCDCDCDCDCDCD00
      07071200000000004000000000000000F8EEEF00CDD3CDD3CDD3CDD3CD000007
      07F8F80000000040F94000000000000000F8EE00DACDD3CDD3CDD300000707F8
      F800000000000000410000000000000000F8EEEF00DACDDAD400000707F8F800
      000000000000000000000000000000000000F8EE00DBDA00000707F8F8000000
      000000000040000000000000000000000000F8EEEF0000EE07F8F80000000000
      0000000040F940000000000000000000000000F8EEEEEEF8F800000000000000
      0000000000F900000000000000000000000000F8EEF8F8000000000000000000
      0000000000000000000000000000000000000000F80000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000FFFFFFFFFFFFFFFFFFFC7FFFFFF01FFFFFC007FFFF0001FFFC00007F
      F000001FC000001F0000001F0000001F0000001FC000000FF000000FFC000007
      FF000007FFC00003FFC00003FFC00001FEC00001FC600000FEE00000FFF00000
      F7F00001E3F80007F7F8001FFFFC007FBFFC01FF1FFE07FFBFFE1FFFFFFF7FFF
      FFFFFFFF}
  end
  object GroupBoxFlowControl: TGroupBox
    Left = 8
    Top = 8
    Width = 193
    Height = 209
    Caption = 'FlowControl'
    TabOrder = 0
    object LabelFlowControl: TLabel
      Left = 16
      Top = 24
      Width = 55
      Height = 13
      Caption = 'FlowControl'
    end
    object ComboBoxFlowControl: TComboBox
      Left = 85
      Top = 21
      Width = 89
      Height = 21
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'None'
      OnChange = ComboBoxFlowControlChange
      Items.Strings = (
        'None'
        'Hardware'
        'Software'
        'Custom')
    end
    object CheckBoxDSRsen: TCheckBox
      Left = 16
      Top = 48
      Width = 126
      Height = 17
      Hint = #35774#32622#20026'true'#26102#65292'DSR'#24341#33050#21464#20026#39640#30005#24179#20043#21069#65292#24573#30053#21463#21040#30340#25968#25454
      Caption = 'DSRSensitivity'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object CheckBoxOutCTSFlow: TCheckBox
      Left = 16
      Top = 64
      Width = 126
      Height = 17
      Hint = #21551#29992'CTS('#35774#22791'->Computer)'#27969#25511#13#10#35774#32622#20026'1'#26102#65292'CTS'#20026#20302#26102#65292#26242#20572#21457#36865#65292
      Caption = 'OutCTSFlow'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
    object CheckBoxOutDSRFlow: TCheckBox
      Left = 16
      Top = 80
      Width = 126
      Height = 17
      Hint = #21551#29992'DSR'#27969#25511'('#35774#22791'->Computer)'#13#10#35774#32622#20026'1'#26102#65292'DSR'#20026#20302#26102#65292#26242#20572#21457#36865#65292
      Caption = 'OutDSRFlow'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
    end
    object CheckBoxTxContinueOnXoff: TCheckBox
      Left = 16
      Top = 96
      Width = 126
      Height = 17
      Hint = 'Xoff'#25345#32493'TX'
      Caption = 'TxContinueOnXoff'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
    end
    object CheckBoxXonXoffIn: TCheckBox
      Left = 16
      Top = 112
      Width = 126
      Height = 17
      Caption = 'XonXoffIn'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
    end
    object CheckBoxXonXoffOut: TCheckBox
      Left = 16
      Top = 128
      Width = 126
      Height = 17
      Caption = 'XonXoffOut'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
    end
    object LabeledEditXoffchar: TLabeledEdit
      Left = 77
      Top = 150
      Width = 80
      Height = 21
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = False
      EditLabel.Width = 40
      EditLabel.Height = 13
      EditLabel.BiDiMode = bdRightToLeftNoAlign
      EditLabel.Caption = 'Xoffchar'
      EditLabel.ParentBiDiMode = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpLeft
      LabelSpacing = 20
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 7
      Text = '19'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
    object LabeledEditXonchar: TLabeledEdit
      Left = 77
      Top = 184
      Width = 80
      Height = 21
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = False
      EditLabel.Width = 41
      EditLabel.Height = 13
      EditLabel.BiDiMode = bdRightToLeftNoAlign
      EditLabel.Caption = 'XonChar'
      EditLabel.ParentBiDiMode = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpLeft
      LabelSpacing = 20
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 8
      Text = '17'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
  end
  object GroupBoxTimeOut: TGroupBox
    Left = 216
    Top = 8
    Width = 209
    Height = 161
    Caption = 'TimeOuts'
    TabOrder = 1
    object LabeledEditReadInterval: TLabeledEdit
      Left = 109
      Top = 16
      Width = 80
      Height = 21
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = False
      EditLabel.Width = 61
      EditLabel.Height = 13
      EditLabel.BiDiMode = bdRightToLeftNoAlign
      EditLabel.Caption = 'ReadInterval'
      EditLabel.ParentBiDiMode = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False