如何使用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中進行邏輯的方式。

遵循以下步驟：

• 找到導入類型庫菜單功能，這取決於德爾福版本，它可能是在不同的頂部菜單的（通常是組件或工具），或有不同的名稱（導入的ActiveX，導入COM對象...）
• 從已知類型庫的列表中，選擇「Microsoft腳本控制」，在列表中的最高版本（但機會是它仍然只是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;