问题如上,多谢!!
解决方案 »
- char**参数传递----汇总再问
- 把代码贴出来,高手 低手都来看看,帮我优化一下
- 如何对delphi中的DBGRID里的表格设置长宽??
- 字符串处理,现在我有一个"AD|DSSF|FF|SDDDF|",现在我想删除"FF|",得到一个新的字符串"AD|DSSF|SDDDF|".请问如何做!
- LISTVIEW某单元格变颜色
- 第三方控件:flatstyle
- 凑个热闹!
- 怎样替换tstings中的一个字符串?
- 急!TRICHEDIT的文本内容如何定行间距!
- 想做个火车车次查询系统,给同学门回家查车次
- 服务器端用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 事件的帮助。