您的位置:首页 > 编程语言 > Delphi

delphi调用js脚本

2020-02-16 00:31 127 查看

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;


  • 点赞
  • 收藏
  • 分享
  • 文章举报
断东河dorado 发布了1 篇原创文章 · 获赞 0 · 访问量 647 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: