delphi 调用js脚本

本文整理自网络，侵删。

 function ExecScript(Code,Lang,Func:string):string;
var
script:OleVariant;
begin
script:=CreateOleObject('ScriptControl');
script.Language:=Lang;
script.AddCode(Code);
Result:=script.Eval(Func);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Lines.Text:=ExecScript(Memo1.Text,'JavaScript','getFullToday()');
end;
 

相关阅读 >>

选择 Delphi 的 9 条理由

Delphi 字符串与内存流和文件的快速转换函数

Delphi Delphi写的一个上位机

Delphi 中将tmemorystream转换为'string'

Delphi webbrowser 操作记要

Delphi 给字加边的又一个算法

Delphi对access文件加密

Delphi fmx app 设置 程序图标，闪屏,程序名

Delphi windows 编程[17] - 更换菜单: loadmenu、destroymenu、setmenu

Delphi tdbgrideh导出excel

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

转载请注明出处：木庄网络博客 » delphi 调用js脚本