| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558 |
- object CnRS232Dlg: TCnRS232Dlg
- Left = 238
- Top = 123
- BorderStyle = bsDialog
- Caption = '串口设置'
- ClientHeight = 316
- ClientWidth = 311
- Color = clBtnFace
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = '宋体'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 12
- object pcCommConfig: TPageControl
- Left = 8
- Top = 8
- Width = 297
- Height = 273
- ActivePage = tsNormal
- TabOrder = 0
- object tsNormal: TTabSheet
- Caption = '常规设置'
- object lblBaudRate: TLabel
- Left = 16
- Top = 12
- Width = 60
- Height = 12
- Caption = '波特率(&B):'
- end
- object lblByteSize: TLabel
- Left = 16
- Top = 41
- Width = 60
- Height = 12
- Caption = '数据位(&D):'
- end
- object lblParity: TLabel
- Left = 16
- Top = 70
- Width = 72
- Height = 12
- Caption = '奇偶校验(&P):'
- end
- object lblStopBits: TLabel
- Left = 16
- Top = 98
- Width = 60
- Height = 12
- Caption = '停止位(&S):'
- end
- object cbbBaudRate: TComboBox
- Left = 120
- Top = 8
- Width = 145
- Height = 20
- Hint = '串口通讯的最大速度'#13#10'单位:bps'
- ItemHeight = 12
- TabOrder = 0
- OnExit = cbbBaudRateExit
- Items.Strings = (
- '110'
- '300'
- '600'
- '1200'
- '2400'
- '4800'
- '9600'
- '14400'
- '19200'
- '38400'
- '56000'
- '57600'
- '115200'
- '128000'
- '256000')
- end
- object cbbByteSize: TComboBox
- Left = 120
- Top = 37
- Width = 145
- Height = 20
- Hint = '可用数据位数'
- Style = csDropDownList
- ItemHeight = 12
- TabOrder = 1
- Items.Strings = (
- '5'
- '6'
- '7'
- '8')
- end
- object cbbParity: TComboBox
- Left = 120
- Top = 66
- Width = 145
- Height = 20
- Hint = '奇偶校验方式'
- Style = csDropDownList
- ItemHeight = 12
- TabOrder = 2
- OnChange = ControlChanged
- Items.Strings = (
- '无'
- '奇校验'
- '偶校验'
- '传号校验'
- '空号校验 ')
- end
- object cbbStopBits: TComboBox
- Left = 120
- Top = 94
- Width = 145
- Height = 20
- Hint = '停止位数'
- Style = csDropDownList
- ItemHeight = 12
- TabOrder = 3
- Items.Strings = (
- '1'
- '1.5'
- '2 ')
- end
- object cbReplaceWhenParityError: TCheckBox
- Left = 16
- Top = 128
- Width = 200
- Height = 17
- Hint = '出现奇偶校验错时用指定字符代替'
- Caption = '奇偶校验错误替换成字符(&ASCII):'
- TabOrder = 4
- OnClick = ControlChanged
- end
- object cbIgnoreNullChar: TCheckBox
- Left = 16
- Top = 152
- Width = 200
- Height = 17
- Hint = '是否丢弃接收到的NULL(ASCII 0)字符'
- Caption = '忽略NULL字符(&N)'
- TabOrder = 6
- end
- object seReplacedChar: TCnSpinEdit
- Left = 216
- Top = 126
- Width = 49
- Height = 21
- Hint = '替换字符的ASCII码'
- MaxLength = 3
- MaxValue = 255
- MinValue = 0
- TabOrder = 5
- Value = 0
- OnExit = seReplacedCharExit
- end
- end
- object tsXonXoff: TTabSheet
- Caption = '软件流量控制'
- ImageIndex = 1
- object lblXonLimit: TLabel
- Left = 16
- Top = 87
- Width = 66
- Height = 12
- Caption = 'Xon阈值(&B):'
- end
- object lblXoffLimit: TLabel
- Left = 16
- Top = 117
- Width = 72
- Height = 12
- Caption = 'Xoff阈值(&H):'
- end
- object lblXonChar: TLabel
- Left = 16
- Top = 146
- Width = 108
- Height = 12
- Caption = 'Xon字符(ASCII)(&K):'
- end
- object lblXoffChar: TLabel
- Left = 16
- Top = 176
- Width = 114
- Height = 12
- Caption = 'Xoff字符(ASCII)(&I):'
- end
- object cbTxContinueOnXoff: TCheckBox
- Left = 16
- Top = 56
- Width = 200
- Height = 17
- Hint =
- '当接收缓冲区已满,已发送“Xoff字符”后发送是否停止。'#13#10'如果选择,' +
- '当被填满的接收缓冲区中的字节数未达到“Xoff阈值”'#13#10'并且驱动程序发' +
- '送了“Xoff字符”后停止接收字节时,继续发送;'#13#10'如果不选,当被排空' +
- '的缓冲区中的字节数不足“Xon阈值”个字'#13#10'节,且驱动程序发送了“Xon' +
- '字符”后恢复接收时,继续发送。'
- Caption = 'Xoff后继续发送数据(&C)'
- TabOrder = 2
- end
- object cbOutx_XonXoffFlow: TCheckBox
- Left = 16
- Top = 32
- Width = 200
- Height = 17
- Hint =
- '数据发送时是否使用Xon/Xoff信息流控制'#13#10'如果选择,当接收到“Xoff字' +
- '符”时暂停发送,并在'#13#10'接收到“Xon字符”时恢复发送。'
- Caption = '输出Xon/Xoff有效(&O)'
- TabOrder = 1
- end
- object cbInx_XonXoffFlow: TCheckBox
- Left = 16
- Top = 8
- Width = 200
- Height = 17
- Hint =
- '数据接收时是否使用Xon/Xoff信息流控制'#13#10'如果选择,当接收缓冲区快满' +
- ',只剩“Xoff阈值”个'#13#10'字符空闲时发送“Xoff字符”;当接收缓冲区中' +
- '只有'#13#10'“Xon阈值”个字符时,发送“Xon字符”。'
- Caption = '输入Xon/Xoff有效(&F)'
- TabOrder = 0
- end
- object seXonLimit: TCnSpinEdit
- Left = 136
- Top = 83
- Width = 65
- Height = 21
- Hint = '指明在发送“Xon字符”之前,接收缓冲区中允许的最少字符数。'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 3
- Value = 0
- OnExit = seXonLimitExit
- end
- object seXonChar: TCnSpinEdit
- Left = 136
- Top = 144
- Width = 65
- Height = 21
- Hint = '发送和接收的“Xon字符”的ASCII码,表示允许继续传输。'
- MaxLength = 3
- MaxValue = 255
- MinValue = 0
- TabOrder = 5
- Value = 0
- OnExit = seReplacedCharExit
- end
- object seXoffChar: TCnSpinEdit
- Left = 136
- Top = 174
- Width = 65
- Height = 21
- Hint = '发送和接收的“Xoff字符”的ASCII码,表示允许暂停传输。'
- MaxLength = 3
- MaxValue = 255
- MinValue = 0
- TabOrder = 6
- Value = 0
- OnExit = seReplacedCharExit
- end
- object seXoffLimit: TCnSpinEdit
- Left = 136
- Top = 113
- Width = 65
- Height = 21
- Hint =
- '指明在发送“Xoff字符”之前,接收缓冲区中允许的最多字符数。'#13#10'接收' +
- '缓冲区的长度减去该值,即允许的最多字符数。'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 4
- Value = 0
- OnExit = seXonLimitExit
- end
- end
- object tsHardware: TTabSheet
- Caption = '硬件流量控制'
- ImageIndex = 2
- object lblDtrControl: TLabel
- Left = 16
- Top = 39
- Width = 90
- Height = 12
- Caption = 'DTR流量控制(&T):'
- end
- object lblRtsControl: TLabel
- Left = 16
- Top = 68
- Width = 90
- Height = 12
- Caption = 'RTS流量控制(&R):'
- end
- object lblInCtrl: TLabel
- Left = 16
- Top = 16
- Width = 54
- Height = 12
- Caption = '输入控制:'
- end
- object lblOutCtrl: TLabel
- Left = 16
- Top = 108
- Width = 54
- Height = 12
- Caption = '输出控制:'
- end
- object cbOutx_CtsFlow: TCheckBox
- Left = 16
- Top = 152
- Width = 200
- Height = 17
- Hint = 'CTS(清除发送)'
- Caption = '使用CTS信号进行输出流量控制(&C)'
- TabOrder = 3
- end
- object cbOutx_DsrFlow: TCheckBox
- Left = 16
- Top = 128
- Width = 200
- Height = 17
- Hint = 'DSR(数据设备就绪)'
- Caption = '使用DSR信号进行输出流量控制(&B)'
- TabOrder = 2
- end
- object cbDsrSensitivity: TCheckBox
- Left = 16
- Top = 176
- Width = 200
- Height = 17
- Hint =
- '指定通信驱动程序对DSR信号的状态是否敏感。'#13#10'如果选择,当Modem的DS' +
- 'R输入线为低时,驱动程序将'#13#10'忽略接收到的任何字节。'
- Caption = 'DSR敏感度(&E)'
- TabOrder = 4
- end
- object cbbDtrControl: TComboBox
- Left = 120
- Top = 35
- Width = 145
- Height = 20
- Hint = '使用DTR(数据终端就绪)信号进行流量控制的方式'
- Style = csDropDownList
- ItemHeight = 12
- TabOrder = 0
- Items.Strings = (
- '允许DTR线并保持'
- '禁止DTR线并保持'
- '允许DTR握手')
- end
- object cbbRtsControl: TComboBox
- Left = 120
- Top = 64
- Width = 145
- Height = 20
- Hint = '使用RTS(请求发送)信号进行流量控制的方式'
- Style = csDropDownList
- ItemHeight = 12
- TabOrder = 1
- Items.Strings = (
- '允许RTS并保持'
- '禁止RTS并保持'
- '允许RTS握手'
- '使用触发方式')
- end
- end
- object tsTimeouts: TTabSheet
- Caption = '超时设置'
- ImageIndex = 3
- object lblReadIntervalTimeout: TLabel
- Left = 16
- Top = 15
- Width = 84
- Height = 12
- Caption = '读间隔超时(&R):'
- end
- object lblReadTotalTimeoutMultiplier: TLabel
- Left = 16
- Top = 45
- Width = 96
- Height = 12
- Caption = '读总超时系数(&T):'
- end
- object lblMSec1: TLabel
- Left = 240
- Top = 16
- Width = 24
- Height = 12
- Caption = '毫秒'
- end
- object lblMSec2: TLabel
- Left = 240
- Top = 46
- Width = 24
- Height = 12
- Caption = '毫秒'
- end
- object lblReadTotalTimeoutConstant: TLabel
- Left = 16
- Top = 75
- Width = 96
- Height = 12
- Caption = '读总超时常量(&A):'
- end
- object lblMSec3: TLabel
- Left = 240
- Top = 76
- Width = 24
- Height = 12
- Caption = '毫秒'
- end
- object lblWriteTotalTimeoutMultiplier: TLabel
- Left = 16
- Top = 105
- Width = 96
- Height = 12
- Caption = '写总超时系数(&W):'
- end
- object lblMSec4: TLabel
- Left = 240
- Top = 106
- Width = 24
- Height = 12
- Caption = '毫秒'
- end
- object lblWriteTotalTimeoutConstant: TLabel
- Left = 16
- Top = 135
- Width = 96
- Height = 12
- Caption = '写总超时常量(&B):'
- end
- object lblMSec5: TLabel
- Left = 240
- Top = 136
- Width = 24
- Height = 12
- Caption = '毫秒'
- end
- object seReadIntervalTimeout: TCnSpinEdit
- Left = 136
- Top = 11
- Width = 97
- Height = 21
- Hint =
- '指定通信线路上两个字符到达之间的最大时间。'#13#10'在读取操作期间,从接' +
- '收到第一个字符时开始计时,'#13#10'若任意两个字符到达之间的时间间隔超过' +
- '这个最大'#13#10'值,则读取操作完成,返回缓冲数据。'#13#10'如果置0,表示不使' +
- '用间隔超时。'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 0
- Value = 0
- end
- object seReadTotalTimeoutMultiplier: TCnSpinEdit
- Left = 136
- Top = 41
- Width = 97
- Height = 21
- Hint =
- '用于设定读总超时时间。'#13#10'读总超时时间 = (总超时系数 X 接收字符数)' +
- ' + 总超时常量'#13#10'常量和系数可分别为0。'#13#10'如果均为0,则不使用总超时' +
- '设定。'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 1
- Value = 0
- end
- object seReadTotalTimeoutConstant: TCnSpinEdit
- Left = 136
- Top = 71
- Width = 97
- Height = 21
- Hint =
- '用于设定读总超时时间。'#13#10'读总超时时间 = (总超时系数 X 接收字符数)' +
- ' + 总超时常量'#13#10'常量和系数可分别为0。'#13#10'如果均为0,则不使用总超时' +
- '设定。'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 2
- Value = 0
- end
- object seWriteTotalTimeoutMultiplier: TCnSpinEdit
- Left = 136
- Top = 101
- Width = 97
- Height = 21
- Hint =
- '用于设定写总超时时间。'#13#10'写总超时时间 = (总超时系数 X 接收字符数)' +
- ' + 总超时常量'#13#10'常量和系数可分别为0。'#13#10'如果均为0,则不使用总超时' +
- '设定。'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 3
- Value = 0
- end
- object seWriteTotalTimeoutConstant: TCnSpinEdit
- Left = 136
- Top = 131
- Width = 97
- Height = 21
- Hint =
- '用于设定写总超时时间。'#13#10'写总超时时间 = (总超时系数 X 接收字符数)' +
- ' + 总超时常量'#13#10'常量和系数可分别为0。'#13#10'如果均为0,则不使用总超时' +
- '设定。'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 4
- Value = 0
- end
- end
- end
- object bbtnOk: TBitBtn
- Left = 144
- Top = 288
- Width = 75
- Height = 21
- Caption = '确定(&O)'
- Default = True
- TabOrder = 2
- OnClick = bbtnOkClick
- end
- object bbtnCancel: TBitBtn
- Left = 224
- Top = 288
- Width = 75
- Height = 21
- Cancel = True
- Caption = '取消(&C)'
- ModalResult = 2
- TabOrder = 3
- end
- object cbShowHint: TCheckBox
- Left = 8
- Top = 290
- Width = 105
- Height = 17
- Caption = '显示提示信息'
- TabOrder = 1
- OnClick = cbShowHintClick
- end
- end
|