Delphi下使用jslib？

 参考：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.

 

代码片断：

2. procedure TForm1.FormCreate(Sender: TObject);
3. begin
4.   FEngine := TJSEngine.Create(40000);
5.   FEngine.StartDebugger;
7.   FEngine.Global.AddNativeObject(Edit1, 'edit');
8.   FEngine.Global.AddNativeObject(Button1, 'button');
10.   FEngine.Global.Evaluate('function toggle() { ' +
11.                           '  edit.Visible = ! edit.Visible;' +   // Toggle the visible property on/off
12.                           '  button.Caption = (edit.Visible ? "Hide" : "Show");' + // Change button
13.                           '}');
14. end;
16. procedure TForm1.FormDestroy(Sender: TObject);
17. begin
18.   FEngine.Free;
19. end;
21. procedure TForm1.Button1Click(Sender: TObject);
22. begin
23.   FEngine.Global.Evaluate('toggle()');
24. end;