delphi调用js脚本

JS脚本:

function nowtime()
{

return new Date().getTime();
}

t = nowtime();

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;

• 点赞
• 收藏
• 分享
• 文章举报