文件名称:
DCOM-Based Sharing Object between processes Demo In Delphi
开发工具:
文件大小: 386kb
下载次数: 0
上传时间: 2008-11-30
详细说明： Delphi版基于DCOM的进程间对象（内存）共享示例，希望对需要的朋友有所帮助。 测试办法： 1.先执行：注册.bat； 2.启动两个或多个SharedObject_Test.exe进程； 3.在某一个画面当中的Name输入一个名字，并设置Value，然后按下SetValue； 4.在其它进程当中输入同样的Name，然后按下GetValue 如果是用户（客户进程）量大，会导致启动多个服务进程的话，那么建议把服务进程配置是“交互式用户”，具体的操作，运行DCOMCNFG.exe，然后展开到DCOM，找出相应的DCOM组件（本例为：CoShareObject Object），然后右键，在弹出的菜单当中选择[属性]，转到[标识]页，把运行该程序的用户配置为“交互式用户”（默认为“启动用户”） 单元补充： unit UnitManagedObject; interface uses Windows ; type TManagedObject = class(TObject) {Management Properties} private FManagementCount : Integer; //对象引用计数 public {structor} constructor Create; public {Management} procedure Free; function Attach:TManagedObject; function Detach: Integer; end; implementation {TManagedBaseObject} {structor} constructor TManagedObject.Create; begin Inherited Create; FManagementCount := 1; end; {Management} function TManagedObject.Attach : TManagedObject; begin Result := Nil; if InterlockedIncrement(FManagementCount) = 1 then begin InterlockedDecrement(FManagementCount); Exit; end; Result := self; end; function TManagedObject.Detach : Integer; begin Result := InterlockedDecrement(FManagementCount); end; procedure TManagedObject.Free; begin if Detach>0 then Exit; Inherited; end; end. ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
