javascript有一个encodeURI函数， 用Delphi如何实现？

[litangel]

javascript有一个encodeURI函数，

用Delphi如何实现？

此函数可以把 %E6%B5%8B%E8%AF%95 解成“测试”

[brightyang]

if str='%E6%B5%8B%E8%AF%95' then
str:='测试';

[litangel]

brightyang ：
晕S。

[litangel]

写错了：是DecodeURI

[skertone]

楼上的楼上的楼上真是有强人啊

[hongqi162]

uses  ComObj;

var
  sc: OleVariant;
  Words:string;
begin
  sc := CreateOleObject('MSScriptControl.ScriptControl.1');
  sc.Language :='javascript';
  Words:='测试';
  Words:=sc.Eval('escape('''+Words+''')');
  showmessage( words );
  words:=sc.Eval('unescape('''+Words+''')');
  showmessage( words );
end;

[hongqi162]

uses  ComObj;

var
  sc: OleVariant;
  Words:string;
begin
  sc := CreateOleObject('MSScriptControl.ScriptControl.1');
  sc.Language :='javascript';
  Words:='测试';
  Words:=sc.Eval('encodeURI('''+Words+''')');
  showmessage( words );
  words:=sc.Eval('decodeURI('''+Words+''')');
  showmessage( words );
end;

[天行归来]

http://www.9cpp.com/Ds/Example/20070617/298.html

[litangel]

失踪的月亮的办法不错。
不过我还是想不去依靠外力，

光用delphi来写函数。
辛苦了查了几次资料，终于搞定。

实际上就是下个UTF-8--->Ansi的过程。