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

相关资料：

http://www.it588.cn/softdev/2019-05-06/603.html

方法一：

引入单元：

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;

 

方法二：

相关资料：

https://blog.csdn.net/cc001100/article/details/81015182

http://www.delphitop.com/html/zifuchuan/4728.html

http://www.tansoo.cn/?p=736

 

function AnsiToUnicode(Str: ansistring): string;
var
  s: ansistring;
  i: integer;
  j, k: string[2];
  a: array [1..1000] of ansichar;
begin
  s := '';
  StringToWideChar(Str, @(a[1]), 500);
  i := 1;
  while ((a[i] <> #0) or (a[i+1] <> #0)) do
  begin
    j := IntToHex(Integer(a[i]), 2);
    k := IntToHex(Integer(a[i+1]), 2);
    s := s + '\u'+ k + j;
    i := i + 2;
  end;
  Result := s;
end;

function UnicodeToAnsi(aSubUnicode: string): string;
var
  tmpLen, iCount: Integer;
  tmpWS: WideString;
begin
  tmpWS := '';
  iCount := 1;
  tmpLen := Length(aSubUnicode);
  while iCount <= tmpLen do
    try
      if (Copy(aSubUnicode, iCount, 1) = '\')
        and (Copy(aSubUnicode, iCount, 2) = '\u') then
      begin
        tmpWS := tmpWS
          + WideChar(StrToInt('$' + Copy(aSubUnicode, iCount + 2, 4)));
        iCount := iCount + 6;
      end
      else
      begin
        tmpWS := tmpWS + Copy(aSubUnicode, iCount, 1);
        iCount := iCount + 1;
      end;
    except
    end;
  Result := tmpWS;
end;