本文整理自网络,侵删。
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的idhttp报508 loop detected错误的原因
Delphi 10 seattle plus 新特性――system.json.builders
更多相关阅读请进入《Delphi》频道 >>