Delphi怎么样调用JS函数呢?

50 | 问答知识库用户 |浏览281次
收藏|2014/05/17 22:00
如题

满意回答

2014/05/18 09:38

参考一下:
var
  js: OleVariant;
  str: string;
begin
  js := CreateOleObject('ScriptControl'); // 创建组件
  js.Language := 'JavaScript'; // 指定组件所使用的语言,也可以是VBScript
  js.AddCode(Memo1.Text); // 加入JS代码,如上面的代码
  str := js.Eval('getTime()');// getTime() function from JS
  ShowMessage(str);
end;

Memo1.text内容

function getTime(){
var d, s = "";
var c = "";
d = new Date();
s += d.getYear()+c;
s += (d.getMonth() + 1) + c;
s += d.getDate() + c;
s += d.getHours() + c;
s += d.getMinutes() + c;
s += d.getSeconds() + c;
s += d.getMilliseconds();
return s;
}

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...