在 Delphi 中调用 JavaScript函数--可获取返回值

在 Delphi 中调用 JavaScript

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不可用，会提示未定义。