急急急求能在WIN2000+D6下正确运行的多点接受自动化服务器事件源码.

Question

D5开发人源指南里有一个DEMO,但无法在2000+D6下正确运行.有些事件无法正确触发.
还有关闭每个CLIENT时都会报出内存读取错误.
"0x00403fe"指令引用的"0x00cd2330"内存.该内存不能为"read".
run time error 216 at 004034FE.
请哪位遇到过已经解决或者能解决的高手看看.
感激感激.如有源码请发至 [email protected]

Answer 1

你服务端的代码错误地方:
function TZH.GetEnum: IEnumConnections;
var
  Contain:IConnectionPointContainer;
  ConPoint:IConnectionPoint;
begin
  Result:=nil;
  OleCheck(QueryInterface(IConnectionPointContainer,Contain));
//  Contain.FindConnectionPoint(IConnectionPoint,ConPoint);//你这句写错了..
  Contain.FindConnectionPoint(DIID_IZHEvents,ConPoint);//应该指定连结的东西.
  ConPoint.EnumConnections(Result);
end;