📄 11576.html
字号:
<html>
<head>
<title>Re: 请问VB通讯传送与接收binary data的问题</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 请问VB通讯传送与接收binary data的问题</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by 大头 on April 01, 1999 at 09:45:34:<p>
In Reply to: <a href="11574.html">请问VB通讯传送与接收binary data的问题</a> posted by Zive 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脚短路下所测得的结果<p>试试这个吧 !!<p><br>ReDim O_DataArray(1 To 10) As Byte<p>for i = 125 to 134 <br> O_DataArray(i-124 ) =i<br>next i<p>mscomm1.output =O_DataArray()<p><br>试试看吧!!
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<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-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -