本文整理自网络,侵删。
unit uJavaScript;
interface
function RunJs(const JsCode, JsVar: string; var R: string): Boolean;
implementationuses 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 泛型容器单元(generics.collections) tdictionary<t>
Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)
更多相关阅读请进入《Delphi》频道 >>