Question

如何用Delphi开发串口通信程序

Answer 1

(function() { var impMonitorUrls = []; var clickMonitorUrls = []; function visitUrl(url) { var img = new Image(); img.src = url; return img; } function visitAllUrls(urls) { for (var i = 0; i < urls.length; i++) { visitUrl(urls[i]); } } function addEventListener(node, event, func, useCapture) { node = node || document; useCapture = useCapture || false; if (node.addEventListener) { node.addEventListener(event, func, useCapture); } else { node.attachEvent('on' + event, func); } } function init() { var imgLink = document.getElementById('img_link'); if (imgLink) { addEventListener(imgLink, 'click', function() { visitAllUrls(clickMonitorUrls); }, false); } } function req_imp12() { visitUrl("https://eduad.baidu.com/impression/wenku_post_jsonp=XbOgRJKFn1O6HrBdMDfx-GfbP0JNvNxIdfz0ID7lDv9S2dGMBHyMO6fTIOJxzluttOCdNJa1dSYkGIhfEXETYova1O-6FJmpBzugbV4_gXxbGBztgLT1hx3C2DUxPCTDy4sNg2oXuQNTBEARK5wEdBZ-guHhBuvv5qoCehzRlWEUWwS1aLxoBb3cGYtt5xvXFs4YRJIpvyd02ANt1QjX2WgSR8w94EIJoxVupYyNubvZPaEMRcI_1guTgFlnO23aSZ0ebO9hlV6RH58_36BfD7XfonZzkW1GT8f6ijJUh3L4S1Qv2JI8PWZ896NOFhB1zl0_8Uh0hUAEMUgGWp75DUAbFTLP70FUojR2gPCVVPgxhxBauvMLiTn_5A3iBCyHgrwaF7AE0KFnpv3yhyT5ESsG6s8bI8e4uSsAgTBMvbRZ__48AqAUB7N-p-pMmTa4UejyQIkVZsJ08SVSYJ7W9a4uoWBek_mxn9f7I8MsESiEu_DEqFAItJTZdaSvioskIvXPoAbg_D6Iw0n0tQgDI1FOpgzqrMSqnGuj_QnG0BFaiQ0nRZeHOnvwp8mmYjYRh9AP3TuReC_LtJANtzt48_7TAl6FziKEeCExY9NCUv3ciQAVGtgO8v5pke3Hz0tuJW6IvtUB-Hy9WAKriVFpTm_xQXMf20_KALQ-icbTJPx--fTXBW8vTWdUpJmdIRWbhpk0s8zHWppsCNap8fLjJHGBOtp5mWyullvHpMJNFzM=&price=0"); visitAllUrls(impMonitorUrls); init(); } if (window.attachEvent) { window.attachEvent('onload', req_imp12); } else if (window.addEventListener) { window.addEventListener('load', req_imp12, false); } }) (); .product { position: relative; } .adv-logo { position: absolute; bottom: 1px; z-index: 100; } .ad-label { left: 1px; } .dsp-logo { right: 1px; }
(window.cproArray = window.cproArray || []).push({ id: "u3054369" });
下载文档到电脑，方便使用
1下载券5.0分(高于99%的文档)
下载
还剩7页未读，继续阅读
定制HR最喜欢的简历
我要定制简历
.CvnKDP {margin: 20px auto 30px;text-align: center;}.CvnKDP .XFmkBQ {margin-bottom: 20px;}.CvnKDP .QimbXx {margin-right: 10px;font-size: 14px;color: #333;display: inline-block;overflow: hidden;white-space: nowrap;text-overflow: ellipsis;vertical-align: bottom;max-width: 320px;}.CvnKDP .QimbXx font {color: #333!important;}.CvnKDP .UlEXPx {font-size: 13px;color: #666;}.CvnKDP .HMTJvz {display: inline-block;border: 1px solid #2fad85;border-radius: 2px;}.CvnKDP .HMTJvz a {display: block;padding: 12px 24px;font-size: 18px;color: #2fad86;background-color: #fff;}.CvnKDP .HMTJvz a:hover {color: #fff;background-color: #2fad85;text-decoration: none;}朵利蒙delphi 一级delphi代理商广告查看详情(function(win){win.ecom = win.ecom || {};win.ecom.pl2 = win.ecom.pl2 || {};win.ecom.pl2.imTimesign = parseInt("102" || 0, 10);win.ecom.pl2.searchId = "28171e6b67de8bbe";})(window);(function(a){function b(d){var c=location.href.match("debug=1");var g=window.jQuery||{};if(!c){try{d(a.pl2,g)}catch(f){}}else{d(a.pl2,g)}}a.pl2.run=function(d,c){if(c||arguments.length==1){bds.ready(function(){b(d)})}else{b(d)}};a.pl2.q=function(f,g){g=g||document;if(g.getElementsByClassName){return g.getElementsByClassName(f)}else{var d=[];var c=g.all||g.getElementsByTagName("*");var e=c.length;f=f.replace(/\-/g,"\\-");var h=new RegExp("(^|\\s)"+f+"(\\s|$)");while(--e>=0){if(h.test(c[e].className)){d.push(c[e])}}return d}}})(window.ecom);(function(v){var h=undefined,g=undefined;var l=0,k=0;var e=0;var o=0;var i=0;var d=0;var m=0;var b=0;var t=0;var r=/link\url\=([^\&]+)/;var n=/\url\=([^\.]+)\./;function s(){var y=t.href;var x=r.exec(y)||n.exec(y);return xx[1]:false}function u(z){var x=s();if(x!==false){var y=q(x,z);p(y)}}function p(z){var x="&ck="+[z,e,b,l,k,h,g,m].join(".");if(t.href){var y=t.href;if(y.indexOf("&ck=")==-1){t.href+=x}else{t.href=y.replace(/&ck=[\d.]*/,x)}}}function q(A,C){var B=0;for(var z=0;z<(((e*C)%99)+9);z++){var y=A.length<20A.length:20;B+=A.charCodeAt((b*z)%A.length)}return B}function w(x){x=x||window.event;e++;if(h===undefined){h=x.clientX}if(g===undefined){g=x.clientY}o=new Date().getTime()}function f(y,x){y=y||window.event;t=y.target||y.srcElement;while(t&&t.tagName!="A"){t=t.parentNode}i=new Date().getTime();b=9999;l=y.clientX;k=y.clientY;if(o===0){m=0}else{m=i-o}u(x)}function j(y,x){d=new Date().getTime();b=d-i;u(x)}function c(C,z,B){var A,x,y;for(y in z){A=z[y];x=B[y];if(window.attachEvent){C.attachEvent("on"+A,x)}else{C.addEventListener(A,x,false)}}}function a(x){return[function(y){w(y)},function(y){f(y,x)},function(y){j(y,x)}]}v.ck=function(B,A){if(B.length===undefined){B=[B]}var x=B.length;var y=0;var z=a(A);for(;y<x;y++){c(B[y],["mouseover","mousedown","mouseup"],z)}}})(window.ecom.pl2);window.ecom.pl2.run(function(c){var e=c.q("mAKset");for(var b=0;b<e.length;b++){var a=e[b];var d=a.getElementsByTagName("A");c.ck(d,window.ecom.pl2.imTimesign)}},false);
/* pc阅读页3-4页间（新） */
var cpro_id = "u2845472";
(window.cproArray = window.cproArray || []).push({ id: "u3054371" });
在设计时无效，在运行时为只读。
语法object.CDHolding
设置值：CDHolding属性的设置值为：设置描述
TrueCarrierDetect线为高电平FalseCarrierDetect线为低电平
说明：注意当CarrierDetect线为高电平(CDHolding=True)且超时时，MSComm控件设置CommEvent属性为comEventCDTO（CarrierDetect超时错误），并产生OnComm事件。注意在主机应用程序中捕获一个丢失的传输是特别重要的，例如一个公告板，因为呼叫者可以随时挂起（放弃传输）。
CarrierDetect也被称为ReceiveLineSignalDetect(RLSD)。数据类型Boolean
DSRHolding属性：确定DataSetReady(DSR)线的状态。DataSetReady信号由调制解调器发送到相连计算机，指示作好操作准备。该属性在设计时无效，在运行时为只读。语法：object.DSRHolding
object所在处表示对象表达式，其值是“应用于”列表中的对象。DSRHolding属性返回以下值：值描述
TrueDataSetReady线高FalseDataSetReady线低
说明：当DataSetReady线为高电平(DSRHolding=True)且超时时，MSComm控件设置CommEvent属性为comEventDSRTO（数据准备超时）并产生OnComm事件。
当为DataTerminalEquipment(DTE)机器写DataSetReady/DataTerminalReady握手例程时该属性是十分有用的。数据类型：Boolean
Settings属性:设置并返回波特率、奇偶校验、数据位、停止位参数。
语法:object.Settings[=value]
说明：当端口打开时，如果value非法，则MSComm控件产生错误380（非法属性值）。Value由四个设置值组成，有如下的格式："BBBB,P,D,S"
BBBB为波特率，P为奇偶校验，D为数据位数，S为停止位数。value的缺省值是："9600,N,8,1"
InputLen属性：设置并返回Input属性从接收缓冲区读取的字符数。
语法object.InputLen[=value]
InputLen属性语法包括下列部分：
value整型表达式，说明Input属性从接收缓冲区中读取的字符数。
说明：InputLen属性的缺省值是0。设置InputLen为0时，使用Input将使MSComm控件读取接收缓冲区中全部的内容。
若接收缓冲区中InputLen字符无效，Input属性返回一个零长度字符串("")。在使用Input前，用户可以选择检查InBufferCount属性来确定缓冲区中是否已有需要数目的字符。该属性在从输出格式为定长数据的机器读取数据时非常有用。
EOFEnable属性：确定在输入过程中MSComm控件是否寻找文件结尾(EOF)字符。如果找到EOF字符，将停止输入并激活OnComm事件，此时CommEvent属性设置为comEvEOF，
语法：object.EOFEnable[=value]EOFEnable属性语法包括下列部分：
value布尔表达式，确定当找到EOF字符时，OnComm事件是否被激活，如“设置值”中所描述。
value的设置值：
True当EOF字符找到时OnComm事件被激活。
False（缺省）当EOF字符找到时OnComm事件不被激活。
说明：当EOFEnable属性设置为False，OnComm控件将不在输入流中寻找EOF字符。
错误消息（MSComm控件）
下表列出MSComm控件可以捕获的错误：
值描述
380无效属性值comInvalidPropertyValue383属性为只读comSetNotSupported394属性为只读comGetNotSupported8000端口打开时操作不合法comPortOpen8001超时值必须大于0
8002无效端口号comPortInvalid8003属性只在运行时有效8004属性在运行时为只读
8005端口已经打开comPortAlreadyOpen8006设备标识符无效或不支持该标识符8007不支持设备的波特率8008指定的字节大小无效8009缺省参数错误
8010硬件不可用（被其它设备锁定）8011函数不能分配队列
8012设备没有打开comNoOpen8013设备已经打开
8014不能使用comm通知
8015不能设置comm状态comSetCommStateFailed8016不能设置comm事件屏蔽
8018仅当端口打开时操作才有效comPortNotOpen8019设备忙
8020读comm设备错误comReadError
8021为该端口检索设备控制块时的内部错误comDCBError