哪裡可以找到新版的 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-11-22 22:20:30

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！