在Delphi XE6 FireMonkey移动应用程序的TWebBrowser HTML页面上运行JavaScript


本文整理自网络,侵删。

 
本文介绍如何在Delphi XE6 FireMonkey移动应用程序中的TWebBrowser显示的HTML页面上执行JavaScript。

在此应用程序中,当按下按钮(TButton)时,浏览器(TWebBrowser)中显示的字符将重写为在输入字段(TEdit)中输入的字符。

将TWebBrowser,TEdit和TButton放在窗体上。
创建表单时显示示例HTML。

在窗体的OnCreate事件中编写以下代码。

procedure TForm1.FormCreate(Sender: TObject);
const
  HTML = '<!DOCTYPE html><html lang="ja"><head><meta charset="utf-8"></head><body><span id="test">Hello</span></body></html>';
begin
  WebBrowser1.LoadFromStrings(HTML, '');
end;
TWebBrowser的LoadFromStrings将参数的HTML字符串显示为TWebBrowser的内容。

在按钮的OnClick事件中编写以下代码。

procedure TForm1.Button1Click(Sender: TObject);
var
  JavaScript: string;
begin
  JavaScript := Format('document.getElementById(''test'').innerHTML = %s;',[AnsiQuotedStr(Edit1.Text, '''')]);
  WebBrowser1.EvaluateJavaScript(JavaScript);
end;
TWebBrowser的EvaluateJavaScript方法执行JavaScript参数。

在上面的代码中,按按钮可以更改JavaScript中的HTML。

相关阅读 >>

Delphi 新版 thttpclient组件同步下载文件方法

Delphi 加壳原理与简单实现加壳

Delphi 用dll实现插件的简单演示

Delphi 替换其他程序里面的函数为自己的函数

Delphi 之 编辑框控件(tedit)

Delphi createdir 建立文件夹路径

Delphi操作unicode字符

Delphi分享pos函数。(比fastpos还要快)

Delphi 压缩图片(bmp、jpg、png)

Delphi中读取指定内存地址的值

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...