技术标签: webview WebBrowser 交互 Firemonkey扩展增强 Delphi javascript Android FireMonkey
本文背景:delphi XE10.1
Firemonkey自带的TWebBrower对于JavaScript的交互支持一直不是很好,仅仅提供了一个本地执行JavaScript的方法EvaluateJavaScript,而且该方法不提供JS执行的返回结果。在安卓平台上,EvaluateJavaScript是通过WebView的loadUrl('javascript:' + JavaScript)实现的。
在Android 4.4之后,WebView提供了一个新的执行JS的接口:
procedure evaluateJavascript(script: JString; resultCallback: JValueCallback); cdecl;
该接口可以注册一个获取JS执行结果的回调函数以便在JS异步执行完时返回结果。
TJavaScriptCallBack = procedure(const AResult: string) of object;
TJSResultCallback = class(TJavaLocal, JValueCallback)
private
fCallBack: TJavaScriptCallBack;
public
procedure onReceiveValue(value: JObject); cdecl;
end;
{ TResultCallback }
procedure TJSResultCallback.onReceiveValue(value: JObject);
begin
if Assigned(fCallBack) and (value<>nil) then
fCallBack(JStringToString(value.toString));
end;
这样我们只需创建 一个TJSResultCallBack对象, 并作为WebView.evaluateJavascript接口的第二个参数,就可以异步获取本地执行JS代码的结果。
WebView还提供一个本地代码扩展JavaScript功能的接口:
procedure addJavascriptInterface(object_: JObject; name: JString); cdecl;
package tu2.com.jshellper;
import android.webkit.JavascriptInterface;
/**
* Created by tutu on 2017-01-01.
*/
public class JavaScriptHelper {
public interface LocalCallBack {
public String executeCustomJavaScript(String cmd, String param);
}
protected LocalCallBack mLocalCallBack;
public void setLocalCallBack(LocalCallBack callBack) {
mLocalCallBack = callBack;
}
@JavascriptInterface
public String executeCmd(String cmd, String param) {
String sRet= "";
if (mLocalCallBack != null) {
sRet = mLocalCallBack.executeCustomJavaScript(cmd, param);
}
return sRet;
}
}
将这个Java实现类编译成Jar包,就可以在Delphi中使用。
[JavaSignature('tu2/com/jshellper/JavaScriptHelper$LocalCallBack')]
JJavaScriptHelper_LocalCallBack = interface(IJavaInstance)
['{74BA78C9-00E5-474A-8FAE-D9DE8D1219F3}']
function executeCustomJavaScript(cmd: JString; param: JString): JString; cdecl;
end;
TJavaScriptHelper_LocalCallBack = class(TJavaLocal, JJavaScriptHelper_LocalCallBack)
private
FCallBack: TLocalCallBack;
public
function executeCustomJavaScript(cmd: JString; param: JString): JString; cdecl;
end;
[JavaSignature('tu2/com/jshellper/JavaScriptHelper')]
JJavaScriptHelper = interface(JObject)
['{B70ED7E1-37E5-4F7A-B26B-478A9D36A128}']
procedure setLocalCallBack(callBack: JJavaScriptHelper_LocalCallBack); cdecl;
function executeCmd(cmd: JString; param: JString): JString; cdecl;
end;
JJavaScriptHelperClass = interface(JObjectClass)
['{9A522A31-9D8A-4748-9704-1E97C84E5657}']
function init: JJavaScriptHelper; cdecl;
end;
TJJavaScriptHelper = class(TJavaGenericImport<JJavaScriptHelperClass, JJavaScriptHelper>) end;
RegisterJavaScriptCallBack方法为浏览器控件注册本地扩展JS方法回调和本地异步执行JS的结果回调,EvaluateJavaScriptAsync方法使浏览器异步调用JS,如果JS有返回值将触发TJavaScriptCallBack方法的执行。
unit FMX.WebBrowser.Android;
interface
{$SCOPEDENUMS ON}
uses FMX.WebBrowser;
type
TLocalCallBack = procedure(const ACmd, AParam: string; var AResult: string) of object;
TJavaScriptCallBack = procedure(const AResult: string) of object;
procedure RegisterJavaScriptCallBack(const AWebControl: TCustomWebBrowser;
const ALocal: TLocalCallBack; const AJavaScript: TJavaScriptCallBack);
procedure EvaluateJavaScriptAsync(const AWebControl: TCustomWebBrowser;
const JavaScript: string);
在TAndroidWebBrowserService的字段部分增加:
FBounds: TRect;
FRealBounds: TRect;
//[Add By Tu2
FJSHelper: JJavaScriptHelper;
FJSLocal: TJavaScriptHelper_LocalCallBack;
FJSResult: TJSResultCallback;
procedure DoEvaluateJavaScriptAsync(const JavaScript: string);
//Add By Tu2]
procedure InitUIThread;
procedure CalcRealBorder;
procedure TAndroidWebBrowserService.InitUIThread;
begin
FJWebBrowser := TJWebBrowser.JavaClass.init(TAndroidHelper.Activity);
FJWebBrowser.getSettings.setJavaScriptEnabled(True);
FListener := TWebBrowserListener.Create(Self);
FJWebBrowser.SetWebViewListener(FListener);
FJNativeLayout := TJNativeLayout.JavaClass.init(TAndroidHelper.Activity,
MainActivity.getWindow.getDecorView.getWindowToken);
FJNativeLayout.setPosition(100,100);
FJNativeLayout.setSize(300,300);
FJNativeLayout.setControl(FJWebBrowser);
FFocusChangeListener := TFocusChangeListener.Create(Self);
FJNativeLayout.setOnFocusChangeListener(FFocusChangeListener);
FJWebBrowser.getSettings.setGeolocationEnabled(True);
FJWebBrowser.getSettings.setAppCacheEnabled(True);
FJWebBrowser.getSettings.setDatabaseEnabled(True);
FJWebBrowser.getSettings.setDomStorageEnabled(True);
FJWebBrowser.getSettings.setBuiltInZoomControls(True);
FJWebBrowser.getSettings.setDisplayZoomControls(False);
//Add By TU2
FJSResult := TJSResultCallback.Create;
FJSHelper := TJJavaScriptHelper.JavaClass.init;
FJSLocal := TJavaScriptHelper_LocalCallBack.Create;
FJSHelper.setLocalCallBack(FJSLocal);
FJWebBrowser.addJavascriptInterface(FJSHelper, StringToJString('TU2JSHelper'));
end;
最后实现开头定义的注册扩展方法:
procedure TAndroidWebBrowserService.DoEvaluateJavaScriptAsync(const JavaScript: string);
begin
CallInUIThread(procedure
begin
FJWebBrowser.evaluateJavascript(StringToJString(JavaScript), FJSResult);
end);
end;
{ TAndroidWebBrowserService.TResultCallback }
procedure TAndroidWebBrowserService.TJSResultCallback.onReceiveValue(value: JObject);
begin
if Assigned(fCallBack) and (value<>nil) then
begin
TThread.Queue(nil, procedure begin
fCallBack(JStringToString(value.toString));
end);
end;
end;
{ TAndroidWebBrowserService.TJavaScriptHelper_LocalCallBack }
function TAndroidWebBrowserService.TJavaScriptHelper_LocalCallBack.executeCustomJavaScript(
cmd, param: JString): JString;
var
AResult: string;
begin
if Assigned(FCallBack) then
begin
AResult := '';
FCallBack(JStringToString(cmd), JStringToString(param), AResult);
Result := StringToJString(AResult);
end;
end;
type
TMyCustomWebBrowser = class(TControl)
private
FWeb: ICustomBrowser;
end;
procedure RegisterJavaScriptCallBack(const AWebControl: TCustomWebBrowser;
const ALocal: TLocalCallBack; const AJavaScript: TJavaScriptCallBack);
begin
with (TMyCustomWebBrowser(AWebControl).FWeb as TAndroidWebBrowserService) do
begin
FJSLocal.FCallBack := ALocal;
FJSResult.fCallBack := AJavaScript;
end;
end;
procedure EvaluateJavaScriptAsync(const AWebControl: TCustomWebBrowser; const JavaScript: string);
begin
if TOSVersion.Check(4,4) then
(TMyCustomWebBrowser(AWebControl).FWeb as TAndroidWebBrowserService).
DoEvaluateJavaScriptAsync(JavaScript)
else begin
//暂未实现
end;
end;
至此,TWebBrower在android平台上的JS扩展交互就实现了。只需为WebBrowser控件调用一次RegisterJavaScriptCallBack,就可以在JS代码中如下使用:
function CallHost() {
document.getElementById("demoHost").innerHTML = window.TU2JSHelper.executeCmd("JSCallLocal","读取Label的Tag值:");
}
注1:Delphi使用两种方式创建Java对象,一种是TJavaGenericImport导入Java中的类,一种是使用(TJavaLocal, JXXX)创建本地实例对象,两种都需要已知的签名接口,不能直接用delphi定义一个新Java Object对象。但在 turbococoa 中介绍了可以直接使用TJavaObject继承扩展Java类,只是这是一个第三方商业项目,不知道其实现原理。
注2:详情参见android相关开发文档。
文章浏览阅读606次。为什么80%的码农都做不了架构师?>>> ..._google trace batch job
文章浏览阅读2.6k次,点赞3次,收藏3次。'''题目描述1、对输入的字符串进行加解密,并输出。2加密方法为:当内容是英文字母时则用该英文字母的后一个字母替换,同时字母变换大小写,如字母a时则替换为B;字母Z时则替换为a;当内容是数字时则把该数字加1,如0替换1,1替换2,9替换0;其他字符不做变化。s'''#-*-coding:utf-8-*-importre#判断是否是字母defisLetter(letter):iflen..._编写函数fun2实现字符串加密,加密规则为:如果是字母,将其进行大小写转换;如果
文章浏览阅读4.4k次,点赞6次,收藏8次。下面列出了所有集合的类图:每个接口做的事情非常明确,比如 Serializable,只负责序列化,Cloneable 只负责拷贝,Map 只负责定义 Map 的接口,整个图看起来虽然接口众多,但职责都很清晰;复杂功能通过接口的继承来实现,比如 ArrayList 通过实现了 Serializable、Cloneable、RandomAccess、AbstractList、List 等接口,从而拥有了序列化、拷贝、对数组各种操作定义等各种功能;上述类图只能看见继承的关系,组合的关系还看不出来,比如说_迭代器是否可以保证容器删除和修改安全操作
在科技金融、绿色金融、普惠金融、养老金融、数字金融这“五篇大文章”中,养老金融以其独特的社会价值和深远影响,占据着不可或缺的地位。通过政策引导与市场机制的双重驱动,激发金融机构创新养老服务产品,如推出更多针对不同年龄层、风险偏好的个性化养老金融产品,不仅能提高金融服务的可获得性,还能增强民众对养老规划的主动参与度,从而逐步建立起适应中国国情、满足人民期待的养老金融服务体系。在人口老龄化的全球趋势下,中国养老金融的发展不仅仅是经济议题,更关乎社会的稳定与进步。养老金融:民生之需,国计之重。
在需要使用图片的地方使用下面的代码,注意xib可以直接设置图片。将相应的图片资源文件放到bundle文件中。
文章浏览阅读3.6k次,点赞4次,收藏66次。目录九、多元统计分析介绍九、多元统计分析介绍_r语言多元统计分析
文章浏览阅读623次。MATLAB课程设计-基于PSK和DPSK的matlab仿真 (41页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦!9.90 积分武汉理工大学MATLAB课程设计.目录摘要 1Abstract 21.设计目的与要求 32.方案的选择 42.1调制部分 42.2解调部分 43.单元电路原理和设计 63.1PCM编码原理及设计 63.1.1PCM编码原理 ..._通信原理课程设计(基于matlab的psk,dpsk仿真)(五篇模版)
文章浏览阅读3.5k次,点赞6次,收藏28次。腾讯微搭小程序获取微信用户信息无论你对低代码开发的爱与恨, 微信生态的强大毋庸置疑. 因此熟悉微搭技术还是很有必要的! 在大多数应用中, 都需要获取和跟踪用户信息. 本文就微搭中如何获取和存储用户信息进行详细演示, 因为用户信息的获取和存储是应用的基础.一. 微搭每个微搭平台都宣称使用微搭平台可以简单拖拽即可生成一个应用, 这种说法我认为是"夸大其词". 其实微搭优点大致来说, 前端定义了很多组件, 为开发人员封装组件节省了大量的时间,这是其一; 其二对后端开发来说, 省去了服务器的部署(并没有省去后_微搭 用微信号登录
sql中索引的使用分析
文章浏览阅读8.9k次,点赞16次,收藏108次。因为呢,termux作者,不希望让termux变成脚本小子的黑客工具,于是把msf , sqlmap等包删了。至于如何安装metasploit呢。apt update -y && apt upgrade -y #更新升级更新升级之后要安装一个叫 git 的安装包apt install git -y然后我们就开始//这里的话建议把手机放到路由器旁边,保持网络的优良。或者科学上网。//git clone https://github.com/gushmazuko/metaspl_termux安装metasploit
文章浏览阅读141次。一、Docker支持4种网络模式Bridge(默认)--network默认网络,Docker启动后创建一个docker0网桥,默认创建的容器也是添加到这个网桥中;IP地址段是172.17.0.1/16 独立名称空间 docker0桥,虚拟网桥的工作方式和物理交换机类似,这样主机上的所有容器就通过交换机连在了一个二层网络中。host容器不会获得一个独立的network namespace,而是与宿主..._armbian 172.17.0.1
Ansible-Tower安装破解。