实现delphi程序间的互相通讯(强烈推荐)!!

请到 http://www.tomore.com/2/38247.html 下载源代码

此程序演示了利用xml控件(当然也可以不通过xml控件),来实现程序间的互相通讯

1. 运行 project1.exe
2. 点击“写入变量到内存”按钮,写入两个变量,一个是QQ,一个是memo

3. 再另外运行一个 project1.exe
4. 点击“从内存中读取变量“按钮,将从内存中读取两个变量,一个是QQ,一个是memo

 

QQ: 86804

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
本例子就是Delphi中如何利用Socket编写通信程序。 计算机网络是由一系列网络通信协议组成的,其中的核心协议是传输层的TCP/IP和UDP协议。TCP是面向连接的,通信双方保持一条通路,好比目前的电话线,使用telnet登陆BBS,用的就是TCP协议;UDP是无连接的,通信双方都不保持对方的状态,浏览器访问Internet时使用的HTTP协议就是基于UDP协议的。TCP和UDP协议都非常复杂,尤其是TCP协议,为了保证网络传输的正确性和有效性,必须进行一系列复杂的纠错和排序等处理。   Socket是建立在传输层协议(主要是TCP和UDP)上的一种套接字规范,最初是由美国加州Berkley大学提出,它定义两台计算机进行通信的规范(也是一种编程规范),如果说两台计算机是利用一个“通道“进行通信,那么这个“通道“的两端就是两个套接字。套接字屏蔽了底层通信软件和具体操作系统的差异,使得任何两台安装了TCP协议软件和实现了套接字规范的计算机之通信成为可能。   微软的Windows Socket规范(简称winsock)对Berkley的套接字规范进行了扩展,利用标准的Socket的方法,可以同任何平台上的Socket进行通信;利用其扩展,可以更有效地实现在Windows平台上计算机通信。在Delphi中,其底层的Socket也应该是Windows的Socket。Socket减轻了编写计算机通信软件的难度,但总的说来还是相当复杂的(这一点在后面具体会讲到);Inprise在Delphi中对Windows Socket进行了有效的封装,使得用户可以很方便地编写网络通信程序。 本例子就是Delphi中如何利用Socket编写通信程序
Delphi编写的即时通信程序,类似QQ聊天,源码内包括了控件补盯配置方法说明和各个模块的代码等。   一个自我感觉很好的通信程序,它的特点:   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文件互相进行传送。   程序配置方法:   1.本程序Delphi6下编译通过,其它版本没有测试。   2.请先安装"控件补丁"中的控件包。   3.编译Client或Server时,请先设置Search Path指向comm 文件夹。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值