串口通信问题, 请问Delphi中有没有直接从计算机的串口取数据的控件? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 给你个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 delphi中也能用mscomm在菜单component里import activex control然后找到mscomm导入就行了 如果不用控件,必须用API函数完成!!! 用控件简单点,不过比api开发功能差点 用API不行,在WINDOWS下不行的,用控件要好一点 在delphi中找不到mscomm啊,怎么办???? mscomm是Active控件,你要导进去的 为什么不能实现界面和XML文件里操作同步? EAccessViolation 地址访问错误 高手请进 delphi 基础 读取XML的时候为什么报access violation at address的错,高手请教 新世界的中国需要什么? 如何把delphi函数定义换成vb定义 这是如何做的 请问,我该怎么改我的包??? 各位大虾,谁有无纸考试系统的资料?帮帮我吧. 数据库与线程 500分求解:如何将DelphiX组件中DxDraw上所画的场景保存为位图? 求助!还是StringGrid!
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
在菜单component里import activex control
然后找到mscomm导入就行了