Delphi 调用JS

直接上代码

procedure TForm2.TestClick(Sender: TObject);
var
  m_OLE: Variant;
  Js: string;
  JsReturn:string;
begin
  m_OLE := CreateOleObject('ScriptControl');
  m_OLE.Language := 'JavaScript';
  Js := 'function hello(value){  return ''hello'' + value; }';
  m_OLE.AddCode(Js);

  CoInitialize(nil);
  JsReturn := m_OLE.Eval('hello("js")');
  ShowMessage(JsReturn);
  CoUnInitialize;
end;