百分求翻译一条c为delphi(跨域)
据说能够解决跨域问题,请懂c++的朋友帮忙翻译一下。原文如下:
IHTMLWindow2 htmlWindow = (IHTMLWindow2)(((HTMLDocumentClass)(webBrowser1.Document.DomDocument)).frames.item(ref index)); label1.Text = CodecentrixSample.CrossFrameIE.GetDocumentFromWindow(htmlWindow).activeElement.innerHTML;
var htmlWindow:IHTMLWindow2;begin htmlWindow := IHTMLWindow2((HTMLDocumentClass(webBrowser1.Document.DomDocument)).frames.item(index)); label1.Text := CodecentrixSample.CrossFrameIE.GetDocumentFromWindow(htmlWindow).activeElement.innerHTML;end;
[解决办法]
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw_TLB, ExtCtrls, TemplatePower;var htmlWindow:IHTMLWindow2;begin htmlWindow := IHTMLWindow2((HTMLDocumentClass(webBrowser1.Document.DomDocument)).frames.item(index)); label1.Text := CodecentrixSample.CrossFrameIE.GetDocumentFromWindow(htmlWindow).activeElement.innerHTML;end;