在好几个月之前,写过一个飞信控件,基本实现了发送短信与飞信聊天等功能 ,具体信息查看本人博客:
http://blog.csdn.net/suiyunonghen/archive/2009/07/28/4388476.aspx但是日前,飞信的聊天协议有些许变动,经过抓包,发现聊天的时候,会先发送一个数据包给服务器,要求发起聊天,然后服务器反馈一个新的聊天服务器地址和权值,然后用户根据该权值重新建立连接注册,然后聊天。于是我放出我原来写的老的版本的飞信的控件的源码!以待大家共同完善!另外:本代码并不完善,注意以下说明:
本控件目前不支持接收最新版本的官方飞信发来的消息,
但是支持发送短信和发送信息给飞信等,具体的可以参考内部Demo。当然控件本身有Bug,比如,接收数据部完全的时候,解析xml 报错,一直考虑使用阻塞的方式来解决(里面解决的不好!)另外就是消息包可能会串(也就是反馈回来的数据包不是你发送的信息的反馈包,这个地方没做处理),要使用的可以根据获得的数据包的序号解析出正确的反馈信息,但是本代码内没做处理!另外,如果有修改的,请发一份代码给俺!呵呵下载地址:
http://www.52delphi.com/list.asp?ID=1136

解决方案 »

  1.   


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

  2.   


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

  3.   

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

  4.   

    楼主的代码我看到了,也通过编译了。但是bug有点多,希望能够得到完善。
      

  5.   

    重新发一个下载地址:
    http://www.imxus.com/down/DxFetion.rar
    上面的那个文件传递错了!请大家下载这里
      

  6.   

    error reading panel3.bevekind 报错1
    error reading splitter1.explicit 报错2
    class trzmenubutton not .....
    [Fatal Error] Unit2.pas(7): File not found: 'RzButton.dcu'里面就一个控件,我也安装了,DelphiZLib.123也引用了,还是报上面的哪些
      

  7.   

    [Error] Project1.dpr(12): Undeclared identifier: 'MainFormOnTaskbar'
      

  8.   

    2007的例子,去掉这个东西就行了!至于你无法编译通过,找相关的资料吧!我不多说了!
    东西的Bug比较多,参考了网上的GreenFetion的代码!如果有修改完善的,希望能给俺一份!
      

  9.   

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