有时做项目难免用到代码交叉调用,delphi中执行js就是一种,两种方法可用:
一、使用webbrower,比较麻烦
二、使用ScriptControl,简单方便:
1.首先
uses ComObj;
2.通用函数:
function ExecScript(Code,Func:string):string; 'JavaScript';
var
script:OleVariant;
begin
try
script:=CreateOleObject('ScriptControl');
script.Language:='JavaScript';{指定组件所使用的语言,也可以是'VBScript'}
script.AddCode(Code);
Result:=script.Eval(Func);
except
end;
end;
3.放入一个memo,直接在form的create时,loadfromfile即可,或是直接把javascript代码放到memo中
procedure TForm1.FormCreate(Sender: TObject);
begin
mmoscript.Lines.LoadFromFile('uifordata.js');
end;
4.调用
cbbValue7.Text := ExecScript(mmoscript.Text,'function1(123)');
//注意:本方法调用时,javascript的全局变量像screen不可用,会提示未定义。
一、使用webbrower,比较麻烦
二、使用ScriptControl,简单方便:
1.首先
uses ComObj;
2.通用函数:
function ExecScript(Code,Func:string):string; 'JavaScript';
var
script:OleVariant;
begin
try
script:=CreateOleObject('ScriptControl');
script.Language:='JavaScript';{指定组件所使用的语言,也可以是'VBScript'}
script.AddCode(Code);
Result:=script.Eval(Func);
except
end;
end;
3.放入一个memo,直接在form的create时,loadfromfile即可,或是直接把javascript代码放到memo中
procedure TForm1.FormCreate(Sender: TObject);
begin
mmoscript.Lines.LoadFromFile('uifordata.js');
end;
4.调用
cbbValue7.Text := ExecScript(mmoscript.Text,'function1(123)');
//注意:本方法调用时,javascript的全局变量像screen不可用,会提示未定义。