你使用TCP/IP的话有一个例子
C:/Program Files/Borland/Delphi5/Demos/Midas/Intrcpt
中有一个例子编译并在客户端和服务器端都注册Intrcpt.Dll.
可用REGSVR32或DELPHI中Run-->Register ActiveX Server菜单项.
服务器端:运行 scktsrvr.exe 在右下角右键单击它的图标
在 Intercept GUID中田入 Class_DataCompressor: TGUID = '{B249776C-E429-11D1-AAA4-00C04FA35CFA}';
中的 '{B249776C-E429-11D1-AAA4-00C04FA35CFA}';
客户端在TSocketConnection.InterceptorGUI添入同样的值.
运行程序就可以了.
DCOM的在相应的事件中编写同样意义的代码.