📄 9972.html
字号:
<html>
<head>
<title>Re: 无法从串列埠送出CHR$(128~254)之字元码</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 无法从串列埠送出CHR$(128~254)之字元码</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:kelly_5684@yahoo.com">Andy </a> on February 09, 1999 at 11:31:02:<p>
In Reply to: <a href="8294.html">无法从串列埠送出CHR$(128~254)之字元码</a> posted by lison on December 14, 1998 at 17:10:18:<p>
: 缘起: vb6.0内有一通讯元件MSCOMM32.OCX(或vb6.0_16位元版MSCOMM16.OCX),使用上有<br>: 颇多之限制.<p>: 例如:<br>: MSCOMM32.OCX :无法从串列埠送出CHR$(128~254)之字元码<br>: MSCOMM16.OCX :无法从串列埠送出CHR$(&H0)及CHR$(&HFF)这两个字元码 <p>: 所以想利用WIN32C API函式来完成一简易通讯程式却一直不得其门而入<br>: 若有先进于此方面有心得,盼能拨沉指导不胜感激.<p>: <br>: 说明: 在WINDOWS95里,串列埠与其它的通讯设备都被视为档案来处理,故以档案开/关<br>: 和读/写的函式来处理串列埠.<br>: 1.从呼叫CreatFile函式开始:CreatFile函式可将串列埠打开为读取或写入之用,<br>: 而且传回此打开的串列埠之控制标帜(handle),由于CreatFile函式是个通用型<br>: 函式,故内容颇为复杂.<br>: 底下为小弟所写之程式,但其传回值(hcomm)却使终传回-1,应该是参数的传输上出了问题<p>: <br>: ****从API检视员COPY下来之宣告 *******<br>: Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long<br>: **************************************<p>: Public Const GENERIC_WRITE = &H40000000<br>: Public Const OPEN_EXISTING& = 3<br>: Public Const FILE_FLAG_OVERLAPPED = &H40000000<p>: <br>: Function RDSEC$()<br>: Dim hcomm As Long<br>: hcomm = CreateFile("COM2", ByVal GENERIC_WRITE, 0&,0&, ByVal OPEN_EXISTING, ByVal FILE_FLAG_OVERLAPPED, 0&)<br>: hcommerror& = GetLastError()<br>: End Function<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9972-->
</ul><!--end: 9972-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -