邢台经济开发区网站,专门为98k做的网站,深圳小程序服务商,域名如何申请目录
一、问题背景#xff1a;
二、实际示例#xff1a;
三、解决方案#xff1a;
1. Delphi 代码#xff1a;
2. javaScript代码#xff1a; 一、问题背景#xff1a; 在用Delphi开发程序#xff0c;无论是移动端还是PC端#xff0c;都可以很方便的使用TWebBrows…
目录
一、问题背景
二、实际示例
三、解决方案
1. Delphi 代码
2. javaScript代码 一、问题背景 在用Delphi开发程序无论是移动端还是PC端都可以很方便的使用TWebBrowser控件从而使用H5这样就可以实现非常完美的界面谁用谁知道。Delphi只负责提供一个程序框架基座整个UI界面通过TWebBrowser使用H5来实现这样就可以产生各式各样的UI而不在使用原生Delphi的UI控件因为原生Delphi的UI控件在PC端的VCL还是很好用的但是到了移动端那就实在是不好用了。 这样就势必会有个需求就是Delphi直接执行TWebBrowser中的javaScript函数命令幸运的是TWebBrowser提供了这样的功能这就是TWebBrowser的EvaluateJavaScript函数。
//Delphi procedure EvaluateJavaScript(const JavaScript: string);
参数 JavaScript 可以是定义 JavaScript 语句也可以是当前页面已经存在的函数。如果是当前页面已经存在的函数而且该函数还有一个JSON字符串参数那么直接调用EvaluateJavaScript函数将会出现错误。
二、实际示例
假如当前网页中有一个javaScript函数
//Delphi 底座调用的函数
function OnDelphiCall(JSONStr) {let jo JSON.parse(decodedData1);ElMessageBox.alert(jo.Server_Message_Content, jo.Server_Message_Title, {// if you want to disable its autofocus// autofocus: false,confirmButtonText: OK,showClose: false,})
以上函数Delphi调用时需要传递一个JSON字符串以便javaScript函数显示一个模式对话框element-ui
{Server_Message_Title:提示,Server_Message_Content:数据保存成功
} vue3中实现Delphi 调用javaScript函数 onMounted(() { //最新的统一 DelphiCall 函数 window.DelphiCall OnDelphiCall; }) Delphi中实际调用函数
G_WebBrowser.EvaluateJavaScript(DelphiCall( JSONStr ););
此时如果直接将以下字符串赋值给 JSONStr然后Delphi调用肯定会出现错误。 { Server_Message_Title:提示, Server_Message_Content:数据保存成功 } 因为以上字符串中包含{dakkuohao ,双引号等将会导致javaScript执行错误将参数当作命令解析失败错误
三、解决方案 就是将字JSONStr字符串进行特殊的Base64处理然后传递给javaScriptjavaScript接收到参数后进行Base64解码后使用参数。
1. Delphi 代码
usesSystem.NetEncoding;procedure ExecuteJavascript(Command,ParamsStr: string);
varS : string;JSONStr64 : string;JavaScriptFunction : string;
beginS : TNetEncoding.URL.Encode(ParamsStr,[],[]); //这里取消将空格作为号处理JSONStr64 : TNetencoding.Base64.Encode(S);// Berlin 版本的会自动增加 回车换行所以需要替换掉高版本的不需要JSONStr64 : JSONStr64.Replace(#10,);JSONStr64 : JSONStr64.Replace(#13,);//2. 构造javascript 函数JavaScriptFunction : Command ( JSONStr64 );; // DelphiCall( JSONStr64 );;//3. 执行浏览器javascript函数G_WebBrowser.EvaluateJavaScript(JavaScriptFunction);
end;
2. javaScript代码
//Delphi 底座调用的函数
function OnDelphiCall(JSONStr) {//进行Base64解密let decodedData window.atob(JSONStr);let decodedData1 decodeURIComponent(decodedData);let jo JSON.parse(decodedData1);ElMessageBox.alert(jo.Server_Message_Content, jo.Server_Message_Title, {// if you want to disable its autofocus// autofocus: false,confirmButtonText: OK,showClose: false,})onMounted(() {//最新的统一 DelphiCall 函数window.DelphiCall OnDelphiCall;
})如果没有用过TWebBrowser可能无法看懂本文开发中实际遇到的问题期望能够帮助到需要的人
