在好几个月之前，写过一个飞信控件，基本实现了发送短信与飞信聊天等功能 ，具体信息查看本人博客：
http://blog.csdn.net/suiyunonghen/archive/2009/07/28/4388476.aspx
但是日前，飞信的聊天协议有些许变动，经过抓包，发现聊天的时候，会先发送一个数据包给服务器，要求发起聊天，然后服务器反馈一个新的聊天服务器地址和权值，然后用户根据该权值重新建立连接注册，然后聊天。于是我放出我原来写的老的版本的飞信的控件的源码！以待大家共同完善！
另外：本代码并不完善，注意以下说明：
本控件目前不支持接收最新版本的官方飞信发来的消息，
但是支持发送短信和发送信息给飞信等，具体的可以参考内部Demo。当然控件本身有Bug，比如，接收数据部完全的时候，解析xml 报错，一直考虑使用阻塞的方式来解决（里面解决的不好！）另外就是消息包可能会串（也就是反馈回来的数据包不是你发送的信息的反馈包，这个地方没做处理），要使用的可以根据获得的数据包的序号解析出正确的反馈信息，但是本代码内没做处理！另外，如果有修改的，请发一份代码给俺！呵呵
下载地址：
http://www.52delphi.com/list.asp?ID=1136
第一个顶
第二个了，好东西。顶
友情帮顶
顶一下以表示支持
支持不得闲 ！
可以看看
咋用？
里面有一个例子程序！
其他相关的可以到我的博客上去看看相关的说明
支持一下。
菜鸟飞过，期待高人！
学习源码，希望提高。
支持。。必须地！！
相关问答：
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
