CnRS232Dialog.dfm 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558
  1. object CnRS232Dlg: TCnRS232Dlg
  2. Left = 238
  3. Top = 123
  4. BorderStyle = bsDialog
  5. Caption = '串口设置'
  6. ClientHeight = 316
  7. ClientWidth = 311
  8. Color = clBtnFace
  9. Font.Charset = GB2312_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -12
  12. Font.Name = '宋体'
  13. Font.Style = []
  14. OldCreateOrder = False
  15. Position = poDesktopCenter
  16. Scaled = False
  17. OnCreate = FormCreate
  18. OnDestroy = FormDestroy
  19. OnShow = FormShow
  20. PixelsPerInch = 96
  21. TextHeight = 12
  22. object pcCommConfig: TPageControl
  23. Left = 8
  24. Top = 8
  25. Width = 297
  26. Height = 273
  27. ActivePage = tsNormal
  28. TabOrder = 0
  29. object tsNormal: TTabSheet
  30. Caption = '常规设置'
  31. object lblBaudRate: TLabel
  32. Left = 16
  33. Top = 12
  34. Width = 60
  35. Height = 12
  36. Caption = '波特率(&B):'
  37. end
  38. object lblByteSize: TLabel
  39. Left = 16
  40. Top = 41
  41. Width = 60
  42. Height = 12
  43. Caption = '数据位(&D):'
  44. end
  45. object lblParity: TLabel
  46. Left = 16
  47. Top = 70
  48. Width = 72
  49. Height = 12
  50. Caption = '奇偶校验(&P):'
  51. end
  52. object lblStopBits: TLabel
  53. Left = 16
  54. Top = 98
  55. Width = 60
  56. Height = 12
  57. Caption = '停止位(&S):'
  58. end
  59. object cbbBaudRate: TComboBox
  60. Left = 120
  61. Top = 8
  62. Width = 145
  63. Height = 20
  64. Hint = '串口通讯的最大速度'#13#10'单位:bps'
  65. ItemHeight = 12
  66. TabOrder = 0
  67. OnExit = cbbBaudRateExit
  68. Items.Strings = (
  69. '110'
  70. '300'
  71. '600'
  72. '1200'
  73. '2400'
  74. '4800'
  75. '9600'
  76. '14400'
  77. '19200'
  78. '38400'
  79. '56000'
  80. '57600'
  81. '115200'
  82. '128000'
  83. '256000')
  84. end
  85. object cbbByteSize: TComboBox
  86. Left = 120
  87. Top = 37
  88. Width = 145
  89. Height = 20
  90. Hint = '可用数据位数'
  91. Style = csDropDownList
  92. ItemHeight = 12
  93. TabOrder = 1
  94. Items.Strings = (
  95. '5'
  96. '6'
  97. '7'
  98. '8')
  99. end
  100. object cbbParity: TComboBox
  101. Left = 120
  102. Top = 66
  103. Width = 145
  104. Height = 20
  105. Hint = '奇偶校验方式'
  106. Style = csDropDownList
  107. ItemHeight = 12
  108. TabOrder = 2
  109. OnChange = ControlChanged
  110. Items.Strings = (
  111. '无'
  112. '奇校验'
  113. '偶校验'
  114. '传号校验'
  115. '空号校验 ')
  116. end
  117. object cbbStopBits: TComboBox
  118. Left = 120
  119. Top = 94
  120. Width = 145
  121. Height = 20
  122. Hint = '停止位数'
  123. Style = csDropDownList
  124. ItemHeight = 12
  125. TabOrder = 3
  126. Items.Strings = (
  127. '1'
  128. '1.5'
  129. '2 ')
  130. end
  131. object cbReplaceWhenParityError: TCheckBox
  132. Left = 16
  133. Top = 128
  134. Width = 200
  135. Height = 17
  136. Hint = '出现奇偶校验错时用指定字符代替'
  137. Caption = '奇偶校验错误替换成字符(&ASCII):'
  138. TabOrder = 4
  139. OnClick = ControlChanged
  140. end
  141. object cbIgnoreNullChar: TCheckBox
  142. Left = 16
  143. Top = 152
  144. Width = 200
  145. Height = 17
  146. Hint = '是否丢弃接收到的NULL(ASCII 0)字符'
  147. Caption = '忽略NULL字符(&N)'
  148. TabOrder = 6
  149. end
  150. object seReplacedChar: TCnSpinEdit
  151. Left = 216
  152. Top = 126
  153. Width = 49
  154. Height = 21
  155. Hint = '替换字符的ASCII码'
  156. MaxLength = 3
  157. MaxValue = 255
  158. MinValue = 0
  159. TabOrder = 5
  160. Value = 0
  161. OnExit = seReplacedCharExit
  162. end
  163. end
  164. object tsXonXoff: TTabSheet
  165. Caption = '软件流量控制'
  166. ImageIndex = 1
  167. object lblXonLimit: TLabel
  168. Left = 16
  169. Top = 87
  170. Width = 66
  171. Height = 12
  172. Caption = 'Xon阈值(&B):'
  173. end
  174. object lblXoffLimit: TLabel
  175. Left = 16
  176. Top = 117
  177. Width = 72
  178. Height = 12
  179. Caption = 'Xoff阈值(&H):'
  180. end
  181. object lblXonChar: TLabel
  182. Left = 16
  183. Top = 146
  184. Width = 108
  185. Height = 12
  186. Caption = 'Xon字符(ASCII)(&K):'
  187. end
  188. object lblXoffChar: TLabel
  189. Left = 16
  190. Top = 176
  191. Width = 114
  192. Height = 12
  193. Caption = 'Xoff字符(ASCII)(&I):'
  194. end
  195. object cbTxContinueOnXoff: TCheckBox
  196. Left = 16
  197. Top = 56
  198. Width = 200
  199. Height = 17
  200. Hint =
  201. '当接收缓冲区已满,已发送“Xoff字符”后发送是否停止。'#13#10'如果选择,' +
  202. '当被填满的接收缓冲区中的字节数未达到“Xoff阈值”'#13#10'并且驱动程序发' +
  203. '送了“Xoff字符”后停止接收字节时,继续发送;'#13#10'如果不选,当被排空' +
  204. '的缓冲区中的字节数不足“Xon阈值”个字'#13#10'节,且驱动程序发送了“Xon' +
  205. '字符”后恢复接收时,继续发送。'
  206. Caption = 'Xoff后继续发送数据(&C)'
  207. TabOrder = 2
  208. end
  209. object cbOutx_XonXoffFlow: TCheckBox
  210. Left = 16
  211. Top = 32
  212. Width = 200
  213. Height = 17
  214. Hint =
  215. '数据发送时是否使用Xon/Xoff信息流控制'#13#10'如果选择,当接收到“Xoff字' +
  216. '符”时暂停发送,并在'#13#10'接收到“Xon字符”时恢复发送。'
  217. Caption = '输出Xon/Xoff有效(&O)'
  218. TabOrder = 1
  219. end
  220. object cbInx_XonXoffFlow: TCheckBox
  221. Left = 16
  222. Top = 8
  223. Width = 200
  224. Height = 17
  225. Hint =
  226. '数据接收时是否使用Xon/Xoff信息流控制'#13#10'如果选择,当接收缓冲区快满' +
  227. ',只剩“Xoff阈值”个'#13#10'字符空闲时发送“Xoff字符”;当接收缓冲区中' +
  228. '只有'#13#10'“Xon阈值”个字符时,发送“Xon字符”。'
  229. Caption = '输入Xon/Xoff有效(&F)'
  230. TabOrder = 0
  231. end
  232. object seXonLimit: TCnSpinEdit
  233. Left = 136
  234. Top = 83
  235. Width = 65
  236. Height = 21
  237. Hint = '指明在发送“Xon字符”之前,接收缓冲区中允许的最少字符数。'
  238. MaxLength = 5
  239. MaxValue = 65535
  240. MinValue = 0
  241. TabOrder = 3
  242. Value = 0
  243. OnExit = seXonLimitExit
  244. end
  245. object seXonChar: TCnSpinEdit
  246. Left = 136
  247. Top = 144
  248. Width = 65
  249. Height = 21
  250. Hint = '发送和接收的“Xon字符”的ASCII码,表示允许继续传输。'
  251. MaxLength = 3
  252. MaxValue = 255
  253. MinValue = 0
  254. TabOrder = 5
  255. Value = 0
  256. OnExit = seReplacedCharExit
  257. end
  258. object seXoffChar: TCnSpinEdit
  259. Left = 136
  260. Top = 174
  261. Width = 65
  262. Height = 21
  263. Hint = '发送和接收的“Xoff字符”的ASCII码,表示允许暂停传输。'
  264. MaxLength = 3
  265. MaxValue = 255
  266. MinValue = 0
  267. TabOrder = 6
  268. Value = 0
  269. OnExit = seReplacedCharExit
  270. end
  271. object seXoffLimit: TCnSpinEdit
  272. Left = 136
  273. Top = 113
  274. Width = 65
  275. Height = 21
  276. Hint =
  277. '指明在发送“Xoff字符”之前,接收缓冲区中允许的最多字符数。'#13#10'接收' +
  278. '缓冲区的长度减去该值,即允许的最多字符数。'
  279. MaxLength = 5
  280. MaxValue = 65535
  281. MinValue = 0
  282. TabOrder = 4
  283. Value = 0
  284. OnExit = seXonLimitExit
  285. end
  286. end
  287. object tsHardware: TTabSheet
  288. Caption = '硬件流量控制'
  289. ImageIndex = 2
  290. object lblDtrControl: TLabel
  291. Left = 16
  292. Top = 39
  293. Width = 90
  294. Height = 12
  295. Caption = 'DTR流量控制(&T):'
  296. end
  297. object lblRtsControl: TLabel
  298. Left = 16
  299. Top = 68
  300. Width = 90
  301. Height = 12
  302. Caption = 'RTS流量控制(&R):'
  303. end
  304. object lblInCtrl: TLabel
  305. Left = 16
  306. Top = 16
  307. Width = 54
  308. Height = 12
  309. Caption = '输入控制:'
  310. end
  311. object lblOutCtrl: TLabel
  312. Left = 16
  313. Top = 108
  314. Width = 54
  315. Height = 12
  316. Caption = '输出控制:'
  317. end
  318. object cbOutx_CtsFlow: TCheckBox
  319. Left = 16
  320. Top = 152
  321. Width = 200
  322. Height = 17
  323. Hint = 'CTS(清除发送)'
  324. Caption = '使用CTS信号进行输出流量控制(&C)'
  325. TabOrder = 3
  326. end
  327. object cbOutx_DsrFlow: TCheckBox
  328. Left = 16
  329. Top = 128
  330. Width = 200
  331. Height = 17
  332. Hint = 'DSR(数据设备就绪)'
  333. Caption = '使用DSR信号进行输出流量控制(&B)'
  334. TabOrder = 2
  335. end
  336. object cbDsrSensitivity: TCheckBox
  337. Left = 16
  338. Top = 176
  339. Width = 200
  340. Height = 17
  341. Hint =
  342. '指定通信驱动程序对DSR信号的状态是否敏感。'#13#10'如果选择,当Modem的DS' +
  343. 'R输入线为低时,驱动程序将'#13#10'忽略接收到的任何字节。'
  344. Caption = 'DSR敏感度(&E)'
  345. TabOrder = 4
  346. end
  347. object cbbDtrControl: TComboBox
  348. Left = 120
  349. Top = 35
  350. Width = 145
  351. Height = 20
  352. Hint = '使用DTR(数据终端就绪)信号进行流量控制的方式'
  353. Style = csDropDownList
  354. ItemHeight = 12
  355. TabOrder = 0
  356. Items.Strings = (
  357. '允许DTR线并保持'
  358. '禁止DTR线并保持'
  359. '允许DTR握手')
  360. end
  361. object cbbRtsControl: TComboBox
  362. Left = 120
  363. Top = 64
  364. Width = 145
  365. Height = 20
  366. Hint = '使用RTS(请求发送)信号进行流量控制的方式'
  367. Style = csDropDownList
  368. ItemHeight = 12
  369. TabOrder = 1
  370. Items.Strings = (
  371. '允许RTS并保持'
  372. '禁止RTS并保持'
  373. '允许RTS握手'
  374. '使用触发方式')
  375. end
  376. end
  377. object tsTimeouts: TTabSheet
  378. Caption = '超时设置'
  379. ImageIndex = 3
  380. object lblReadIntervalTimeout: TLabel
  381. Left = 16
  382. Top = 15
  383. Width = 84
  384. Height = 12
  385. Caption = '读间隔超时(&R):'
  386. end
  387. object lblReadTotalTimeoutMultiplier: TLabel
  388. Left = 16
  389. Top = 45
  390. Width = 96
  391. Height = 12
  392. Caption = '读总超时系数(&T):'
  393. end
  394. object lblMSec1: TLabel
  395. Left = 240
  396. Top = 16
  397. Width = 24
  398. Height = 12
  399. Caption = '毫秒'
  400. end
  401. object lblMSec2: TLabel
  402. Left = 240
  403. Top = 46
  404. Width = 24
  405. Height = 12
  406. Caption = '毫秒'
  407. end
  408. object lblReadTotalTimeoutConstant: TLabel
  409. Left = 16
  410. Top = 75
  411. Width = 96
  412. Height = 12
  413. Caption = '读总超时常量(&A):'
  414. end
  415. object lblMSec3: TLabel
  416. Left = 240
  417. Top = 76
  418. Width = 24
  419. Height = 12
  420. Caption = '毫秒'
  421. end
  422. object lblWriteTotalTimeoutMultiplier: TLabel
  423. Left = 16
  424. Top = 105
  425. Width = 96
  426. Height = 12
  427. Caption = '写总超时系数(&W):'
  428. end
  429. object lblMSec4: TLabel
  430. Left = 240
  431. Top = 106
  432. Width = 24
  433. Height = 12
  434. Caption = '毫秒'
  435. end
  436. object lblWriteTotalTimeoutConstant: TLabel
  437. Left = 16
  438. Top = 135
  439. Width = 96
  440. Height = 12
  441. Caption = '写总超时常量(&B):'
  442. end
  443. object lblMSec5: TLabel
  444. Left = 240
  445. Top = 136
  446. Width = 24
  447. Height = 12
  448. Caption = '毫秒'
  449. end
  450. object seReadIntervalTimeout: TCnSpinEdit
  451. Left = 136
  452. Top = 11
  453. Width = 97
  454. Height = 21
  455. Hint =
  456. '指定通信线路上两个字符到达之间的最大时间。'#13#10'在读取操作期间,从接' +
  457. '收到第一个字符时开始计时,'#13#10'若任意两个字符到达之间的时间间隔超过' +
  458. '这个最大'#13#10'值,则读取操作完成,返回缓冲数据。'#13#10'如果置0,表示不使' +
  459. '用间隔超时。'
  460. MaxLength = 5
  461. MaxValue = 65535
  462. MinValue = 0
  463. TabOrder = 0
  464. Value = 0
  465. end
  466. object seReadTotalTimeoutMultiplier: TCnSpinEdit
  467. Left = 136
  468. Top = 41
  469. Width = 97
  470. Height = 21
  471. Hint =
  472. '用于设定读总超时时间。'#13#10'读总超时时间 = (总超时系数 X 接收字符数)' +
  473. ' + 总超时常量'#13#10'常量和系数可分别为0。'#13#10'如果均为0,则不使用总超时' +
  474. '设定。'
  475. MaxLength = 5
  476. MaxValue = 65535
  477. MinValue = 0
  478. TabOrder = 1
  479. Value = 0
  480. end
  481. object seReadTotalTimeoutConstant: TCnSpinEdit
  482. Left = 136
  483. Top = 71
  484. Width = 97
  485. Height = 21
  486. Hint =
  487. '用于设定读总超时时间。'#13#10'读总超时时间 = (总超时系数 X 接收字符数)' +
  488. ' + 总超时常量'#13#10'常量和系数可分别为0。'#13#10'如果均为0,则不使用总超时' +
  489. '设定。'
  490. MaxLength = 5
  491. MaxValue = 65535
  492. MinValue = 0
  493. TabOrder = 2
  494. Value = 0
  495. end
  496. object seWriteTotalTimeoutMultiplier: TCnSpinEdit
  497. Left = 136
  498. Top = 101
  499. Width = 97
  500. Height = 21
  501. Hint =
  502. '用于设定写总超时时间。'#13#10'写总超时时间 = (总超时系数 X 接收字符数)' +
  503. ' + 总超时常量'#13#10'常量和系数可分别为0。'#13#10'如果均为0,则不使用总超时' +
  504. '设定。'
  505. MaxLength = 5
  506. MaxValue = 65535
  507. MinValue = 0
  508. TabOrder = 3
  509. Value = 0
  510. end
  511. object seWriteTotalTimeoutConstant: TCnSpinEdit
  512. Left = 136
  513. Top = 131
  514. Width = 97
  515. Height = 21
  516. Hint =
  517. '用于设定写总超时时间。'#13#10'写总超时时间 = (总超时系数 X 接收字符数)' +
  518. ' + 总超时常量'#13#10'常量和系数可分别为0。'#13#10'如果均为0,则不使用总超时' +
  519. '设定。'
  520. MaxLength = 5
  521. MaxValue = 65535
  522. MinValue = 0
  523. TabOrder = 4
  524. Value = 0
  525. end
  526. end
  527. end
  528. object bbtnOk: TBitBtn
  529. Left = 144
  530. Top = 288
  531. Width = 75
  532. Height = 21
  533. Caption = '确定(&O)'
  534. Default = True
  535. TabOrder = 2
  536. OnClick = bbtnOkClick
  537. end
  538. object bbtnCancel: TBitBtn
  539. Left = 224
  540. Top = 288
  541. Width = 75
  542. Height = 21
  543. Cancel = True
  544. Caption = '取消(&C)'
  545. ModalResult = 2
  546. TabOrder = 3
  547. end
  548. object cbShowHint: TCheckBox
  549. Left = 8
  550. Top = 290
  551. Width = 105
  552. Height = 17
  553. Caption = '显示提示信息'
  554. TabOrder = 1
  555. OnClick = cbShowHintClick
  556. end
  557. end