如何通过Delphi Chromium实现用户点击网页按钮后自动启动命令行操作？

本文共计397个文字，预计阅读时间需要2分钟。

在Delphi应用中使用Chromium组件时，若希望用户单击网页中的特定按钮时，Delphi应用程序（容器）必须执行特定命令（如启动外部可执行文件），可以尝试以下方法：

当用户点击网页按钮时，设置Chromium组件的相应事件处理程序，如下：

delphiprocedure TForm1.Chromium1JSCommand(Sender: TObject; const CommandName, CommandValue: string);begin if CommandName='onclick' then begin // 假设按钮ID为'buttonId' if CommandValue='buttonId' then begin // 执行特定命令，例如启动外部文件 ShellExecute(0, 'open', 'C:\path\to\your\file.exe', nil, nil, SW_SHOW); end; end;end;

确保将`C:\path\to\your\file.exe`替换为实际要启动的外部可执行文件的路径。

这样，当用户在网页中点击具有特定ID的按钮时，Delphi应用程序将执行指定的命令。

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

我想要以下行为：

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

可能吗 ？

更新：

由于您实际上已经为点击事件请求了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;