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 application.title在win7下失效了？

Delphi xe 减少程序体积！

Delphi 在memorystream查找字符串

Delphi xe 跨平台（windows、android安卓、苹果macos、苹果ios）写法

Delphi 根据分割符只取最后的值

Delphi中输入法模式imemode属性的解释

Delphi ascii码表及键盘码表

Delphi android 关闭应用程序对话框询问

Delphi 正则表达式的匹配模式

Delphi 取得桌面文件夹的路径和取得我的文档的路径

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

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