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;

CoUninitialize;

end;

end.

推荐分享