您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi调用javascript封装的一个开源单元

时间:2011/9/3 15:27:58 点击:

  核心提示:调用范例:创建:procedure TSomeForm.FormCreate(Sender: TObject);begin// Create our javascript engine// M...

调用范例:

创建:

procedure TSomeForm.FormCreate(Sender: TObject);
begin
  // Create our javascript engine
  javascript := Tjavascript.Create(Self);
  // Make this form available to javascript under the name 'Form'
  FScript.AddScriptlet(CreateComponentScriptlet(Self, 'Form'));
  // Add hosting support including our Alert and Echo methods
  FScript.AddScriptlet(CreateHostScriptlet(ScriptAlert, ScriptEcho));
end;
执行:
procedure TSomeForm.ExecuteButtonClick(Sender: TObject);
begin
  javascript.Lines := SourceMemo.Lines;
  javascript.Execute;
end;



迅雷专用高速下载

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号