又遇到有关问题了,关于delphi执行js的有关问题
又遇到问题了,关于delphi执行js的问题
执行js的函数
js的代码在memo中,
如果我调用js中的test函数,传入的值为数字,就没有问题,例如
ExecScript(mmo1.Text,‘test(111)’);
这样是可以执行的。
但是如果我传入的值里面含有英文,感觉就没有执行,返回的是空白。
ExecScript(mmo1.Text,‘test(aaaa)’);
我想要传入的值不仅仅含有数字、字母,还要能传入特殊符号,请问下大牛们,该怎么实现?
小菜在此先谢过了!
------解决思路----------------------
ExecScript(mmo1.Text,‘test("aaaa")’);
这样试试?不加双引号的话,aaaa是变量名,你变量应该未定义。
执行js的函数
function ExecScript(Code,Func:string):string;
var
script:OleVariant;
begin
try
script:=CreateOleObject('ScriptControl');
script.Language:='JavaScript';
script.AddCode(Code);
Result:=script.Eval(Func);
except
end;
end;
js的代码在memo中,
如果我调用js中的test函数,传入的值为数字,就没有问题,例如
ExecScript(mmo1.Text,‘test(111)’);
这样是可以执行的。
但是如果我传入的值里面含有英文,感觉就没有执行,返回的是空白。
ExecScript(mmo1.Text,‘test(aaaa)’);
我想要传入的值不仅仅含有数字、字母,还要能传入特殊符号,请问下大牛们,该怎么实现?
小菜在此先谢过了!
------解决思路----------------------
ExecScript(mmo1.Text,‘test("aaaa")’);
这样试试?不加双引号的话,aaaa是变量名,你变量应该未定义。