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;