Delphi创建ActiveX控件，实现安全接口及无界面代码

最新推荐文章于 2023-07-07 20:27:31 发布

whisht

最新推荐文章于 2023-07-07 20:27:31 发布

阅读量3.2k

点赞数

分类专栏： Delphi 文章标签： delphi initialization function ie class

本文链接：https://blog.csdn.net/ljz9425/article/details/6042599

版权

Delphi 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

Delphi创建OCX控件非常的方便，但IE调用时弹出的安全认证非常麻烦，有时OCX也不需要界面，IE调用时需要隐藏，非常不方便。在DELPHI中创建OCX实现安全接口和创建事件中修改部分代码

实现安全接口继承：IObjectSafety 重载方法： function GetInterfaceSafetyOptions(const IID: TIID; pdwSupportedOptions, //安全接口 pdwEnabledOptions: PDWORD): HResult; stdcall; function SetInterfaceSafetyOptions(const IID: TIID; dwOptionSetMask, dwEnabledOptions: DWORD): HResult; stdcall; function TZhddMsg.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^ := INTERFACESAFE_FOR_UNTRUSTED_CALLER or INTERFACESAFE_FOR_UNTRUSTED_DATA; end else begin pdwSupportedOptions^ := 0; pdwEnabledOptions^ := 0; end; end; function TZhddMsg.SetInterfaceSafetyOptions(const IID: TIID; dwOptionSetMask, dwEnabledOptions: DWORD): HResult; var Unk: IUnknown; begin Result := QueryInterface(IID, Unk); if Result <> S_OK then Exit; end; 无界面： initialization TActiveFormFactory.Create( ComServer, TActiveFormControl, TZhddMsg, Class_ZhddMsg, 1, '', OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL, //OLEMISC_INVISIBLEATRUNTIME or OLEMISC_ACTSLIKELABEL, //隐藏主界面 tmApartment); end.