線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1484
推到 Plurk!
推到 Facebook!

哪裡可以找到新版的 MSHTML.pas ?

尚未結案
KFC123_60201
一般會員


發表:58
回覆:18
積分:15
註冊:2006-07-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-03-26 11:52:10 IP:139.78.xxx.xxx 訂閱
我在用 Delphi 7,其中安裝目錄下的 Source\Internet 包含一個 MSHTML.pas, 它定義了一個 DOM 接口,但是,這個文件太舊了,連 IDisplayPointer 這個接口都沒有,請問哪裡可以找到一個新版的 MSHTML.pas ?

謝謝
rainxie
一般會員


發表:20
回覆:27
積分:14
註冊:2008-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-03-27 17:26:26 IP:116.226.xxx.xxx 訂閱

控件的事件辅助类

概述Ole的方便地多,比如想用IE拖到窗体上,设置相关属性,处理相关事件,一切和其他控件没有什么区别。
但是使用过程中,我们会发现一个问题,拿TWebBrowser事件,如果我们想在连接错误的时候做一些事情,比如要用一个更漂亮的网页来代替IE 控件的版本,越高版本功能越多,比如错误事件是在IE 6显然是用更低版本的IE提供了更多的事件,你就必须重新生成控件了。
代码
控件的事件辅助类 * * by linzhenqun 2008-12-6 *)unit


用法: 1TOleCtrlEventHelper




、结束时:断开连接点,消毁



























{ IUnknown } function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; function _AddRef: Integer; stdcall; function _Release: Integer; stdcall;
















Method(Data, Code: Pointer): TMethod;implementationuses
ComObj;function




;{ TOleCtrlEventHelper }function













;procedure



01


;constructor



;destructor




;procedure


;procedure


;function





10









;function



;function




;function

0

;function






;procedure





$10000

// copy from olectrls.pas: TOleControl.InvokeEvent try asm PUSH EBX PUSH ESI MOV ESI, Params MOV EBX, [ESI].TDispParams.cArgs TEST EBX, EBX JZ @@


4// count * sizeof(TVarArg) XOR EDX, EDX ADD ESI, EAX
116// Sizeof(TVarArg) MOV EAX, dword ptr [ESI] CMP AX, varSingle
3 JE @@
2
2



6 MOV ECX, dword ptr [ESI ] JMP @@
2: TEST EAX, varArray JZ @@

6 @@: CMP AX, varDate
2 @@: PUSH dword ptr [ESI ] @@: PUSH dword ptr [ESI ] @@: DEC EBX JNE @@
7







;function













;function





10










;function

1
;function

1
;end
系統時間:2024-03-28 21:43:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!