delphi webbrowser组件网页下拉菜单自动选择问题

Question

delphi webbrowser组件网页下拉菜单自动选择问题 要求web组件在打开下面网址后
https://tool.lu/coderunner/ 自动点击所上角的python选项该如何 下面代码只能选择 不实现点击

 // 获取WebBrowser的文档对象
  Doc := wb1.Document;

  // 查找下拉菜单元素
  SelectElement := Doc.getElementById('language'); // 替换为实际的下拉菜单元素ID

  // 判断是否找到下拉菜单元素
  if not VarIsNull(SelectElement) then
  begin
    // 设置下拉菜单的选中项为第三页（索引从0开始）
    SelectElement.selectedIndex := 4; // 第三页对应的索引为2

    // 触发下拉菜单的change事件，以便网页加载对应的内容
    SelectElement.fireEvent('onchange');


    SelectElement.item(4).selected := True;
         SelectElement.item(4).click;

Answer 1

以下参考免费微信小程序：皆我百晓生 作答，并由阿齐Archie整理回复，若还有疑问可评论或留言。

要实现自动点击下拉菜单中的 Python 选项，您需要先确保已经正确地定位到了该选项。在您的代码中，您已经尝试通过 getElementById 方法来获取下拉菜单元素，然后设置其 selectedIndex 属性。但是，您需要确保 getElementById 方法返回的元素确实是下拉菜单，并且 selectedIndex 设置正确。

以下是修改后的代码，应该可以实现自动点击 Python 选项：

var
  Doc, SelectElement, OptionElement: IHTMLDocument2;
  i: Integer;
begin
  // 获取WebBrowser的文档对象
  Doc := wb1.Document;

  // 查找下拉菜单元素
  SelectElement := Doc.getElementById('language'); // 替换为实际的下拉菜单元素ID

  // 判断是否找到下拉菜单元素
  if not VarIsNull(SelectElement) then
  begin
    // 遍历下拉菜单的所有选项，查找Python选项
    for i := 0 to SelectElement.options.length - 1 do
    begin
      OptionElement := SelectElement.options.item(i);
      if CompareText(OptionElement.innerText, 'Python') = 0 then
      begin
        // 找到Python选项，设置为选中
        OptionElement.selected := True;

        // 触发change事件
        SelectElement.fireEvent('onchange');

        // 点击Python选项
        OptionElement.click;

        Break;
      end;
    end;
  end;
end;

这段代码首先遍历下拉菜单的所有选项，通过比较选项的 innerText 属性来查找 "Python"。当找到 "Python" 选项时，将其设置为选中状态，然后触发 onchange 事件，并调用 click 方法来模拟点击操作。

请注意，这段代码假设下拉菜单的 id 为 "language"，并且 "Python" 选项的文本与 "Python" 完全匹配。如果实际情况有所不同，您可能需要相应地调整代码。