最近帮一个老师收尾一个射频卡项目，主要是应用层的，就是使用串口和单片机通信。但是这个要求很变态，需要使用Web来读写串口，但是我考虑自己写一个 ActiveX控件，但是用C++写一个纯COM+麻烦，后来看到有任用.NET来写ActiveX,但是要求客户端要装.NET FX,抓狂之下，找到了 MSCOMM32.OCX
![]()
![]()
Code
1![]()
<html>
2![]()
<head>
3![]()
<title>JavaScript串口测试</title>
4![]()
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
5![]()
6![]()
![]()
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>![]()
7![]()
<!--
8![]()
function MSComm1_OnComm()
9![]()
![]()
![]()
{
10![]()
switch(MSComm1.CommEvent)
11![]()
![]()
![]()
{
12![]()
![]()
case 1:![]()
{ window.alert("Send OK！"); break;} //发送事件
13![]()
![]()
case 2: ![]()
{ Receive();break;} //接收事件
14![]()
default: alert("Event Raised!"+MSComm1.CommEvent);;
15![]()
}
16![]()
}
17![]()
//-->
18![]()
19![]()
</SCRIPT>
20![]()
21![]()
![]()
<SCRIPT LANGUAGE=javascript FOR=MSComm1 EVENT=OnComm>![]()
22![]()
<!--
23![]()
// MSComm1控件每遇到 OnComm 事件就调用 MSComm1_OnComm()函数
24![]()
MSComm1_OnComm()
25![]()
//-->
26![]()
</SCRIPT>
27![]()
28![]()
![]()
<script language="JavaScript" type="text/JavaScript">![]()
29![]()
<!--
30![]()
31![]()
![]()
String.prototype.Blength = function()![]()
{
32![]()
var arr = this.match(/[^\x00-\xff]/ig);
33![]()
return arr == null ? this.length : this.length + arr.length;
34![]()
}
35![]()
36![]()
function OperatePort()
37![]()
![]()
![]()
{
38![]()
if(MSComm1.PortOpen==true)
39![]()
![]()
![]()
{
40![]()
![]()
try![]()
{MSComm1.PortOpen=false;
41![]()
document.getElementById("OperateButton").value="打开串口";
42![]()
}catch(ex)
43![]()
![]()
![]()
{alert(ex.message);}
44![]()
}
45![]()
![]()
else![]()
{
46![]()
![]()
try![]()
{ MSComm1.PortOpen=true;
47![]()
document.getElementById("OperateButton").value="关闭串口";
48![]()
}catch(ex)
49![]()
![]()
![]()
{alert(ex.message);}
50![]()
}
51![]()
}
52![]()
53![]()
function ConfigPort()
54![]()
![]()
![]()
{
55![]()
if(MSComm1.PortOpen==false)
56![]()
![]()
![]()
{
57![]()
![]()
try![]()
{
58![]()
MSComm1.CommPort=document.getElementById("ComName").value;
59![]()
MSComm1.Settings=document.getElementById("BaudRate").value.toString()+
60![]()
","+document.getElementById("CheckBit").value.toString()+
61![]()
","+document.getElementById("DataBits").value.toString()+
62![]()
","+document.getElementById("StopBits").value.toString();
63![]()
MSComm1.OutBufferCount =0; //清空发送缓冲区
64![]()
MSComm1.InBufferCount = 0; //滑空接收缓冲区
65![]()
alert("已配置串口COM"+MSComm1.CommPort+"\n 参数:"+MSComm1.Settings);
66![]()
![]()
}catch(ex)![]()
{alert(ex.message);}
67![]()
}
68![]()
![]()
else![]()
{ alert("请先关闭串口后再设置！");}
69![]()
}
70![]()
71![]()
function Send()
72![]()
![]()
![]()
{
73![]()
//alert(document.getElementById("txtSend").value);
74![]()
var orgstr=document.getElementById("txtSend").value;
75![]()
var newstr="";
76![]()
var hexflag=document.getElementById("isSendHex").checked;
77![]()
if(hexflag&&orgstr!="")
78![]()
![]()
![]()
{
79![]()
if(orgstr.substr(0,2)=="0x"||orgstr.substr(0,2)=="0X") orgstr=orgstr.substring(2,orgstr.length);
80![]()
if(orgstr.length%2!=0) orgstr="0"+orgstr;
81![]()
![]()
if((newstr=str2hex(orgstr,16))=="") ![]()
{alert("错误的16进制数");return false;}
82![]()
}
83![]()
![]()
try![]()
{
84![]()
MSComm1.Output=hexflag?newstr:orgstr;
85![]()
}catch(ex)
86![]()
![]()
![]()
{alert(ex.message);}
87![]()
}
88![]()
89![]()
function Receive()
90![]()
![]()
![]()
{
91![]()
//alert("InBufferCount::"+MSComm1.InBufferCount);
92![]()
document.getElementById("txtReceive").value += MSComm1.Input;
93![]()
//alert("InBufferCount::"+MSComm1.InBufferCount);
94![]()
}
95![]()
96![]()
function ClearReceived()
97![]()
![]()
![]()
{
98![]()
document.getElementById("txtReceive").innerText="";
99![]()
}
100![]()
101![]()
-->
102![]()
103![]()
</script>
104![]()
105![]()
</head>
106![]()
<body>
107![]()
108![]()
<form name="form1">
109![]()
110![]()
111![]()
<fieldset style="width:200px;height:250px;text-align:center;">
112![]()
<legend>配置串口</legend>
113![]()
<div style="float:left;width:200px">
114![]()
<br/>
115![]()
<span>串口号:</span>
116![]()
<select name="ComName" id="ComName" style="width:75px" >
117![]()
<option value="1" >COM1</option>
118![]()
<option value="2" >COM2</option>
119![]()
<option value="3" selected >COM3</option>
120![]()
<option value="4" >COM4</option>
121![]()
</select>
122![]()
<br/>
123![]()
<span>波特率:</span>
124![]()
<select name="BaudRate" id="BaudRate" style="width:75px" >
125![]()
<option value="9600" selected >9600</option>
126![]()
<option value="57600" >57600</option>
127![]()
<option value="115200" >115200</option>
128![]()
</select>
129![]()
<br/>
130![]()
131![]()
<span>校验位:</span>
132![]()
<select name="CheckBit" id="CheckBit" style="width:75px" >
133![]()
<option value="N" selected >无NONE</option>
134![]()
<option value="O" >奇ODD</option>
135![]()
<option value="E" >偶EVEN</option>
136![]()
</select>
137![]()
<br/>
138![]()
139![]()
<span>数据位:</span>
140![]()
<input type=text id="DataBits" name="DataBits" value=8 style="width:75px;height:20px">
141![]()
<br/>
142![]()
143![]()
<span>停止位:</span>
144![]()
<input type=text id="StopBits" name="StopBits" value=1 style="width:75px;height:20px">
145![]()
<br/>
146![]()
<br/>
147![]()
<input type="button" id="ConfigButton" style="width:80px;height:30px;font-size:13px" name="ConfigButton" value="配置串口" onClick="ConfigPort()">
148![]()
<input type="button" id="OperateButton" style="width:80px;height:30px;font-size:13px" name="OperateButton" value="打开串口" onClick="OperatePort()">
149![]()
</div>
150![]()
</fieldset>
151![]()
152![]()
153![]()
154![]()
<fieldset style="width:200px;height:250px;text-align:center;">
155![]()
<legend>发送区域</legend>
156![]()
<div style="float:left;">
157![]()
<textarea id="txtSend" name="txtSend" style="width:200px;height:160px"></textarea>
158![]()
<br/>
159![]()
<span><input id="isSendHex" name="isSendHex" type="checkbox" checked="0" />16进制</span>
160![]()
<input type="button" id="SendButton" style="width:100px;height:30px" name="SendButton" value="发送" onClick="Send()">
161![]()
</div>
162![]()
</fieldset>
163![]()
164![]()
<fieldset style="width:200px;height:250px;text-align:center;">
165![]()
<legend>接收区域</legend>
166![]()
<div style="float:left;">
167![]()
<textarea id="txtReceive" READONLY=TRUE name="txtReceive" style="width:200px;height:160px"></textarea>
168![]()
<br/>
169![]()
<span><input id="isReceiveHex" name="isReceiveHex" type="checkbox" />16进制</span>
170![]()
<input type="button" id="ClearButton" style="width:100px;height:30px" name="ClearButton" value="清空" onClick="ClearReceived()">
171![]()
</div>
172![]()
</fieldset>
173![]()
174![]()
175![]()
176![]()
177![]()
</form>
178![]()
179![]()
<OBJECT id=MSComm1 CLASSID="clsid:648A5600-2C6E-101B-82B6-000000000014"
180![]()
codebase="MSCOMM32.OCX" type="application/x-oleobject" style="LEFT:54px;TOP:14px" >
181![]()
<PARAM NAME="CommPort" VALUE="3"/>
182![]()
<PARAM NAME="DataBits" VALUE="8"/>
183![]()
<PARAM NAME="StopBits" VALUE="1"/>
184![]()
<PARAM NAME="BaudRate" VALUE="9600"/>
185![]()
<PARAM NAME="Settings" VALUE="9600,N,8,1"/>
186![]()
187![]()
<PARAM NAME="RTSEnable" VALUE="1"/>
188![]()
<PARAM NAME="DTREnable" VALUE="1"/>
189![]()
<PARAM NAME="Handshaking" VALUE="0"/>
190![]()
<PARAM NAME="NullDiscard" VALUE="0"/>
191![]()
<PARAM NAME="ParityReplace" VALUE="?"/>
192![]()
193![]()
<PARAM NAME="EOFEnable" VALUE="0"/>
194![]()
<PARAM NAME="InputMode" VALUE="0"/>
195![]()
<PARAM NAME="InBufferSize" VALUE="1024"/>
196![]()
<PARAM NAME="InputLen" VALUE="0"/>
197![]()
<PARAM NAME="OutBufferSize" VALUE="512"/>
198![]()
199![]()
<PARAM NAME="SThreshold" VALUE="0"/>
200![]()
<PARAM NAME="RThreshold" VALUE="1"/>
201![]()
202![]()
</OBJECT>
203![]()
204![]()
205![]()
</body>
206![]()
</html>
![]()
![]()
Code
1 <script language="JavaScript">
2
3 var share1=String.fromCharCode(0xFF);
4
5 </script>
6
7
8
9 <script language="VBScript">
10
11 sub vbsend
12
13 Dim s(0)
14
15 s(0)=&HEE
16
17 MSComm1.Output=CHRW(&HFF)
18
19 end sub
20
21 </script>
22
23 <input type="button" onclick="vbscript:vbsend" value="VBTest" >
简单的HTML+JS代码:
Code1
<html> 2
<head> 3
<title>JavaScript串口测试</title>4
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />5
6
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
7
<!-- 8
function MSComm1_OnComm() 9
{ 10
switch(MSComm1.CommEvent)11
{12
case 1:{ window.alert("Send OK！"); break;} //发送事件13
case 2: { Receive();break;} //接收事件14
default: alert("Event Raised!"+MSComm1.CommEvent);;15
} 16
} 17
//--> 18
19
</SCRIPT>20
21
<SCRIPT LANGUAGE=javascript FOR=MSComm1 EVENT=OnComm> 22
<!--23
// MSComm1控件每遇到 OnComm 事件就调用 MSComm1_OnComm()函数24
MSComm1_OnComm()25
//--> 26
</SCRIPT> 27
28
<script language="JavaScript" type="text/JavaScript"> 29
<!-- 30
31
String.prototype.Blength = function(){ 32
var arr = this.match(/[^\x00-\xff]/ig); 33
return arr == null ? this.length : this.length + arr.length; 34
} 35
36
function OperatePort()37
{38
if(MSComm1.PortOpen==true)39
{40
try{MSComm1.PortOpen=false;41
document.getElementById("OperateButton").value="打开串口";42
}catch(ex)43
{alert(ex.message);} 44
}45
else{46
try{ MSComm1.PortOpen=true;47
document.getElementById("OperateButton").value="关闭串口";48
}catch(ex)49
{alert(ex.message);} 50
}51
}52
53
function ConfigPort()54
{55
if(MSComm1.PortOpen==false)56
{ 57
try{58
MSComm1.CommPort=document.getElementById("ComName").value;59
MSComm1.Settings=document.getElementById("BaudRate").value.toString()+60
","+document.getElementById("CheckBit").value.toString()+61
","+document.getElementById("DataBits").value.toString()+62
","+document.getElementById("StopBits").value.toString(); 63
MSComm1.OutBufferCount =0; //清空发送缓冲区64
MSComm1.InBufferCount = 0; //滑空接收缓冲区 65
alert("已配置串口COM"+MSComm1.CommPort+"\n 参数:"+MSComm1.Settings); 66
}catch(ex){alert(ex.message);}67
}68
else{ alert("请先关闭串口后再设置！");}69
}70
71
function Send()72
{73
//alert(document.getElementById("txtSend").value);74
var orgstr=document.getElementById("txtSend").value; 75
var newstr="";76
var hexflag=document.getElementById("isSendHex").checked;77
if(hexflag&&orgstr!="")78
{79
if(orgstr.substr(0,2)=="0x"||orgstr.substr(0,2)=="0X") orgstr=orgstr.substring(2,orgstr.length);80
if(orgstr.length%2!=0) orgstr="0"+orgstr; 81
if((newstr=str2hex(orgstr,16))=="") {alert("错误的16进制数");return false;}82
}83
try{84
MSComm1.Output=hexflag?newstr:orgstr; 85
}catch(ex) 86
{alert(ex.message);}87
}88
89
function Receive()90
{ 91
//alert("InBufferCount::"+MSComm1.InBufferCount);92
document.getElementById("txtReceive").value += MSComm1.Input; 93
//alert("InBufferCount::"+MSComm1.InBufferCount); 94
}95
96
function ClearReceived()97
{98
document.getElementById("txtReceive").innerText="";99
} 100
101
--> 102
103
</script> 104
105
</head> 106
<body>107
108
<form name="form1"> 109
110
111
<fieldset style="width:200px;height:250px;text-align:center;">112
<legend>配置串口</legend>113
<div style="float:left;width:200px"> 114
<br/> 115
<span>串口号:</span>116
<select name="ComName" id="ComName" style="width:75px" >117
<option value="1" >COM1</option>118
<option value="2" >COM2</option>119
<option value="3" selected >COM3</option>120
<option value="4" >COM4</option> 121
</select> 122
<br/> 123
<span>波特率:</span>124
<select name="BaudRate" id="BaudRate" style="width:75px" >125
<option value="9600" selected >9600</option>126
<option value="57600" >57600</option>127
<option value="115200" >115200</option> 128
</select> 129
<br/>130
131
<span>校验位:</span>132
<select name="CheckBit" id="CheckBit" style="width:75px" >133
<option value="N" selected >无NONE</option>134
<option value="O" >奇ODD</option>135
<option value="E" >偶EVEN</option> 136
</select> 137
<br/> 138
139
<span>数据位:</span>140
<input type=text id="DataBits" name="DataBits" value=8 style="width:75px;height:20px">141
<br/>142
143
<span>停止位:</span>144
<input type=text id="StopBits" name="StopBits" value=1 style="width:75px;height:20px">145
<br/>146
<br/>147
<input type="button" id="ConfigButton" style="width:80px;height:30px;font-size:13px" name="ConfigButton" value="配置串口" onClick="ConfigPort()"> 148
<input type="button" id="OperateButton" style="width:80px;height:30px;font-size:13px" name="OperateButton" value="打开串口" onClick="OperatePort()"> 149
</div> 150
</fieldset>151
152
153
154
<fieldset style="width:200px;height:250px;text-align:center;">155
<legend>发送区域</legend>156
<div style="float:left;">157
<textarea id="txtSend" name="txtSend" style="width:200px;height:160px"></textarea> 158
<br/>159
<span><input id="isSendHex" name="isSendHex" type="checkbox" checked="0" />16进制</span>160
<input type="button" id="SendButton" style="width:100px;height:30px" name="SendButton" value="发送" onClick="Send()"> 161
</div> 162
</fieldset>163
164
<fieldset style="width:200px;height:250px;text-align:center;">165
<legend>接收区域</legend> 166
<div style="float:left;">167
<textarea id="txtReceive" READONLY=TRUE name="txtReceive" style="width:200px;height:160px"></textarea> 168
<br/>169
<span><input id="isReceiveHex" name="isReceiveHex" type="checkbox" />16进制</span>170
<input type="button" id="ClearButton" style="width:100px;height:30px" name="ClearButton" value="清空" onClick="ClearReceived()">171
</div>172
</fieldset> 173
174
175
176
177
</form> 178
179
<OBJECT id=MSComm1 CLASSID="clsid:648A5600-2C6E-101B-82B6-000000000014"180
codebase="MSCOMM32.OCX" type="application/x-oleobject" style="LEFT:54px;TOP:14px" >181
<PARAM NAME="CommPort" VALUE="3"/> 182
<PARAM NAME="DataBits" VALUE="8"/> 183
<PARAM NAME="StopBits" VALUE="1"/> 184
<PARAM NAME="BaudRate" VALUE="9600"/> 185
<PARAM NAME="Settings" VALUE="9600,N,8,1"/> 186
187
<PARAM NAME="RTSEnable" VALUE="1"/> 188
<PARAM NAME="DTREnable" VALUE="1"/> 189
<PARAM NAME="Handshaking" VALUE="0"/> 190
<PARAM NAME="NullDiscard" VALUE="0"/> 191
<PARAM NAME="ParityReplace" VALUE="?"/>192
193
<PARAM NAME="EOFEnable" VALUE="0"/> 194
<PARAM NAME="InputMode" VALUE="0"/> 195
<PARAM NAME="InBufferSize" VALUE="1024"/> 196
<PARAM NAME="InputLen" VALUE="0"/> 197
<PARAM NAME="OutBufferSize" VALUE="512"/> 198
199
<PARAM NAME="SThreshold" VALUE="0"/> 200
<PARAM NAME="RThreshold" VALUE="1"/> 201
202
</OBJECT>203
204
205
</body> 206
</html>
但是有一个问题，使用脚本的方式调用MSCOMM32 ，发送单字节的 数据不能超过 7FH，这个问题如果在强类型的 VB中，可以以字节数组的方式发送，凡是在script中，都是弱类型的，尝试了各种办法，甚至还Javascript和VBsvript混合使用，使用 VBS的各种 字符串操作函数，最终没有解决。
如果大家找到方法，请告诉我啊！
测试代码:
Code1 <script language="JavaScript">
2
3 var share1=String.fromCharCode(0xFF);
4
5 </script>
6
7
8
9 <script language="VBScript">
10
11 sub vbsend
12
13 Dim s(0)
14
15 s(0)=&HEE
16
17 MSComm1.Output=CHRW(&HFF)
18
19 end sub
20
21 </script>
22
23 <input type="button" onclick="vbscript:vbsend" value="VBTest" >
浙公网安备 33010602011771号