手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>程序设计>delphi>列表

封装良好的Socket实时通信程序(含补丁)

来源:互联网 作者:west263.com 时间:2008-02-23
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
分  类:网络
语  种:简体中文
编辑器:Delphi6
平  台:Win9x,Win2k/NT
作品源代码: 本地下载
软件或演示: -
代码大小: 130.8K
软件大小: -

这是一个自我感觉很好的通信程序,它的特点:

1.数据包格式全部自己定义。
所有的定义和通信核心类全部在COMM文件夹中。
2.能处理大量客户端同时通信的情况,客户和服务端共用相同的通信对象,并且可以实现互传。
3.通信细节全部封装在几个通用的类中,隐藏了交互通信的所有处理细节,如断包处理,超时重发等功能。
4.数据通信和数据具体应用完全分离,扩展性良好,本例中只做一个上传文件的例子,你可以在不用改动通信核心的情况下,可以实现远程控制所需的任何功能,并且不需要考虑通信细节。具体方法可以参考:CommSrvApps 单元的TSrvApp_File类,只需写一个新类即可:

TSrvApp_File = class(TServerAppObject)
public
function ProcessData(ABuf: PChar; ASize: integer): integer; override;
end;

通过以上类配合通信核心类,实现了远程实时传送一个文件就像copy那么简单。

其它:

此程序是我自己开发的连锁超市方案中数据交换的应用实例,所以客户端和服务端的代码有点多,但多是与通信本身无关,所实现的功能是将本地Local文件夹与远程Remote文件夹的.rs文件互相进行传送。

如果你有什么建议,欢迎来www.acreport.com交流,或者给我写信:shaohaijian@sina.com
作者:shaoyy

上一篇: QQ消息自动发送组件及程序
下一篇: 电话来电显示源码

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!