ScriptGate是一个实现TWebBrowser上的JavaScript和Delphi代码相互调用的库,具体在这里:https://bitbucket.org/freeonterminate/scriptgate

用ScriptGate,我们可以轻松实现JavaScript在Delphi上的使用了,目前支持最新的Delphi tokyo 10.2.3版,注意,属于FMX类型的控件,作者说支持Windows,MacOS,Android及iOS.

我该怎么办?


例如,您可以从Delphi调用以下JavaScript方法。

<head>
<script type = “text / javascript” >
function helloJS ()
{
alert (“Hello,JavaScript!” );
}
</ script>
</ head>
procedure TForm1.Button1Click(Sender: TObject);
begin
FScriptGate.CallScript('helloJS()');
end;

看清了吧,在Delphi中调用JavaScript的helloJS。

反之,再看看从JavaScript调用Delphi方法:

procedure TForm1.HelloDelphi()
begin
ShowMessage('Hello, Delphi!');
end;
<body>
<a href="delphi:HelloDelphi()">Call Delphi</a>
</body>

注意这里的“delphi:”字符串,是TScriptGate构造函数指定的方案,不明白,那继续往下看。

尝试使用ScriptGate


准备工作


首先,从BitBucket下载代码。

接下来,在新建中的“多设备应用程序”中选择“空应用程序”。
*当然可以将其合并到现有项目中,但仅限于FireMonkey应用项目。
将下载并解压的代码目录添加到搜索路径。

如果Android包含在开发目标中,请将SGWebClient.jar添加到Android的库中。

至此,准备工作完成。

建立TScriptGate


这里我们将ScriptGate与WebBrowser1,TForm1结合使用。

unit Unit1;

interface

uses
{...}
SG.ScriptGate; //手工引用此单元 type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Layout1: TLayout;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private var
FScriptGate: TScriptGate; // 增加一个FScriptGate对象
public
procedure HelloDelphi; // 增加一个准备在JS中调用的Delphi方法
end;

利用Form1的OnCreate事件,先建一个TScriptGate的实例对象FScriptGate

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
FScriptGate := TScriptGate.Create(Self, WebBrowser1, 'delphi');
end;

TScriptGate.Create原型:

constructor Create(
const iReceiver: TObject;
const iWebBrowser: TWebBrowser;
const iScheme: String); reintroduce;
  • iReceiver

iReceiver是一个从JavaScript接收响应的实例。
这里TForm1被指定,但它可以是类的任何实例。
这里指定的实例的方法可以被JavaScript调用。

如:

type
TReceiver = class
public
procedure Foo;
procedure Bar(const msg: String);
end;

如果您指定名为TReceiver 的类的实例,则可以从JavaScript调用Bar方法。
这里需要注意的是,暴露给JavaScript的方法的访问级别必须是Public的或更高级别的。
它使用RTTI进行方法查找。

  • iWebBrowser

指定TScriptGate所关联的TWebBrowser的一个实例。
您可以调用指定WebBrowser加载的JavaScript方法。

  • IScheme

调用第一个示例中附加的iScheme ScriptGate方法“delphi:”的参数。
这与指定本地文件时使用JavaScript或“file:”时指定的“JavaScript:”具有相同的含义。
无论你在这里指定什么,你还必须在JavaScript端指定相同的字符串。
请注意,传递给参数的字符串不需要冒号“:”。

然后编写一个调用JavaScript的方法和一个从JavaScript调用的方法。

//在JavaScript中调用helloJS()。
//你也可以使用匿名函数检索返回值。
procedure TForm1.Button1Click(Sender: TObject);
begin
FScriptGate.CallScript(
'helloJS()',
procedure(const iResult: String)
begin
ShowMessage(iResult);
end
);
end;
//允许JavaScript调用的方法,JavaScript中的方法被称为HelloDelphi。
procedure TForm1.HelloDelphi;
begin
ShowMessage('Hello, Delphi!');
end;

加载到WebBrowser1中的HTML如下所示。

<html>
<header>
<script type="text/JavaScript">
function helloJS() { alert("Hello, JavaScript!"); return "Hello !!"; }
</script>
</head> <body>
<br><br>
<a href="delphi:HelloDelphi()">Call Delphi procedure</a>
<body>
</html>;

下面是作者写的完整的例子,演示了Delphi与JavaScript间如何互相调用以及在调用时,如何传递参数。

unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts, FMX.WebBrowser,
SG.ScriptGate; type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Layout1: TLayout;
Button1: TButton;
Layout2: TLayout;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private var
FScriptGate: TScriptGate;
public
procedure HelloDelphi(const iStr: String);
procedure Add(const Msg: String; const A, B: Integer);
end; var
Form1: TForm1; implementation {$R *.fmx} const
SampleHTML =
'<html>' +
'<header>' +
'<script type="text/JavaScript">' +
'function helloJS(msg, msg2) { alert(msg + msg2); return "Hello Delphi ! I am JavaScript !"; }' + // Call from Delphi
'</script>' +
'</head>' +
'<body>' +
'<br><br>' + // Call Delphi Method
'<a href="YourOrgScheme:HelloDelphi(''call by JS'')">Call Delphi noparam procedure</a>' +
'<br><br>' +
'<a href="YourOrgScheme:Add(''Calc: 30 + 12 = '', 30, 12)">Call Delphi procedure</a>' +
'<body>' +
'</html>'; procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.LoadFromStrings(SampleHTML, '/'); // The method of the object specified by the first argument is
// called from JavaScript.
FScriptGate := TScriptGate.Create(Self, WebBrowser1, 'YourOrgScheme');
end; procedure TForm1.Button1Click(Sender: TObject);
begin
FScriptGate.CallScript(
'helloJS("Hello JS ! ", "I am Delphi !")',
procedure(const iResult: String)
begin
ShowMessage(iResult);
end
);
end; procedure TForm1.Button2Click(Sender: TObject);
begin
FScriptGate.Eval(
'document.getElementsByTagName("html")[0].outerHTML',
procedure(const iResult: String)
begin
ShowMessage(iResult);
end
);
end; procedure TForm1.Add(const Msg: String; const A, B: Integer);
begin
ShowMessage(Msg + (A + B).ToString);
end; procedure TForm1.HelloDelphi(const iStr: String);
begin
ShowMessage('Hello ! ' + iStr);
end; end.

