文件名称：DCOM-Based Sharing Object between processes Demo In Delphi
文件大小：386KB
文件格式：RAR
更新时间：2011-12-21 16:32:34
DCOM,Sharing memory
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.
【文件预览】：
SharedObject_Test.res
SharedObject_Test.dproj
SharedObject_Test.exe
注册.bat
SharedObject.dproj.local
SharedObject.tlb
SharedObject.res
SharedObject.exe
SharedObject.identcache
SharedObject.dproj
uSharedObjectImpl.pas
frmMain.pas
SharedObject_Test.dpr
SharedObject_Test.dproj.local
SharedObject.dpr
uSharedObject_Test.pas
反注册.bat
SharedObject_Test.identcache
frmMain.dfm
SharedObject_TLB.pas
uSharedObject_Test.dfm