如何在Delphi中查找IHTMLDocument2是否等於IDispatch文檔？

Question

我有一個帶有iFrame的TEmbeddedWB（ https://sourceforge.net/projects/embeddedwb/ ）。 我必須找出特定的HTML標簽是否在iFrame內部。 我的iFrame對象是IHTMLFrameBase2 ，而Tag是IHTMLElement 。 我知道iFrame.contentWindow.document （這是一個IHTMLDocument2 ）是一樣的Tag.document 。 但Tag.document是一個IDispatch對象，因此下面給出了一個false：

if iFrame.contentWindow.document = Tag.document then ShowMessage('In iFrame')
else ShowMessage('Not in iFrame');

我知道這兩個對象是一樣的，因為Watch List可以顯示它們的內存地址：

但是我無法從代碼中獲取他們的地址。 我嘗試過的：

Addr(iFrame.contentWindow.document) // Gives variable required error
@iFrame.contentWindow.document      // Gives variable required error
Pointer(iFrame.contentWindow.document)  //Compiles, but gives wrong address
Format('%p',[iFrame.contentWindow.document]) //Compiles, but gives EConvertError

注意：如果我逐行運行監視列表顯示的地址在每行代碼后都會發生變化，無論代碼是否影響WebBrowser。

Answer 1

根據COM的規則 ：

要求在特定接口IUnknown的給定對象實例的任何接口上對QueryInterface的任何調用都必須始終返回相同的物理指針值。 這樣可以在任意兩個接口上調用QueryInterface（IID_IUnknown，...）並比較結果以確定它們是否指向對象的同一實例（相同的COM對象標識）。

所以，問他們兩個IUnknown接口，並進行比較。

var
  disp: IDispatch;
  doc: IHTMLDocument2;
....
if (disp as IUnknown) = (doc as IUnknown) then
  ....