请问用MSComm实现串口通信,是不是每一次只能接受8个字节的字符串, 问题如上,多谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 楼主认识VB吗,下面是一段VB例子:Private Sub Form_Load () ' 保存输入子串的缓冲区 Dim Instring As String ' 使用 COM1。 MSComm1.CommPort = 1 ' 9600 波特,无奇偶校验,8 位数据,一个停止位。 MSComm1.Settings = "9600,N,8,1" ' 当输入占用时, ' 告诉控件读入整个缓冲区。 MSComm1.InputLen = 0 ' 打开端口。 MSComm1.PortOpen = True ' 将 attention 命令送到调制解调器。 MSComm1.Output = "ATV1Q0" & Chr$(13) ' 确保 ' 调制解调器以"OK"响应。 ' 等待数据返回到串行端口。 Do DoEvents Buffer$ = Buffer$ & MSComm1.Input Loop Until InStr(Buffer$, "OK" & vbCRLF) ' 从串行端口读 "OK" 响应。 ' 关闭串行端口。 MSComm1.PortOpen = FalseEnd Sub注意 MSComm 控件可以采用轮询或事件驱动的方法从端口获取数据。这个简单的例子使用了轮询方法。关于事件驱动方法的例子请参阅 OnComm 事件的帮助。 Ehlib3.6的安装问题 Indy FTP使用求助 我在到入数据的时候,从execl到表,出错了,帮看看 ★★Delphi2005初体验中止_决定先暂时不使用Delphi2005了★★ 关于取PDF,文本等文件截屏 这个问题如何解决?关于显示器 在线等待,好简单的问题,来抢分啊,extended类型如何转化为integer? 如果何通过程序取得主板的序列号 帮忙用delphi写个二叉树中序遍历的程序 use ADOQuery1.SQL 怎么选择日期?(Acsess数据库) 服务器端用java,客户端用delphi,高手请进!! 请问怎样让Scrollbar实现随鼠标滚轴滚动。
Private Sub Form_Load ()
' 保存输入子串的缓冲区
Dim Instring As String
' 使用 COM1。
MSComm1.CommPort = 1
' 9600 波特,无奇偶校验,8 位数据,一个停止位。
MSComm1.Settings = "9600,N,8,1"
' 当输入占用时,
' 告诉控件读入整个缓冲区。
MSComm1.InputLen = 0
' 打开端口。
MSComm1.PortOpen = True
' 将 attention 命令送到调制解调器。
MSComm1.Output = "ATV1Q0" & Chr$(13) ' 确保
' 调制解调器以"OK"响应。
' 等待数据返回到串行端口。
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' 从串行端口读 "OK" 响应。 ' 关闭串行端口。
MSComm1.PortOpen = False
End Sub注意 MSComm 控件可以采用轮询或事件驱动的方法从端口获取数据。这个简单的例子使用了轮询方法。关于事件驱动方法的例子请参阅 OnComm 事件的帮助。