Delphi飞信控件开源了

在好几个月之前，写过一个飞信控件，基本实现了发送短信与飞信聊天等功能 ，具体信息查看本人博客：
http://blog.csdn.net/suiyunonghen/archive/2009/07/28/4388476.aspx

但是日前，飞信的聊天协议有些许变动，经过抓包，发现聊天的时候，会先发送一个数据包给服务器，要求发起聊天，然后服务器反馈一个新的聊天服务器地址和权值，然后用户根据该权值重新建立连接注册，然后聊天。于是我放出我原来写的老的版本的飞信的控件的源码！以待大家共同完善！

另外：本代码并不完善，注意以下说明：
本控件目前不支持接收最新版本的官方飞信发来的消息，
但是支持发送短信和发送信息给飞信等，具体的可以参考内部Demo。当然控件本身有Bug，比如，接收数据部完全的时候，解析xml 报错，一直考虑使用阻塞的方式来解决（里面解决的不好！）另外就是消息包可能会串（也就是反馈回来的数据包不是你发送的信息的反馈包，这个地方没做处理），要使用的可以根据获得的数据包的序号解析出正确的反馈信息，但是本代码内没做处理！另外，如果有修改的，请发一份代码给俺！呵呵

下载地址：
http://www.52delphi.com/list.asp?ID=1136

---

第一个顶

---

第二个了，好东西。顶

---

友情帮顶

---

顶一下以表示支持

---

支持不得闲 ！

---

可以看看

---

咋用？

---

里面有一个例子程序！
其他相关的可以到我的博客上去看看相关的说明

---

支持一下。

---

菜鸟飞过，期待高人！
学习源码，希望提高。

---

支持。。必须地！！

---

引用

里面有一个例子程序！
其他相关的可以到我的博客上去看看相关的说明