如何访问后期绑定的嵌套属性和方法？

问题描述：

我想知道当访问属性嵌套在另一个属性中时，访问Delphi的后期绑定属性或方法的正确方法是什么。让我解释。如何访问后期绑定的嵌套属性和方法？

检查此示例应用程序以检查防火墙是否处于活动状态，声明的3个函数使用COM对象HNetCfg.FwMgr并返回相同的值。

{$APPTYPE CONSOLE} 

uses 
    Variants, 
    ActiveX, 
    Comobj, 
    SysUtils; 

//in this function i don't use any "helper" property to hold the temp value of the properties. 
function FirewallIsActive1 : Boolean; 
var 
    Firewall : OleVariant; 
begin 
    Firewall := CreateOleObject('HNetCfg.FwMgr'); 
    Result := Firewall.LocalPolicy.CurrentProfile.FirewallEnabled; 
end; 


//here i hold the value of the LocalPolicy property 
function FirewallIsActive2 : Boolean; 
var 
    Firewall : OleVariant; 
    Policy : OleVariant; 
begin 
    Firewall := CreateOleObject('HNetCfg.FwMgr'); 
    Policy := Firewall.LocalPolicy; 
    Result := Policy.CurrentProfile.FirewallEnabled; 
end; 


//Here i use a "helper" variable for each property 
function FirewallIsActive3 : Boolean; 
var 
    Firewall : OleVariant; 
    Policy : OleVariant; 
    Profile : OleVariant; 
begin 
    Firewall := CreateOleObject('HNetCfg.FwMgr'); 
    Policy := Firewall.LocalPolicy; 
    Profile := Policy.CurrentProfile; 
    Result := Profile.FirewallEnabled; 
end; 


var 
    i : Integer; 
begin 
try 
    CoInitialize(nil); 
    try 
     Writeln(BoolToStr(FirewallIsActive1,True)); 
     Writeln(BoolToStr(FirewallIsActive2,True)); 
     Writeln(BoolToStr(FirewallIsActive3,True)); 
     Readln; 
    finally 
     CoUninitialize; 
    end; 
except 
    on E:Exception do 
    begin 
     Writeln(E.Classname, ':', E.Message); 
     Readln; 
    end; 
    end; 
end.

我问这个问题，因为我想知道，如果Delphi编译器能够生成代码处置olevariants中的3个功能无论如何？

答

德尔福不会生成任何额外的变种，因此不会有任何问题来释放它们。德尔福只会遍历IDispatch路线以获得FirewallIsActive1中的值。

如果你只需要一个值，我更喜欢这个。如果你需要嵌套接口的几个信息，我会把它存储在一个辅助变量中。

如何访问后期绑定的嵌套属性和方法？

相关推荐