串口通讯,如何利用siemensTC收发短消息?请指教(急)

zilchcsdn 2004-05-08 12:43:05
我不知道给sim卡发送AT命令合获得信息反馈是怎么写的,请多多指教

fState = WriteFile( hCom, "AT+CGMI=<CR>",dwLength, &dwLength, NULL ) ;

ClearCommError( hCom, &dwErrorFlags, &ComStat ) ;
dwLength = ComStat.cbOutQue;

fState = ReadFile( hCom, lpszBlock, dwLength, &dwLength, NULL ) ;

我想查询得到手机厂家,但象上面这样写ComStat.cbOutQue总是0,SIM卡什么反应也没有

我就用的同步通讯,是否一定要用异步通讯呢
我在网上查感觉资料也蛮少的,只好向大家求教:
...全文
111 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jimzj 2004-06-15
短信二次开发,可以连接移动,联通,小灵通,组建自己的短信企业服务器,下带10万个客户端,详细到www.ebase168.com短信快车,二次开发
  • 打赏
  • 举报
回复
zilchcsdn 2004-05-08
谢谢yenight(老烟虫)的指教
这么说就这样write就把AT命令发出去了?前面是否还需要指定为AT模式吗?因为我看到海所有PDU模式和block模式的

另外我等了5秒,查询ComStat.cbInQue还是0啊?
请各位指教!
  • 打赏
  • 举报
回复
yenight 2004-05-08
要等一下的,那有一发AT命令就给你答复的,等几秒钟后再看,可能就有了,一般要等1-5秒钟吧!异步是一定的,因为这是串口通讯的方式,
以上个人观点,如果有高人再指点迷津,不胜感激!
  • 打赏
  • 举报
回复
yenight 2004-05-08
我只会VB,不会C

给一段VB代码给你看一看!

Private Sub Form_Load()
'初始化串口

Me.ATCom.Settings = "2400,n,8,1"
Me.ATCom.CommPort = 3
Me.ATCom.InputLen = 0
Me.ATCom.PortOpen = True

'初始化Modem
Me.ATCom.Output = "AT+CMGF=1" & vbCr
End Sub

Private Sub Form_Unload(Cancel As Integer)
Me.ATCom.PortOpen = False
End Sub


Private Sub CmdAt_Click()
'Me.ATCom.Output = Me.TxtATComm.Text & vbCr


With Me.ATCom
.Output = "AT+CMGS=" & """13970740062""" & vbCr'发送AT命令到Modem
Do
DoEvents
bt$ = bt$ & .Input
Debug.Print bt$ '返回调试信息,此处正确
'如果返回串中包含">"字符则可以发达短信
Loop Until InStr(bt$, ">") > 1 Or InStr(bt$, "ERR") > 1


If InStr(bt$, ">") > 1 Then
.Output = "this is test" & vbKeyControl & Chr(26)
Else
MsgBox "wrong" '出错
End If
End With
End Sub
  • 打赏
  • 举报
回复
相关推荐
发帖
移动开发其他问题
加入

777

社区成员

移动平台 其他移动相关
申请成为版主
帖子事件
创建了帖子
2004-05-08 12:43
社区公告
暂无公告