串口通讯，如何利用siemensTC收发短消息？请指教（急）

[zilchcsdn]

我不知道给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卡什么反应也没有

我就用的同步通讯，是否一定要用异步通讯呢
我在网上查感觉资料也蛮少的，只好向大家求教：

[yenight]

我只会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

• 打赏
• 举报

回复 赞

[yenight]

要等一下的,那有一发AT命令就给你答复的,等几秒钟后再看,可能就有了,一般要等1-5秒钟吧!异步是一定的,因为这是串口通讯的方式,
以上个人观点,如果有高人再指点迷津,不胜感激!

• 打赏
• 举报

回复 赞

[zilchcsdn]

谢谢yenight(老烟虫)的指教
这么说就这样write就把AT命令发出去了？前面是否还需要指定为AT模式吗？因为我看到海所有PDU模式和block模式的

另外我等了5秒，查询ComStat.cbInQue还是0啊？
请各位指教！

• 打赏
• 举报

回复 赞

[jimzj]

短信二次开发，可以连接移动，联通，小灵通，组建自己的短信企业服务器，下带10万个客户端，详细到www.ebase168.com短信快车，二次开发

• 打赏
• 举报

回复 赞