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 xe10 百度车牌识别

Delphi 实现简易语音发音（基于tts方式）

如何在Delphi中禁用关于“返回值...可能未定义”的警告？

Delphi 取最前窗口标题（不重复）

Delphi 农历源码

Delphi 程序运行提示 “database login”对话框，让输入adoconnection1 的username和password

Delphi连接mysql出现乱码

Delphi 提取标签之间的字符串（重复标签）

Delphi 2010/xe下隐藏程序在系统任务栏的图标

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

转载请注明出处：木庄网络博客 » Delphi 调用js字符串编码