RSS订阅 | 匿名投稿
您的位置:网站首页 > 文件 > 正文

Delphi 运行js

作者:admin 来源: 日期:2018/2/14 18:22:04 人气: 标签:

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.


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料