Delphi实现js中的escape()编码和unescape()解码

引入单元：

uses

ActiveX,

ComObj;

实例调用：

//javascript中的escape()函数的delphi实现
function Escape(s: string): string;
var
sc: OleVariant;
begin
ActiveX.CoInitialize(nil);
try
sc := CreateOleObject('MSScriptControl.ScriptControl.1');
sc.Language := 'javascript';
Result := sc.Eval('escape(''' + s + ''')');
except
Result := '';
end;
ActiveX.CoUninitialize;
end;

//javascript中的unescape()函数的delphi实现
function UnEscape(s: string): string;
var
sc: OleVariant;
begin
ActiveX.CoInitialize(nil);
try
sc := CreateOleObject('MSScriptControl.ScriptControl.1');
sc.Language := 'javascript';
s := StringReplace(s, '/u', '%u', [rfReplaceAll, rfIgnoreCase]); //'\u' 一些格式转换,根据自己需要处理
Result := sc.Eval('unescape(''' + s + ''')');
except
end;
ActiveX.CoUninitialize;
end;