delphi edgebrowser 获取元素

Delphi中使用EdgeBrowser组件可以方便地获取网页上的元素。要获取元素，需要先声明一个TEdgeBrowser组件，并为其分配一个OnDocumentComplete事件处理程序。在OnDocumentComplete事件处理程序中，可以使用执行JavaScript的方式获取元素。

首先，可以使用EdgeBrowser的ExecScript方法执行JavaScript代码。通过传入document.getElementById("elementId")，可以获取指定id的元素。例如，下面的代码获取id为"myElement"的元素：

procedure TForm1.EdgeBrowser1DocumentComplete(ASender: TObject; const aHTMLDoc: IDispatch);
var
element: IDispatch;
elementId: string;
begin
elementId := 'myElement'; // 要获取的元素的id
element := EdgeBrowser1.ExecScript('document.getElementById("' + elementId + '")');
// 检查element是否为空
if not VarIsNull(element) then
begin
// 获取元素的属性或执行其他操作
// ...
end;
end;

除了使用getElementById方法，还可以使用其他JavaScript的DOM操作来获取元素，例如getElementsByClassName、getElementsByTagName等。

通过执行JavaScript代码获取元素后，可以进一步操作元素，例如设置元素的属性、获取元素的文本内容等。可以通过调用element的属性或方法来实现。例如，要设置元素的内容，可以使用element.innerHTML := '新内容'。要获取元素的文本内容，可以使用element.innerText。

总之，通过Delphi的EdgeBrowser组件以及JavaScript与Delphi之间的互操作，我们可以方便地获取网页上的元素，并进行对应的操作。