在Delphi中高效执行JS代码

2021-07-24 16:03:41 阅读：239 来源： 互联网

标签：JsVar 高效 end script Delphi Vcl begin JS JsCode

因为一些原因，需要进行encodeURIComponent和decodeURIComponent编码，在Delphi中找了一个，首先是发现不能正确编码+号，后面强制处理替换了，勉强可用。

后面发现多次使用后delphi自带的HttpEncode会报Out of Memory.

以上可能是我使用的不好，但没有找到解决办法。

后面想到直接采用运行JavaScript代码，找到了”万一的 Delphi 博客“

在 Delphi 中调用 JavaScript(2) - 万一 - 博客园 (cnblogs.com)

{此函数需要 ComObj 单元的支持}
{参数 JsCode 是要执行的 Js 代码; 参数 JsVar 是要返回的变量}
function RunJs(const JsCode, JsVar: string): string;
var
  script: OleVariant;
begin
  try
    script := CreateOleObject('ScriptControl');
    script.Language := 'JavaScript';
    script.ExecuteStatement(JsCode);
    Result := script.Eval(JsVar);
  except
    Result := '';
  end;
end;

万一老师的博客，内容简洁，附完全代码（pas和dfm）,赞一个！

这个函数非常好用，但有一个问题，每次执行的时间较长。

经过研究，是创建时间较长。所以可以分为2个函数，创建和执行。

开始时一次创建，需要时多次执行

完全代码如下：

unit Unit1;

interface

uses
    ComObj,
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  script: OleVariant;

implementation

{$R *.dfm}
function RunJs(const JsCode, JsVar: string): string;
begin
  try
    script.ExecuteStatement(JsCode);
    Result := script.Eval(JsVar);
  except
    Result := '';
  end;
end;

procedure PrepareJs;
begin
  try
    script := CreateOleObject('ScriptControl');
    script.Language := 'JavaScript';
  except
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
    I,T : Integer;
    S   : String;
begin
    T   := GetTickCount;
    PrepareJs;
    for I:=0 to 9999 do begin
        S   := RunJS('var a=encodeURIComponent("abc中文件123")','a')
    end;
    ShowMessage((GetTickCount-T).ToString+' - '+S);
end;

end.

经测试，执行10000次仅需要688毫秒

标签：JsVar,高效,end,script,Delphi,Vcl,begin,JS,JsCode
来源： https://www.cnblogs.com/maxxua/p/15055379.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

在Delphi中高效执行JS代码