德尔福铬 - 当用户点击网页中的按钮时，在德尔福应用程序中启动命令

Question

我在Delphi应用程序中使用Chromium组件。

我想要以下行为：

当用户单击网页中的特定按钮时，Delphi应用程序("容器"(必须执行命令(使用...启动外部可执行文件(。

可能吗？

Answer 1

更新：

由于您实际上已经为点击事件请求了 DOM 事件侦听器，请检查以下示例侦听 Google 搜索按钮点击事件(ID 为 gbqfba 的元素(：

uses
  ShellAPI, cefvcl, ceflib;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Chromium1.Load('www.google.com');
end;
procedure OnClickEvent(const AEvent: ICefDomEvent);
begin
  ShellExecute(Form1.Handle, nil, 'notepad.exe', nil, nil, SW_SHOWNORMAL);
end;
procedure OnExploreDOM(const ADocument: ICefDomDocument);
var
  DOMNode: ICefDomNode;
begin
  DOMNode := ADocument.GetElementById('gbqfba');
  if Assigned(DOMNode) then
    DOMNode.AddEventListenerProc('click', True, OnClickEvent);
end;
procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean);
begin
  if Assigned(frame) then
  begin
    // here you should check the frame.Url to verify if you're on the right URL
    // before you try to search for the element and attach the event if found
    frame.VisitDomProc(OnExploreDOM);
  end;
end;