开源项目ScriptGate,Delphi与JavaScript相互调用的神器的更多相关文章

  1. android与javascript相互调用

    下面这一节来介绍android和javascript是怎么相互调用的,这样我们的UI界面设计起来就简单多了,而且UI设计起来也可以跨平台.现在有好多web app前台框架了,比如sencha和jque ...

  2. Android和JavaScript相互调用的方法

    转载地址:http://www.jb51.net/article/77206.htm 这篇文章主要介绍了Android和JavaScript相互调用的方法,实例分析了Android的WebView执行 ...

  3. Hybrid App开发模式中, IOS/Android 和 JavaScript相互调用方式

    IOS:Objective-C 和 JavaScript 的相互调用 iOS7以前,iOS SDK 并没有原生提供 js 调用 native 代码的 API.但是 UIWebView 的一个 dele ...

  4. IOS Object和javaScript相互调用

    在IOS开发中有时会用到Object和javaScript相互调用,详细过程例如以下: 1. Object中运行javascript代码,这个比較简单,苹果提供了非常好的方法 - (NSString ...

  5. UIWebView与JavaScript相互调用

    UIWebView与JavaScript的那些事儿 UIWebView是IOS SDK中渲染网面的控件,在显示网页的时候,我们可以hack网页然后显示想显示的内容.其中就要用到javascript的知 ...

  6. Python与Javascript相互调用超详细讲解(2022年1月最新)(三)基本原理Part 3 - 通过C/C++联通

    目录 TL; DR python调javascript javascript调python 原理 基于Node.js的javascript调用python 从Node调用python函数 V8 嵌入P ...

  7. IE的Trident引擎下实现C++和Javascript相互调用

    我们知道实现C++和Javascript通讯有下表5种接口: 引擎 编写语言 API接口 C.C++与JavaScript交互(变量.函数.类) vc2005编译静态库的大小 示例EXE的大小 执行. ...

  8. Python与Javascript相互调用超详细讲解(2022年1月最新)(一)基本原理 Part 1 - 通过子进程和进程间通信(IPC)

    TL; DR 适用于: python和javascript的runtime(基本特指cpython[不是cython!]和Node.js)都装好了 副语言用了一些复杂的包(例如python用了nump ...

  9. Python与Javascript相互调用超详细讲解(四)使用PyNode进行Python与Node.js相互调用项(cai)目(keng)实(jing)践(yan)

    目录 前提 安装 使用 const pynode = require('@fridgerator/pynode')的时候动态链接错误 ImportError: math.cpython-39-x86_ ...

随机推荐

  1. 获取String类型汉字乱码,如何进行编码

    本文为博主原创,未经允许不得转载: 在解析properties文件中的汉字时,在java代码中解析得到的是一个乱码字符,形如图下: 导致乱码原因:由于在jdk中,默认为gbk编码方式进行编码盒接收的, ...

  2. UVa 1660 电视网络(点连通度+最小割最大流+Dinic)

    https://vjudge.net/problem/UVA-1660 题意:给出一个无向图,求出点连通度.即最少删除多少个点,使得图不连通. 思路: 如果求线连通度的话,直接求个最大流就可以了.但这 ...

  3. UVa 10285 最长的滑雪路径(DAG上的最长路)

    https://vjudge.net/problem/UVA-10285 题意: 在一个R*C的整数矩阵上找一条高度严格递减的最长路.起点任意,但每次只能沿着上下左右4个方向之一走一格,并且不能走出矩 ...

  4. Javascript库的产生和解读

    javascript库的产生,增强了浏览器或javascript语言的某些机制的功能, 让业务开发人员,更专注业务逻辑,而不是机制逻辑.   比如, 0.兼容性 同样的功能函数,不同的浏览器所暴露的a ...

  5. Python time模块详解--转载

    1.在Python中,通常有这几种方式来表示时间:1)时间戳 2)格式化的时间字符串 3)元组(struct_time)共九个元素.由于Python的time模块实现主要调用C库,所以各个平台可能有所 ...

  6. RobotFramework安装指南

    Python下载 https://www.python.org/downloads Setuptools下载 https://pypi.python.org/pypi/setuptools 用原装各种 ...

  7. 对不队——Alpha冲刺

    第五天  日期:2018/6/20 一. 今日完成任务:专家审稿逻辑的开发 冯晓.马思远:会议网站栏目管理开发,软件功能测试 王爽.彭辉:审稿管理员分稿和稿件查找功能开发,博客撰写 吴琼.郝延婷:更换 ...

  8. JavaScript权威指南--脚本化HTTP

    知识要点 超文本传输协议(HTTP)规定web浏览器如何从web服务器获取文档和向web服务器发送表单内容,以及web服务器如何响应这些请求和提交.web浏览器会处理大量的HTTP.通常,HTTP并不 ...

  9. Map<K, V> 中k,v如果为null就转换

    Set<String> set = map.keySet(); if(set != null && !set.isEmpty()) { for(String key : s ...

  10. js 数组的删除

    var test=[1,2,1,2,3,4,5,6,7]; 1.remove test.remove(1)     位置 test.remove(-2) test.remove(2,3) 2 dele ...