★☆★ 关于手机短信收发（用AT指令） ★☆★ ( 积分: 200 )

  • 主题发起人 主题发起人 唐佐平
  • 开始时间 开始时间
唐

唐佐平

Unregistered / Unconfirmed
GUEST, unregistred user!
谁能给我个用AT指令操作手机的Delphi例子：
要求：
1、用mscomm控件或其它，将用到的控件发给我，
2、手机设备连接在COM口上，
3、使用AT指令，
4、演示收、发短信，删除短信，设置短信中心号码等操作，
E_Mail：Tang_717@163.com
收到DEMO测试后就给分，谢谢
 
谁能给我个用AT指令操作手机的Delphi例子：
要求：
1、用mscomm控件或其它，将用到的控件发给我，
2、手机设备连接在COM口上，
3、使用AT指令，
4、演示收、发短信，删除短信，设置短信中心号码等操作，
E_Mail：Tang_717@163.com
收到DEMO测试后就给分，谢谢
 
已经有现成的了.


http://www.delphibbs.com/delphibbs/dispq.asp?lid=2991449
 
有....但是是SPPCOM控件的.
 
yjwnnit：
用什么控件问题不大，
请将控件一同发给我就行了，谢谢了
 
http://www.01cn.net/cgi-bin/topic_show.cgi?id=345&h=1
 
千中元：
很感谢您能回复我的帖子，也很谢谢你提供的AT指令资料，
但我还有些疑问，就是怎样在Delphi中使用这些AT指令？
 
BCB中：
http://www.01cn.net/cgi-bin/topic_show.cgi?id=1696&h=1&bpg=1&age=0
相信对自己的摸索有帮助。
因为我没接触过这方面的开发（即实战经验），可以问一下我提到的这两个帖子中提问和回复的几位
 
我有一个现成的例子，想要的话，把邮箱说说！
 
to alisha
能给我发一份吗？谢谢
thru_sky@163.com
 
alisha兄弟等着后面邮件列表吧：）
建议如果例子不大的话，在01cn发帖，代码作为附件。然后给出url地址。这样就不会等后面的浩荡的email大军了
 
to alisha:
我也想要，scy@fj172.com
谢谢！
 
alisha：
如果有诚意就放到网上让大家下载，不要来调人的胃口！
 
当初我在网上找代码，找了好久，　要么质量差，要么不稳定，

一气之下自己写了一个，我给你发到邮箱中，不过
删除短信有点问题，你调一下，Ok了，再发给我，如何
 
另外，不要在网上公开代码，因为我与人有协议，公开了要赔钱的
 
djh_djh:
先谢谢了，
不过我刚刚看了邮箱，没有收到邮件，不知道你有没有发过来？
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2991449

djh_djh 這是搞笑，自己先公開給別人了，那裡還叫著別公開有契約
 
用Tcomm控件，这是接受的过程
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
sa: PChar;
begin
GetMem(sa, BufferLength);
try
Move(Buffer^, Sa^, BufferLength);
Memo1.Lines.Add(Sa);
finally
FreeMem(sa);
end;
end;
发送过程用：
ATInfo_str:='AT+CMGL=4'+#13#10;
Comm1.WriteCommData(PChar(ATInfo_str),Length(ATInfo_str));
 
不在公司，回去给你发
 
scy_fjqz：
我按照你的方法可以收到短信，但收到的是+CMTI: "SM",2 FE 这是什么意思？
我发的短信内容不是这个呀？
 
您必须登录或注册才可回复。

Similar threads

D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
I
NameNick的手机短信DLL
回复
0
查看
805
import
I
I
如何通过PC用手机发送短信
回复
0
查看
735
import
I
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部