Delphi飞信控件开源了

不得闲 2009-12-14 12:29:42

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

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

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

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

...全文

1368 57 打赏收藏转发到动态举报

写回复

用AI写文章

57 条回复

切换为时间正序

请发表友善的回复…

发表回复

Henc 2010-09-08

打赏
举报

学习下

lyhoo163 2009-12-17

打赏
举报

worddelphi 2009-12-17

打赏
举报

学习下

liuahuilele 2009-12-17

打赏
举报

呵呵要好好看看

qkhhxkj102 2009-12-17

打赏
举报

可以用的吗

不得闲 2009-12-17

打赏
举报

晚上结贴掉

不得闲 2009-12-16

打赏
举报

[Quote=引用 48 楼 youcunzai 的回复:]
有实际用途没?[不说代码方面]
[/Quote]
有无实际用途，看个人如何使用！这个不必问我

pengxuan 2009-12-16

打赏
举报

多谢楼主的共享精神

xjq2003 2009-12-15

打赏
举报

好东西，要分析

不得闲 2009-12-15

打赏
举报

飘一下！

suuuu 2009-12-15

打赏
举报

[Quote=引用 10 楼 hewei001 的回复:]
菜鸟飞过，期待高人！
学习源码，希望提高。
[/Quote]
Up~

winstonbonaparte 2009-12-15

打赏
举报

頂一下，支持LZ

不得闲 2009-12-15

打赏
举报

代码写的很乱的，最初，只是想着将网上的GreenFetion封装，所以代码上也仅仅是各种函数功能与实现方式的替换！后来慢慢封装封装的时候，代码就越来越多，越来越不好看了！所以还望各高手们就将就将，日前，我正在全面重写这个玩意，此会开展的同时，代码会全部重构，同时也是为飞信的新聊天协议提供支持！

nightmaple 2009-12-15

打赏
举报

学习

youcunzai 2009-12-15

打赏
举报

有实际用途没?[不说代码方面]

dinoalex 2009-12-15

打赏
举报

顶一个

bobo415 2009-12-15

打赏
举报

能讲解下不

火车载着月亮的心思 2009-12-14

打赏
举报

ding,ni ge fei

不得闲 2009-12-14

打赏
举报

你把那个DelphiZLib.123路径引用一下就行了

不得闲 2009-12-14

打赏
举报

[Quote=引用 12 楼 hjkto 的回复:]
引用 8 楼 suiyunonghen 的回复:
里面有一个例子程序！
其他相关的可以到我的博客上去看看相关的说明

看到了，哪个demo，有很多第三方控件，不能直接编译过去
哪些obj是干什么用的，能否把哪些第三方控件一起提供啊？
[/Quote]

我无语，里面哪里有三方控件啊
那个obj是支持GZ压缩的，里面不是有代码嘛？