如何使用 TMS Web Core 从 Delphi 执行 JavaScript 代码？

Question

我创建了一个简单的应用程序，上面有一个

TWebEdit

和

TWebButton

。我想从按钮内调用/执行 JavaScript

alert()

函数，该函数将提醒来自

TWebEdit

的文本。

我该怎么做？

显然，我不能只执行以下代码，因为这不是有效的 Delphi：

procedure TForm2.WebButton1Click(Sender: TObject);
begin
  alert(WebEdit1.Text);
end;

如何在此按钮单击事件中调用 JavaScript 代码？

Answer 1

您可以使用

asm

代码块直接在 Delphi 中调用 JavaScript 代码：

procedure TForm2.WebButton1Click(Sender: TObject);
var
  AlertText: String;
begin
  AlertText := WebEdit1.Text;

  asm
    alert(AlertText);
  end;
end;

从下面的屏幕截图可以看出，这可以工作：

---

这是另一个带有换行符的示例：

procedure TForm2.WebButton1Click(Sender: TObject);
var
  AlertText: String;
begin
  AlertText := WebEdit1.Text;

  asm
    alert('Your entered text is: \n\n' + AlertText);
  end;
end;