2017年02月15日 10:18:01 NowMore_Guo 阅读数：719
有时做项目难免用到代码交叉调用，delphi中执行js就是一种，两种方法可用： 一、使用webbrower，比较麻烦 二、使用ScriptControl，简单方便： 1.首先 uses ComObj; 2.通用函数： function ExecScript(Code,Lang,Func:string):string; var script:OleVariant; begin try script:=CreateOleObject('ScriptControl'); script.Language:=Lang; 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,'JavaScript','function1(123)'); 注意：本方法调用时，javascript的全局变量像screen不可用，会提示未定义。