delphi 执行JS函数，再也不用担心JS怎么转换成pascal语言了！

最新推荐文章于 2024-07-11 20:05:45 发布

意帆

最新推荐文章于 2024-07-11 20:05:45 发布

阅读量568

点赞数 1

分类专栏： delphi 文章标签： delphi js

本文链接：https://blog.csdn.net/yifanbbs/article/details/106503238

版权

delphi 专栏收录该内容

20 篇文章 0 订阅

订阅专栏

delphi 执行JS函数，再也不用担心JS怎么转换成pascal语言了！

因为引入OLE，则需要引入：ComObj, ActiveX; 在DELPHI 7 和 DELPHI D10.3中验证通过！

function FunRunJs(str: string): string;
var m_OLE : Variant;
    StrList: TStringList;
begin
  Result:='';
  if Trim(str)='' then exit;

  //创建JS变体类型
  m_OLE := CreateOleObject('ScriptControl');
  m_OLE.Language:='JavaScript';

  StrList:= Tstringlist.Create;
  try
   //读取同目录下的JS文件
   if not FileExists(ExtractFilePath(ParamStr(0)) + 'sign.dat') then exit;
   StrList.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'sign.dat');
   //将读取的文件加载至 m_OLE 中
   m_OLE.AddCode(strlist.Text);
  finally
   StrList.Free;
  end;

  //线程中调用Variant 需要使用  CoInitialize，CoUnInitialize
  CoInitialize(nil);
  Result:=m_OLE.Eval('getStringSign("'+str+'")');  //调用 JS中方法，如果JS需要编码，则加入：UTF8Encode(str)
  CoUnInitialize;
end;