Delphi不注册COM直接使用ActiveX控件并绑定事件.doc

下载文档 降价啦

10
0
约1.23万字
约 12页
2020-01-14 发布于安徽
举报
版权申诉
保障服务

Delphi不注册COM直接使用ActiveX控件并绑定事件.doc

1、本文档共12页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

.word可编辑. . 专业.专注 . Delphi不注册COM直接使用ActiveX控件并绑定事件文笔不行,直接上源码: 主窗口: [delphi] view plaincopyunit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Winapi.ActiveX , System.Win.ComObj, EventSink; type TForm1 = class(TForm) pnlCom: TPanel; Panel2: TPanel; Panel3: TPanel; btnGo: TButton; edt1: TEdit; LblStatus: TLabel; procedure FormCreate(Sender: TObject); procedure btnGoClick(Sender: TObject); private { Private declarations } EventSink: TEventSink; ActiveXCon: Variant; function InitAtl: Boolean; procedure EventSinkInvoke(Sender: TObject; DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer); public { Public declarations } end; var Form1: TForm1; const CLASS_MsRdpClient: TGUID = '{7CACBD7B-0D99-468F-AC33-22E495C0AFE5}';//'{791FA017-2DE3-492E-ACC5-53C67A2B94D0}'; type PIUnknown=^IUnknown; TAtlAxAttachControl = function(Control:IUnknown; hwind:hwnd;ppUnkContainer:PIUnknown): HRESULT; stdcall; //--此处参考mstscax.dll的接口文件，如果没有，在 Component->Import Component->Import a Type Library //--导入：Microsoft Terminal Services Active Client 1.0 Type Library 1.0 IMsTscAxEvents = dispinterface ['{336D5562-EFA8-482E-8CB3-C5C0FC7A7DB6}'] { procedure OnConnecting; dispid 1; procedure OnConnected; dispid 2; procedure OnLoginComplete; dispid 3; procedure OnDisconnected(discReason: Integer); dispid 4; procedure OnEnterFullScreenMode; dispid 5; procedure OnLeaveFullScreenMode; dispid 6; procedure OnChannelReceivedData(const chanName: WideString; const data: WideString); dispid 7; procedure OnRequestGoFullScreen; dispid 8; procedure OnRequestLeaveFullScreen; dispid 9; pr