Delphi 与 JavaScrpt 交互[1]

Delphi 与 JavaScrpt 交互[1]

准备一段js放置于Memo1中

?

1 2 3 4

function bb(cc){   var d = cc+5;   return d; }

实现代码：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

uses ComObj;   function ExecScript(Code,Lang,Func:string):string; var   script:OleVariant; begin   try     script:=CreateOleObject('ScriptControl');     script.Language:=Lang;     script.AddCode(Code);     Result:=script.Eval(Func);   except   end;   //按钮事件 procedure TForm1.BitBtn2Click(Sender: TObject); var   bb:string; begin   bb:=ExecScript(Memo1.Text,'JavaScript','bb(3)');   ShowMessage(bb);    //8 end;

 

 

创建时间：2021.06.18　　更新时间：