function SameDispatch(one, two: IDispatch): Boolean;
var
oi: IObjectIdentity;
begin
Result := (one as IUnKnown) = (two as IUnknown);
if not Result then
begin
oi := one as IUnKnown as IObjectIdentity;
Result := oi.IsEqualObject(two as IUnKnown) = S_OK;
end;
end;使用以上例程在一些情况下并不凑效,想知道这个问题的最终答案是?
var
oi: IObjectIdentity;
begin
Result := (one as IUnKnown) = (two as IUnknown);
if not Result then
begin
oi := one as IUnKnown as IObjectIdentity;
Result := oi.IsEqualObject(two as IUnKnown) = S_OK;
end;
end;使用以上例程在一些情况下并不凑效,想知道这个问题的最终答案是?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货