uses
Comobj;
----------------------------------------------------------------------------
用来实践的JavaScript
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; }
----------------------------------------------------------------------------
Delphi 调用JavaScript的代码:
procedure TForm6.Button2Click(Sender: TObject); 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;
http://blog.163.com/nothing_cj/blog/static/82560196201081611924110/
转自:http://hi.baidu.com/udb119/blog/item/9888f5ef13537921acafd5f3.html