delphi调用js脚本

最新推荐文章于 2024-07-11 20:05:45 发布

转载最新推荐文章于 2024-07-11 20:05:45 发布 · 437 阅读

JS脚本:

function nowtime()
{

  return new Date().getTime();
}


t = nowtime();

Delphi调用:

uses
  System.Win.ComObj;

procedure TForm1.btnRunClick(Sender: TObject);
var
  s: string;
begin
  s := JsRun(Memo1.Text, 't');

  ShowMessage(s);
end;

function TForm1.JsRun(jsCode, jsVar: string): string;
var
  js: OleVariant;
begin
  try
    js := CreateOleObject('ScriptControl');
    js.Language := 'JavaScript';
    js.AddCode(jsCode);
    Result := js.Eval(jsVar);
  except
    Result := '';
  end;
end;