📄 11574.html
字号:
<html>
<head>
<title>请问VB通讯传送与接收binary data的问题</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>请问VB通讯传送与接收binary data的问题</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:zivemail@mail.ttn.com.tw">Zive</a> on April 01, 1999 at 09:05:27:<p>
请问各位VB高手：<br> ( VB 4.0/5.0 专业版 Win95)<br> VB在4.0中的Mscomm control对于hex 80H 以上的字元无法正确的传送与接<br>收而在讨论区中经常见到有人提到VB 5.0以上已经修正此一Bug但经小弟测<br>试VB 5.0的Mscomm control对于hex 80H 以上的字元依然无法正确的接收请问<br>该Bug是否已经真正的修正? 现在的VB 6.0是否也有相同的问题?或者有其他<br>我不知道的方法可解决此一问题?<br> 小弟目前想购买VB 6.0升级版解决此一问题但却担心此一Bug在VB 6.0依<br>然存在,请各位高手能为小弟澄清此一问题<br>以下附上小弟的一段小小的测试程式<p>Dim FileData(10) As Byte<p>Private Sub Command1_Click()<br> FileData(1) = 254<br> MSComm1.Output = Chr$(FileData(1))<br>End Sub<p>Private Sub Form_Load()<br> MSComm1.PortOpen = True<br>End Sub<p>Private Sub Form_Unload(Cancel As Integer)<br> MSComm1.PortOpen = False<br>End Sub<p>Private Sub MSComm1_OnComm()<br> Dim TmpStr As String<br> Dim StrLen As Long, I As Long<br> <br> While MSComm1.InBufferCount > 0<br> TmpStr = MSComm1.Input<br> StrLen = Len(TmpStr)<br> For I = 1 To StrLen<br> FileData(I) = CByte(Asc(Mid(TmpStr, I, 1)))<br> Next I<br> TmpStr = ""<br> Wend<br>End Sub<br>'在<br>'Private Sub Command1_Click()<br>' FileData(1) = 254<br>' MSComm1.Output = Chr$(FileData(1))<br>'End Sub<br>'当中 FileData(1) 小于 128 以下时传送及接收皆正常<br>'但是当 FileData(1) 大于等于 128 以上时某些特定 Code 传送正常<br>'但接收却为空字元 "" ,如上例: 当 FileData(1) = 254<br>'Private Sub MSComm1_OnComm() 程式执行结果如下:<br>' MSComm1.InBufferCount > 0 为 Ture<br>' 当 TmpStr = MSComm1.Input 后<br>' StrLen = Len(TmpStr) 时 StrLen = 0<br>'即 MSComm1.InBufferCount > 0 但 TmpStr = MSComm1.Input 却为空字元 ""<br>'注:以上测试方式为通讯埠2,3脚短路下所测得的结果
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11574-->
<!--top: 11576--><li><a href="11576.html">Re: 请问VB通讯传送与接收binary data的问题</a> <b>大头</b> <i>09:45:34 4/01/99</i>
(<!--responses: 11576-->1)
<ul><!--insert: 11576-->
<!--top: 11737--><li><a href="11737.html">Re: 请问VB通讯传送与接收binary data的问题</a> <b>dar</b> <i>18:07:31 4/07/99</i>
(<!--responses: 11737-->0)
<ul><!--insert: 11737-->
</ul><!--end: 11737-->
</ul><!--end: 11576-->
</ul><!--end: 11574-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -