Delphi 中的 Edge 浏览器控件输入文本的示例代码

Delphi 中可以使用 TEdgeBrowser 控件来嵌入 Edge 浏览器，实现网页浏览和交互功能。以下是一个示例代码，演示如何在 Edge 浏览器控件中输入文本：

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw_EWB, MSHTML_EWB, EwbCore,
  EwbAcc;

type
  TForm1 = class(TForm)
    EdgeBrowser: TEdgeBrowser;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure EdgeBrowserDocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  input: IHTMLInputElement;
begin
  doc := EdgeBrowser.Document as IHTMLDocument2;
  if Assigned(doc) then
  begin
    input := doc.getElementById('input_id') as IHTMLInputElement;
    if Assigned(input) then
      input.value := Edit1.Text;
  end;
end;

procedure TForm1.EdgeBrowserDocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if Assigned(EdgeBrowser.Document) then
  begin
    EdgeBrowser.Document.Script := 'function myFunction() { alert("Page loaded!"); }';
    EdgeBrowser.Document.InvokeScript('myFunction');
  end;
end;

end.

这段代码中，我们首先获取 EdgeBrowser 的 Document 对象，然后使用 getElementById 方法获取指定的 input 元素，并将 Edit1 中的文本赋值给它。这里的 `input_id` 是指网页中相应 input 元素的 id 属性。

在按钮点击事件中，我们调用了上述的输入文本的代码。当然，为了确保 Edge 浏览器已经加载完成，我们还需要在 Form 的 OnCreate 事件中添加以下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  EdgeBrowser.Navigate('https://www.example.com');
  EdgeBrowser.OnDocumentComplete := EdgeBrowserDocumentComplete;
end;

这里我们在 EdgeBrowser 控件中加载了一个示例网页，并设置了 OnDocumentComplete 事件，以确保浏览器加载完成后再执行我们的代码。当 Edge 浏览器控件加载完成后，会弹出一个提示框，说明页面已加载完成。