在好几个月之前，写过一个飞信控件，基本实现了发送短信与飞信聊天等功能 ，具体信息查看本人博客：
http://blog.csdn.net/suiyunonghen/archive/2009/07/28/4388476.aspx
但是日前，飞信的聊天协议有些许变动，经过抓包，发现聊天的时候，会先发送一个数据包给服务器，要求发起聊天，然后服务器反馈一个新的聊天服务器地址和权值，然后用户根据该权值重新建立连接注册，然后聊天。于是我放出我原来写的老的版本的飞信的控件的源码！以待大家共同完善！
另外：本代码并不完善，注意以下说明：
本控件目前不支持接收最新版本的官方飞信发来的消息，
但是支持发送短信和发送信息给飞信等，具体的可以参考内部Demo。当然控件本身有Bug，比如，接收数据部完全的时候，解析xml 报错，一直考虑使用阻塞的方式来解决（里面解决的不好！）另外就是消息包可能会串（也就是反馈回来的数据包不是你发送的信息的反馈包，这个地方没做处理），要使用的可以根据获得的数据包的序号解析出正确的反馈信息，但是本代码内没做处理！另外，如果有修改的，请发一份代码给俺！呵呵
下载地址：
http://www.52delphi.com/list.asp?ID=1136
第一个顶
第二个了，好东西。顶
友情帮顶
顶一下以表示支持
支持不得闲 ！
可以看看
咋用？
里面有一个例子程序！
其他相关的可以到我的博客上去看看相关的说明
支持一下。
菜鸟飞过，期待高人！
学习源码，希望提高。
支持。。必须地！！
相关问答：
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//删除数据
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
