纯PB实现的IM即时通讯代码 单服务器支持3000人以上在线

[cqqjjf]

http://www.ourfreesoft.cn/soft/pbim.rar

源代码需要使用PB 11.0以上版本打开
提供了完整的PB运行库文件，并编译出了EXE文件，没有PB 11也可以测试
系统的离线消息需要10分钟后 才会发送给对方

如果安装后，服务器和客户端通讯不成功，请检查：
1、是否被防火墙阻止
2、参数设置是否完全正确
3、网络连接是否顺畅

1、系统实现方式
本工具使用纯PB代码实现，基于UDP协议进行通讯，PB版本为11.2，数据库为SQL 2000/2005/2008 另外有PB 9 8 7版。本测试程序美工比较简单，仅供研究使用。

系统结构

中心数据库--中间数据库
| |
| |
服务器端 |
| |直接访问
UDP| |
| |
客户端--------|

文件传输结构:通过服务器端获取通讯端口后，直接通讯
服务器端
| |
| |
| UDP |
客户端-----客户端


能进行路由器穿透，实现如同QQ一般的在线沟通。由于设计为嵌入ERP系统使用，方便企业管理人员管理，所有消息均通过服务器中转并记录到数据库。您可以将其改制为客户端和客户端直接通讯，以获得单服务器更大的用户承载量。

经过测试，单服务器1000人在线带宽暂用在2M以下，Intel E2200CPU占用率50%以下，内存300M内，服务器CPU建议为多核CPU以获得更高的处理效率。

为了减轻服务通讯端口的通讯量压力，服务器端负责
(1)在线消息中转,如对方未成功接收，则进入数据库离线消息表
(2)登录请求
(3)检查连接状态
(4)密码修改请求
(5)好友在线状态

以下操作，由于只在登录的时候发生一次，并且数据量较大，客户端通过访问中间数据库访问完成，当然，你也可以改制为不需中间数据库中转，直接由服务器返回消息。
(1)获取好友列表
(2)获取离线消息

[sunfor]

我用的是11.5,转换时有如下错误！
---------- Migrating of target im_client
Inspecting application dependencies...
Creating type D:\pbqq\Client\im_client.pbl(d_hy_list)...
Creating type D:\pbqq\Client\im_client.pbl(d_chat_show)...
Creating type D:\pbqq\Client\im_client.pbl(d_ry_list)...
Creating type D:\pbqq\Client\im_client.pbl(d_chat_history)...
Creating type D:\pbqq\Client\im_client.pbl(im_client)...
Creating type D:\pbqq\Client\im_client.pbl(w_login)...
Creating type D:\pbqq\Client\im_client.pbl(w_chat)...
Creating type D:\pbqq\Client\im_client.pbl(vuo_navigation_item)...
Creating type D:\pbqq\Client\im_client.pbl(vuo_navigation)...
Creating type D:\pbqq\Client\im_client.pbl(w_cs)...
Creating type D:\pbqq\Client\im_client.pbl(str_chatwin)...
Creating type D:\pbqq\Client\im_client.pbl(gf_connect_local)...
Creating type D:\pbqq\Client\im_client.pbl(gf_getip2)...
Creating type D:\pbqq\Client\im_client.pbl(gf_readsys)...
Creating type D:\pbqq\Client\im_client.pbl(m_pop)...
Creating type D:\pbqq\Client\im_client.pbl(gf_connect_msg)...
Creating type D:\pbqq\Client\im_client.pbl(m_chat_sendfs)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(d_hy_list)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(d_chat_show)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(d_ry_list)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(d_chat_history)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(im_client)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(w_login)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(w_chat)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(vuo_navigation_item)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(vuo_navigation)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(w_cs)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(str_chatwin)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(gf_connect_local)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(gf_getip2)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(gf_readsys)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(m_pop)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(gf_connect_msg)...
Rebuilding type ( pass 1 ) D:\pbqq\Client\im_client.pbl(m_chat_sendfs)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(d_hy_list)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(d_chat_show)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(d_ry_list)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(d_chat_history)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(im_client)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(w_login)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(w_chat)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(vuo_navigation_item)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(vuo_navigation)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(w_cs)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(str_chatwin)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(gf_connect_local)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(gf_getip2)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(gf_readsys)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(m_pop)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(gf_connect_msg)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(m_chat_sendfs)...
Inspecting application dependencies...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(d_hy_list)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(d_chat_show)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(d_ry_list)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(d_chat_history)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(im_client)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(w_login)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(w_chat)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(vuo_navigation_item)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(vuo_navigation)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(w_cs)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(str_chatwin)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(gf_connect_local)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(gf_getip2)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(gf_readsys)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(m_pop)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(gf_connect_msg)...
Rebuilding type ( pass 2 ) D:\pbqq\Client\im_client.pbl(m_chat_sendfs)...
Regenerating D:\pbqq\Client\im_client.pbl(d_hy_list)...
Regenerating D:\pbqq\Client\im_client.pbl(d_chat_show)...
Regenerating D:\pbqq\Client\im_client.pbl(d_ry_list)...
Regenerating D:\pbqq\Client\im_client.pbl(d_chat_history)...
Regenerating D:\pbqq\Client\im_client.pbl(im_client)...
Regenerating D:\pbqq\Client\im_client.pbl(w_login)...
Regenerating D:\pbqq\Client\im_client.pbl(w_chat)...
Regenerating D:\pbqq\Client\im_client.pbl(vuo_navigation_item)...
Regenerating D:\pbqq\Client\im_client.pbl(vuo_navigation)...
Regenerating D:\pbqq\Client\im_client.pbl(w_cs)...
Regenerating D:\pbqq\Client\im_client.pbl(str_chatwin)...
Regenerating D:\pbqq\Client\im_client.pbl(gf_connect_local)...
Regenerating D:\pbqq\Client\im_client.pbl(gf_getip2)...
Regenerating D:\pbqq\Client\im_client.pbl(gf_readsys)...
Regenerating D:\pbqq\Client\im_client.pbl(m_pop)...
Regenerating D:\pbqq\Client\im_client.pbl(gf_connect_msg)...
Regenerating D:\pbqq\Client\im_client.pbl(m_chat_sendfs)...
16 Errors.

[lao_bulls]

还有代码没有上传。

[hk1660]

4、源代码获取或OEM

请联系QQ 66388855
TEL [phone]
Mail:[e-mail]

完整源代码和OEM是有偿的，希望大家能相互理解劳动是需要花费精力的。

[hk1660]

作者在readme中的说明

[zlnlh]

嗯，我的也是，错误一样

[pbwubaba]

东西确实有点问题呀
我也不能编译通过

请LZ再查看下

[st_weicr]

原来是这样哦

[iqlife]

不怎么样啊

[misrunners]

学习了...

[hangzhou6274]

牛人，帮顶

[bombshell]

已经被破解了，呵呵！！！

[liuxiang]

直接就说卖源码得了，费这么大的劲。

[ych12333]

我想要实现的
原理

[天道2046]

接分，顶起，圣诞元旦快乐！

[haowan1982]

强力加顶！！

[StillMiss]

[Quote=引用 30 楼 liuxiang 的回复:]
直接就说卖源码得了，费这么大的劲。
[/Quote]

就是

[StillMiss]

你真以为这东西有多少价值啊

[bombshell]

顶起来，呵呵。试用版到现在服务器端也没有运行起来，还需要楼主指教

[lightsword1]

不知道怎么样,下来看看

[凡爸]

局域网的，无法以因特网上使用