【Delphi】使用TWebBrowser执行JavaScript命令传入JSON参数执行出错解决方案

目录

一、问题背景:

二、实际示例:

三、解决方案:

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处理,然后传递给javaScript,javaScript接收到参数后进行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可能无法看懂本文!开发中实际遇到的问题,期望能够帮助到需要的人!

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/160289.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

Postman如何使用(一):导入导出和发送请求查看响应

一、Postman如何导入导出打包的应用 在Postman中导入导出我们的 测试数据包 和 工作环境 非常的方便: 导出数据包的方法如下: 如果你想学习自动化测试,我这边给你推荐一套视频,这个视频可以说是B站播放全网第一的自动化测试教程…

七天.NET 8操作SQLite入门到实战 - 第三天SQLite快速入门

前言 今天我们花费一个小时快速了解SQLite数据类型、SQLite常用命令和语法。 七天.NET 8操作SQLite入门到实战详细教程 第一天 SQLite 简介第二天 在 Windows 上配置 SQLite环境 EasySQLite项目源码地址 GitHub地址:https://github.com/YSGStudyHards/EasySQLite&…

第一百七十六回 如何创建渐变色边角

文章目录 1. 概念介绍2. 实现方法3. 代码与细节3.1 示例代码3.2 代码细节 4. 内容总结 我们在上一章回中介绍了"如何创建放射形状渐变背景"相关的内容,本章回中将介绍"如何创建渐变色边角".闲话休提,让我们一起Talk Flutter吧。 1.…

2023-11-22 LeetCode每日一题(网格中的最小路径代价)

2023-11-22每日一题 一、题目编号 2304. 网格中的最小路径代价二、题目链接 点击跳转到题目位置 三、题目描述 给你一个下标从 0 开始的整数矩阵 grid ,矩阵大小为 m x n ,由从 0 到 m * n - 1 的不同整数组成。你可以在此矩阵中,从一个…

一石激起千层浪,有关奥特曼被炒的消息引发了一场热烈的讨论

在毫无征兆的情况下,OpenAI CEO山姆-奥特曼被炒了。 一石激起千层浪,有关奥特曼被炒的消息引发了一场热烈的讨论。 有人将其看成是一场「宫斗」,有人将其看成是OpenAI的董事会与创始人们的一次纠偏。 无论如何,这样一件看似并无…

网工内推 | 合资公司网工,CCNP/HCIP认证优先,朝九晚六

01 中企网络通信技术有限公司 招聘岗位:网络工程师 职责描述: 1、按照工作流程和指引监控网络运行情况和客户连接状况; 2、确保各监控系统能正常运作; 3、快速响应各个网络告警事件; 4、判断出网络故障,按…

数据要素:数字经济最核心的资源。(存储,流通,使用)数据资产的价值量化评估,数据要素的特点

目录 数据要素:数字经济最核心的资源。(存储,流通,使用) 数据资产的价值量化评估

浅谈对于Android CMakeLists文件的理解

文章目录 文件结构 文件结构 cmake_minimum_required(VERSION 3.10.2) //设置cmake版本set(CMAKE_LIBRARY_OUTPUT_DIRECTORY${CMAKE_CURRENT_LIST_DIR}/../jniLibs/${ANDROID_ABI}) //设置.so文件输出路径 project("add") //编译目录add_library( common //生成.so文…

【Linux虚拟内存的配置】

设置Linux虚拟内存 注意:在做项目时,电脑内存不够用,怎么办? 这里给大家提供了一种解决方案,用磁盘换内存,具体如下: 虚拟内存swap介绍 如果你的服务器的总是报告内存不足,并且时常因为内存不足而引发服务被强制kill的话,在不增加物理内…

一、爬虫-爬取豆瓣电影案例

1、环境配置 你需要一个pycharm和requests第三方库,在安装完成之后即可继续浏览。 2、操作流程 (1)打开豆瓣电影网站,点击排行榜,点击喜剧,检查 (2)可以看到鼠标每次下移&#xff0…

蓝桥杯每日一题2023.11.22

题目描述 题目分析 由题目知其每个品牌积分一定小于315故直接暴力枚举每个品牌如果符合要求直接输出即可 &#xff08;答案&#xff1a;150&#xff09; #include<bits/stdc.h> using namespace std; int main() {for(int i 1; i < 315; i ){for(int j 1; j <…

redis运维(十四) hash缓存案例

一 缓存案例 ① 需求 ② 个人理解 策略&#xff1a;不更新缓存&#xff0c;而是删除缓存大部分观点认为&#xff1a;1、做缓存不应该是去更新缓存,而是应该删除缓存2、然后由下个请求去缓存,发现不存在后再读取数据库,写入redis缓存 高并发场景下,到底先更新缓存还是先更…

c语言-操作符详解(含优先级与结合性)

文章目录 了解什么是操作数、操作符操作数&#xff1a;操作符 操作符详解&#xff1a;1.算术操作符&#xff1a; 、- 、* 、/ 、%2.移位操作符: << >>3.位操作符: & | ^4. 赋值操作符: 、 、 - 、 * 、 / 、% 、<< 、>> 、& 、| 、^5. 单⽬操…

【LeetCode刷题】--39.组合总和

39.组合总和 本题详解&#xff1a;回溯算法剪枝 class Solution {public List<List<Integer>> combinationSum(int[] candidates, int target) {int len candidates.length;List<List<Integer>> res new ArrayList<>();if (len 0) {return r…

KyLin离线安装OceanBase

去OceanBase下载若干文件 1 首先安装ob-deploy-2.3.1-2.el7.x86_64.rpm rpm -ivh ob-deploy-2.3.1-2.el7.x86_64.rpm# 运行此命令的时候他会报错 RPM should not be used directly install RPM packages, use Alien instead! 这个需要用Alien去转换为deb的包&#xff0c;不…

MethodArgumentNotValidException 与 ConstraintViolationException

MethodArgumentNotValidException 和ConstraintViolationException 都是用于处理参数校验异常的异常类&#xff0c;但它们在不同的上下文中使用。 1. MethodArgumentNotValidException&#xff1a; - MethodArgumentNotValidException 是在 Spring MVC 或 Spring Boot 中处…

一篇五分生信临床模型预测文章代码复现——Figure 10.机制及肿瘤免疫浸润(六)

之前讲过临床模型预测的专栏,但那只是基础版本,下面我们以自噬相关基因为例子,模仿一篇五分文章,将图和代码复现出来,学会本专栏课程,可以具备发一篇五分左右文章的水平: 本专栏目录如下: Figure 1:差异表达基因及预后基因筛选(图片仅供参考) Figure 2. 生存分析,…

windows系统玩游戏找不到d3dx9_35.dll缺失的解决方法

分享一个我们在打开游戏或许软件过程中遇到的问题——“由于找不到d3dx9_35.dll,无法继续执行代码”的五个修复方案。这个问题可能会影响到我们的工作和娱乐效率&#xff0c;甚至可能导致工作的延期。因此&#xff0c;我希望通过今天的文章&#xff0c;能够帮助大家更好地解决这…

电大搜题——打开学习之门的最佳选择

在快节奏的现代社会&#xff0c;追求知识和学习成为愈发重要的需求。然而&#xff0c;许多人由于时间和机会的限制&#xff0c;无法实现自己的教育梦想。就在这个时候&#xff0c;安徽开放大学广播电视大学通过推出电大搜题微信公众号&#xff0c;为广大学子提供了一个便捷高效…

别低头,皇冠会掉;别流泪,贱人会笑。

别低头&#xff0c;皇冠会掉&#xff1b;别流泪&#xff0c;贱人会笑。