客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
Delphi 开发ActiveX控件(非ActiveForm)Q：为什么不采用ActiveForm工程？通过它可以快速开发带窗体控件，创建过程也非常简单(都不用考虑安全接口问题)，很省事！ A：如果要实现的功能用不上窗口，而一个带窗口的空程序就500多KB，不便于ActiveX的发布，本实现方法可降到100多KB，CAB打包后只有几十KB； 好吧，我承认我有点体积控。
填写类名
3.建一个测试方法(Test)
向导会自动生成相关代码！ 注意：如果需要发布到Internet，还需要实现一个IObjectSafety接口，标记脚本是安全的，运行时才不会被IE阻止。如果想在线安装ActiveX控件还需要数字证书签名后才可以。
unit AXDemo_u; {$WARN SYMBOL_PLATFORM OFF} interface uses ComObj, ActiveX, AXDemo_TLB, StdVcl, Windows; type TAXDemoCtrl = class(TAutoObject, IAXDemoCtrl, IObjectSafety) FObjectSafetyFlags: DWORD; { 实现IObjectSafety 接口用于将控件标记为安全，否则IE加载时可能会被阻止！} function GetInterfaceSafetyOptions(const IID: TIID; pdwSupportedOptions, pdwEnabledOptions: PDWORD): HResult; stdcall; function SetInterfaceSafetyOptions(const IID: TIID; dwOptionSetMask, dwEnabledOptions: DWORD): HResult; stdcall; protected procedure Test(const Msg: WideString); safecall; implementation uses ComServ; function TAXDemoCtrl.GetInterfaceSafetyOptions(const IID: TIID; pdwSupportedOptions, pdwEnabledOptions: PDWORD): HResult; var Unk : IUnknown; begin if (pdwSupportedOptions = nil) or (pdwEnabledOptions = nil) then Result := E_POINTER; Result := QueryInterface(IID, Unk); if Result = S_OK then pdwSupportedOptions^ := INTERFACESAFE_FOR_UNTRUSTED_CALLER or INTERFACESAFE_FOR_UNTRUSTED_DATA; pdwEnabledOptions^ := FObjectSafetyFlags and (INTERFACESAFE_FOR_UNTRUSTED_CALLER or INTERFACESAFE_FOR_UNTRUSTED_DATA); pdwSupportedOptions^ := 0; pdwEnabledOptions^ := 0; function TAXDemoCtrl.SetInterfaceSafetyOptions(const IID: TIID; dwOptionSetMask, dwEnabledOptions: DWORD): HResult; var Unk : IUnknown; begin Result := QueryInterface(IID, Unk); if Result <> S_OK then FObjectSafetyFlags := dwEnabledOptions and dwOptionSetMask; procedure TAXDemoCtrl.Test(const Msg: WideString); begin MessageBox(GetActiveWindow, PChar(string(Msg)), initialization TAutoObjectFactory.Create(ComServer, TAXDemoCtrl, Class_AXDemoCtrl, ciMultiInstance, tmApartment);
html> <head> <title>ActiveX Test Page</title> </head> <H1>ActiveX Test Page</H1> <hr> <p> <body> <object classid="clsid:C7C16439-AFF0-48A4-A22D-4655400FC4BE" codebase="AXDemo.cab#version=1,0,0,0"> </object> <script> functiontry'Hello World!'catch'ActiveX测试失败!\r\n'+</script>
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论