在 Delphi 中调用 JavaScript

有时做项目难免用到代码交叉调用,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不可用,会提示未定义。

你可能感兴趣的:(Delphi,delphi,javascript)