我试图从使用twebrowser的旧代码迁移到新的tedgebrowser，但是edgebrowser没有相同的属性，所以我不能再使用我的旧函数了
我用的是这里的函数是否按类获取元素？
function GetInnersByClass(const Doc: IDispatch; const classname: string;var Lst:TStringList):Integer;
var
Document: IHTMLDocument2; // IHTMLDocument2 interface of Doc
Body: IHTMLElement2; // document body element
Tags: IHTMLElementCollection; // all tags in document body
Tag: IHTMLElement; // a tag in document body
I: Integer; // loops thru tags in document body
begin
Lst.Clear;
Result := 0 ;
// Check for valid document: require IHTMLDocument2 interface to it
if not Supports(Doc, IHTMLDocument2, Document) then
raise Exception.Create('Invalid HTML document');
// Check for valid body element: require IHTMLElement2 interface to it
if not Supports(Document.body, IHTMLElement2, Body) then
raise Exception.Create('Can''t find <body> element');
// Get all tags in body element ('*' => any tag name)
Tags := Body.getElementsByTagName('*');
// Scan through all tags in body
for I := 0 to Pred(Tags.length) do
begin
// Get reference to a tag
Tag := Tags.item(I, EmptyParam) as IHTMLElement;
// Check tag's id and return it if id matches
if AnsiSameText(Tag.className, classname) then
begin
Lst.Add(Tag.innerHTML);
Inc(Result);
end;
end;
end;然后，例如，我使用以下语句调用它：在Web浏览器中，您可以创建一个新的类。
然后我将innertext从'class name'取到变量lst中
但是TEdgeBrowser没有Document属性。
它不一定是同一个函数。我需要的是从加载到TEdgeBrowser中的一个元素中获取内部文本。
有人知道怎么做吗？
谢谢您
1条答案
按热度按时间yr9zkbsy1#
查看Embarcadero blog上的这篇文章。
您必须运行脚本并将结果传递给 Delphi 。
编辑：
请查看此演示（您也可以在GitHub上找到它）C：\用户\公共\文档\商场\工作室\21.0\Samples\ObjectPascal\VCL\WebBrowser\Edge
并添加如下代码：
EdgeScript.js:
导航到google.com并运行脚本。这是我的代码，用于查找具有指定类名的所有锚点。修改javacript以查找您的元素并返回InnerText。