Delphi 调用javascrpit

最新推荐文章于 2019-03-29 08:30:02 发布

转载最新推荐文章于 2019-03-29 08:30:02 发布 · 707 阅读

文章标签：

#delphi #javascript #vbscript #function #c #date

Delphi 控件专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一种使用Delphi调用JavaScript代码的方法，并通过一个具体的例子——获取当前时间来展示这一过程。该方法首先创建一个ScriptControl组件，设置其使用的语言为JavaScript，然后将所需的JavaScript代码添加到组件中，最后通过Eval方法执行JavaScript函数并获取结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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