Delphi 运行js

本文整理自网络，侵删。

 
unit uJavaScript;

interface

function RunJs(const JsCode, JsVar: string; var R: string): Boolean;

implementation
uses
  System.Win.ComObj, Winapi.ActiveX, System.SysUtils;

function RunJs(const JsCode, JsVar: string; var R: string): Boolean;
var
  script: OleVariant;
begin
  Result := True;
  CoInitialize(nil);
  try
    script := CreateOleObject('ScriptControl');
    script.Language := 'JavaScript';
    script.ExecuteStatement(JsCode);
    R := script.Eval(JsVar);

  except
    on e: Exception do
    begin
      R := e.Message;
      Result := False;
    end;
  end;

  CoUninitialize;
end;

end.

 

相关阅读 >>

Delphi tfdquery提交tfdmemtable修改的数据

Delphi xe10对json的解析应用

最简单的Delphi程序(控制台)

Delphi 编写键盘记录器

Delphi istream与tstream之间的相互转换

Delphi根据进程pid等待进程结束或者结束进程

Delphi idhttp实现get方法下载文件，断点续传

Delphi tms web core 嵌入js代码

Delphi中线程的释放

Delphi fdconnection1 获取数据库总记录数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 运行js