Delphi开发ActiveX控件在IE中无法加载

Delphi创建的Automation Object必须实现IObjectSafety接口，否则新版本IE会拒绝加载。主要代码如下：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

FObjectSafetyFlags: DWORD; function GetInterfaceSafetyOptions( const IID: TIID; pdwSupportedOptions,    pdwEnabledOptions: PDWORD): HResult; var    Unk               : IUnknown; begin    if (pdwSupportedOptions = nil ) or (pdwEnabledOptions = nil ) then    begin      Result := E_POINTER;      Exit;    end ;    Result := QueryInterface(IID, Unk);    if Result = S_OK then    begin      pdwSupportedOptions^ := INTERFACESAFE_FOR_UNTRUSTED_CALLER or        INTERFACESAFE_FOR_UNTRUSTED_DATA;      pdwEnabledOptions^ := FObjectSafetyFlags and        (INTERFACESAFE_FOR_UNTRUSTED_CALLER or INTERFACESAFE_FOR_UNTRUSTED_DATA);    end    else    begin      pdwSupportedOptions^ := 0 ;      pdwEnabledOptions^ := 0 ;    end ; end ; function SetInterfaceSafetyOptions( const IID: TIID; dwOptionSetMask,    dwEnabledOptions: DWORD): HResult; var    Unk               : IUnknown; begin    Result := QueryInterface(IID, Unk);    if Result <> S_OK then      Exit;    FObjectSafetyFlags := dwEnabledOptions and dwOptionSetMask; end ;

 

转载于:https://www.cnblogs.com/lxwy/p/4420647.html