串口通信问题，

zifeiyu711 2003-02-26 04:19:45

请问Delphi中有没有直接从计算机的串口取数据的控件？

...全文

26 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

Sunny21 2003-04-22

打赏
举报

mscomm是Active控件，你要导进去的

bluebuilder 2003-04-22

打赏
举报

在delphi中找不到mscomm啊，怎么办？？？？

xxdihai30 2003-03-20

打赏
举报

用API不行，在WINDOWS下不行的，用控件要好一点

citytramper 2003-03-05

打赏
举报

推荐api

Anajian 2003-03-05

打赏
举报

suuare 2003-03-05

打赏
举报

UP!

hjb8000 2003-02-27

打赏
举报

如果不用控件，必须用API函数完成！！！

dxwin 2003-02-27

打赏
举报

用控件简单点，不过比api开发功能差点

dxwin 2003-02-26

打赏
举报

delphi中也能用mscomm
在菜单component里import activex control
然后找到mscomm导入就行了

qiume 2003-02-26

打赏
举报

给你个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 = False
End Sub

qiume 2003-02-26