如何使用 ScriptControl 和加载 Unicode res 文件？

Question

如何将此 VB6 代码转换为 Delphi？

strConv(a, vbUnicode)

和

Private cScript As New ScriptControl
cScript.Language = "Javascript"
cScript.Reset
cScript.AddCode StrConv(LoadResData(101, "RSADATA"), vbUnicode)
cScript.Run("createRsaKey", data1 , data2)

Answer 1

首先：我同意@DavidHeffernan：请（非常请）寻找一种在 Delphi 中执行逻辑的方法。

按照以下步骤操作：

• 找到导入类型库菜单功能，根据 Delphi 版本，它可能位于不同的顶部菜单（通常是组件或工具）下，或者具有不同的名称（导入 ActiveX、导入 COM 对象...）
• 从已知类型库列表中，选择列表中最高版本的“Microsoft Script Control”（但很可能仍然只是 1.0 版）
• 创建包装单元

然后使用TScriptControl 对象的实例，可能是这样的：

var
  sc:TScriptControl;
  sa:PSafeArray;
  code:WideString;
  rs:TResourceStream;
begin
  rs:=TResourceStream.Create(HInstance,'RSADATA',MakeIntResource(101));
  try
    SetLength(code,rs.Size div 2);
    rs.Read(PWideChar(code)^,rs.Size);
  finally
    rs.Free;
  end;

  sc:=TScriptControl.Create(nil);
  try
    sc.Language:='Javascript';
    sc.Reset;
    sc.AddCode(code);
    sa:=PSafeArray(TVarData(VarArrayOf([data1,data2])).VArray);
    sc.Run('createRsaKey',sa);
  finally
    sc.Free;
  end;
end;