Delphi 调用js字符串编码


本文整理自网络,侵删。

 uses ComObj,ActiveX ;

function 执行JS函数(Code, Lang, Func: string): string;
var
script:OleVariant;
begin
script:=CreateOleObject('ScriptControl');
script.Language:=Lang;
script.AddCode(Code);
Result:=script.Eval(Func);
end;

//通信类使用
function 字符串编码(文本: string): string;
begin
Result:=执行JS函数('function Encode(e){var s = encodeURIComponent(e) ; return s}',
                      'JavaScript',
                      Format('Encode(''%s'');',[文本])) ;
end;

相关阅读 >>

Delphi 提取时间成分

Delphi实现获取密码框中的密码

Delphi tlog 日志

Delphi 获取网页源代码的最简单办法

常用的几个网络函数和系统函数

Delphi中如何给一个字符串从左边进行补0

Delphi 如何确定windows安装的语言

Delphi一个简单的多线程例子

Delphi 一个call应该如何写?

Delphi 线程教学第一节:初识多线程

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...