Delphi下使用jslib？

最新推荐文章于 2024-09-04 07:46:16 发布

ked

最新推荐文章于 2024-09-04 07:46:16 发布

阅读量1k

点赞数

分类专栏： Delphi SpiderMonkey Javascript 文章标签： delphi download mozilla button javascript cvs

本文链接：https://blog.youkuaiyun.com/ked/article/details/3301082

版权

Delphi 同时被 3 个专栏收录

18 篇文章

订阅专栏

Javascript

14 篇文章

订阅专栏

SpiderMonkey

8 篇文章

订阅专栏

本文介绍了一个子项目，该项目提供了一座桥梁，连接Delphi/Kylix与SpiderMonkey JavaScript引擎，允许开发者在其应用程序中使用该引擎。通过示例代码展示了如何在Delphi环境中启动SpiderMonkey并利用其功能。

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

参考：http://delphi.mozdev.org/javascript_bridge/ Delphi / Kylix <-> SpiderMonkey Bridge

This sub-project provides a bridge between Delphi / Kylix and SpiderMonkey, the JavaScript engine from the Mozilla Foundation, allowing you to use it in your own applications. You can get the code via CVS or download an archive. If you encounter any problems, or would like to recommend a feature, please file a bug.

下载：

Download the source code archive.
Or get the source via CVS.

代码片断：

 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FEngine := TJSEngine.Create(40000);
  FEngine.StartDebugger;
  FEngine.Global.AddNativeObject(Edit1, 'edit');
  FEngine.Global.AddNativeObject(Button1, 'button');
  FEngine.Global.Evaluate('function toggle() { ' +
                          '  edit.Visible = ! edit.Visible;' +   // Toggle the visible property on/off 
                          '  button.Caption = (edit.Visible ? "Hide" : "Show");' + // Change button 
                          '}');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FEngine.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  FEngine.Global.Evaluate('toggle()');
end;
 