MSScriptControl.ScriptControl JScript github delphi JavaScript

https://grandruru.blogspot.com/2019/09/script-engine-in-delphi.html

https://gist.github.com/XProger/89c360fedcd1da8b3978


function Calc(const CalcStr: string): string; var   v : Variant; begin   v := CreateOleObject('MSScriptControl.ScriptControl');   v.Language := 'JScript';   Result := v.Eval(CalcStr);   v := Unassigned;

MSScriptControl.ScriptControl JScript github delphi CreateOleObject('MSScriptControl.ScriptControl');


https://github.com/maxkleiner/maXbox4/blob/19626482415f6bd5e450164c007d5364cd8a1216/source2022_3_R/SMScript.pas#L182
https://github.com/Cordekk/jdx/blob/fc1446ba89834ed030551f0a158888368e34d82c/Js_Eval.epas#L19
https://github.com/ReneNyffenegger/about-VBA/blob/master/object-libraries/Microsoft-Script-Control/parseJSON.bas
https://github.com/SchildCode/EpXL/issues/3

var JS:variant;
begin JS:=CreateOleObject('MSScriptControl.ScriptControl');
JS.Language := 'JScript';
result:= JS.Eval(s);
JS:=Unassigned;

MSScriptControl.ScriptControl JScript CoInitialize SafeArrayCreate IScriptControlPtr AllowUI AddCode   msscript.ocx
https://learn.microsoft.com/zh-tw/troubleshoot/developer/visualstudio/cpp/libraries/call-script-control-run-method
https://learn.microsoft.com/zh-cn/troubleshoot/developer/visualstudio/cpp/libraries/call-script-control-run-method
https://github.com/tablacus/TablacusScriptControl

MSScript delphi
https://delphi-programming.yahoogroups.narkive.com/O9QkwUni/delphi-and-ms-script-control

http://bbs.2ccc.com/topic.asp?topicid=565071
盒子论坛 v2.1 编译64位的exe无法使用ms自带的ScriptControl

OleVariant CreateOleObject('ScriptControl')
unit MSScriptControl_TLB;    // Type Lib: C:\Windows\SysWOW64\msscript.ocx (1) // LIBID: {0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}



1、下载https://github.com/tablacus/TablacusScriptControl/releases/download/1.0.9.0/tsc64_1090.cab，安装即可。  2、源码：https://github.com/tablacus/TablacusScriptControl.git
 
https://github.com/tablacus/TablacusScriptControl
tsc64.dll

https://github.com/tablacus/TablacusScriptControl/issues/10
Dim SC Set SC = CreateObject("MSScriptControl.ScriptControl")  SC.Reset  WScript.Echo SC.Language