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;