VFP 愛用者社區

iswith · 註冊時間: 2022-11-04 文章: 93 第 1 樓

Clear

Public cPath
m.cPath = Justpath( Sys(16) )
Set Default To ( m.cPath )

Set Procedure To netsuite.reg.prg

Public oNetV8js

oNetV8js = createobjects( "NetV8Js.V8Js" , "NetV8Js.dll")

*支持 VBScript、JavaScript 和 V8
*--注意不要使用“["|"]"来做字符串定界符
*--在V8引擎上注入_VFP,以便在JS中交互调用VFP函数
oNetV8js.AddHostObject( "_vfp" , _vfp )

*--在V8js给VFP A变量赋值
Text To m.lcSetVar noShow
_vfp.SetVar( "A" , 123456789 )
Endtext
oNetV8js.Execute( m.lcSetVar )
?"A变量值："
?A

*--在V8js调用VFP写的函数传参
Set Safety Off
Text To m.lcVFPscript noShow
Procedure Aa( a as Integer , b as Integer )
Return a+b
Endproc
Endtext

Strtofile( m.lcVFPscript , "V8test1.prg" )

Text To m.lcDoCmdstr noShow
_vfp.DoCmd( "Execscript( 'set Procedure to V8test1.prg Additive ' + Chr(13) + '?? Aa(1,2)')")
Endtext
?"在V8js调用VFP函数:"
oNetV8js.Execute( m.lcDoCmdstr )

*--在V8Js 添加C# 的程序集以便可以动态执行C#代码,以下程序集参考
*程序集参考网址:
*https://learn.microsoft.com/en-us/previous-versions/dotnet/netframework-4.0/ee461503(v=vs.100)?redirectedfrom=MSDN
*!* mscorlib.dll
*!* System.Core.dll
*!* System.Data.dll
*!* System.Data.OracleClient.dll
*!* System.Design.dll
*!* System.dll
*!* System.EnterpriseServices.dll
*!* System.Web.dll
*!* System.Web.Mobile.dll
*!* System.Xaml.dll
*!* System.Xml.dll

*NetV8Js参考网址：
*https://microsoft.github.io/ClearScript

*如格式化一个日期
Local lolib
m.lolib = oNetV8js.CreateHostTypeCollection( "mscorlib", "System.Core" )
oNetV8js.AddHostObject( "lib" , m.lolib )

Text To m.lcVFPscript noshow
birthday = new lib.System.DateTime(2007, 5, 22);
_vfp.SetVar( "birthday", birthday.ToLongDateString() )
endtext

oNetV8js.Execute(m.lcVFPscript)
?"运行C#格式化一个日期,birthday:"
??birthday

*--在V8Js 求当前时间
Text To m.lcVFPscript noshow
Datetime = lib.System.DateTime.Now;
_vfp.SetVar( "Datetime", Datetime );
endtext
oNetV8js.Execute(m.lcVFPscript)
?"在V8Js 运行C# 求当前时间,Datetime:"
??Datetime

*--在V8Js 定义一个字典,并添加foo , 123
Text To m.lcVFPscript noshow
Dictionary = lib.System.Collections.Generic.Dictionary;
dict = new Dictionary(lib.System.String, lib.System.Int32);
dict.Add('foo', 123);
endtext
?"在V8Js 运行C# 定义一个字典,并添加foo,123"
oNetV8js.Execute(m.lcVFPscript)

*--在V8Js 定义一个字典,查找foo 且返值: 123
Local loHost
m.loHost = oNetV8js.CreateHostFunctions()
oNetV8js.AddHostObject( "host" , m.loHost )

Text To m.lcVFPscript noshow
intVar = host.newVar(lib.System.Int32);
found = dict.TryGetValue('foo', intVar.out);
_vfp.SetVar( "found" , found )
_vfp.SetVar( "intVar" , intVar )
endtext
oNetV8js.Execute(m.lcVFPscript)
?"在V8Js 定义字典,查找foo 且还回值: 123"
?"found:"
??found
?"intVar:"
??intVar

*--执行一个V8Js函数,环境默认是模块化的执行,需要使用ES6模块系统的特性
Text To m.lcVFPscript noshow
function GetValue(a,b,c){ return a+b+c; }
_vfp.SetVar("GetValue" , GetValue(1,2,3) )
Endtext
oNetV8js.Execute( m.lcVFPscript )
?"执行一个JS函数GetValue,将执行函数结果输出到VFP变量“GetValue”:"
??_vfp.Eval( "GetValue" )

m.cPath = Addbs( m.cPath )
m.cPath = Strtran( m.cPath , "\" , "/" )
*--载外入JS，执行一个JS函数
Text To m.lcVFPscript Textmerge noshow
import * as Arithmetic from '<<m.cPath >>JavaScript/StandardModule/Arithmetic/Arithmetic.js';
import * as Arithmetic1 from '<<m.cPath >>JavaScript/StandardModule/Arithmetic/Arithmetic.bogus';
import * as Geometry from '<<m.cPath >>JavaScript/StandardModule/Geometry/GeometryWithDynamicImport.js';
_vfp.SetVar("Add" , Arithmetic.Add(123, 456) );
_vfp.SetVar("BogusAdd" , Arithmetic1.BogusAdd(123, 456) );
_vfp.SetVar("Area" , new Geometry.Square(25).Area);
endtext

oNetV8js.EvaluateStandard( m.lcVFPscript )
?"执行JavaScript/StandardModule/Arithmetic/Arithmetic.js"
?"Add:"
??_vfp.Eval("Add")
?"BogusAdd:"
??_vfp.Eval("BogusAdd")
?"Area"
??_vfp.Eval("Area")

*--Set path to 路径方式,也可以是Http,不一定是本地
oNetV8js.SearchPath = m.cPath + [JavaScript/StandardModule/Arithmetic] + [;] + ;
m.cPath + [JavaScript/StandardModule/Geometry]

Text To m.lcVFPscript Textmerge noshow
import * as Arithmetic from 'Arithmetic.js';
import * as Arithmetic1 from 'Arithmetic.bogus';
import * as Geometry from 'GeometryWithDynamicImport.js';
_vfp.SetVar("Add" , Arithmetic.Add(123, 456) );
_vfp.SetVar("BogusAdd" , Arithmetic1.BogusAdd(123, 456) );
_vfp.SetVar("Area" , new Geometry.Square(25).Area);
endtext
oNetV8js.EvaluateStandard( m.lcVFPscript )
?"执行JavaScript/StandardModule/Arithmetic/Arithmetic.js"
?"Add:"
??_vfp.Eval("Add")
?"BogusAdd:"
??_vfp.Eval("BogusAdd")
?"Area"
??_vfp.Eval("Area")

*--执行一个V8Js函数,在代码处引用外部模块
*ES7 引入了 async/await，这是 JavaScript 异步编程的一个重大改进，
*提供了在不阻塞主线程的情况下使用同步代码实现异步访问资源的能力，并且使得代码逻辑更加清晰。
*V8 引擎版本对 await 的处理不一样
Text To m.lcVFPscript Textmerge noshow
async function async1()
{
_vfp.DoCmd ("clear")
_vfp.DoCmd ("?'async1 start'");
await async2();
_vfp.DoCmd ("?'async1 end'");
}

async function async2(){
_vfp.DoCmd ("?'async2'");
}

_vfp.DoCmd ("?'script start'");

//setTimeout(() => {
// _vfp.DoCmd ("?'setTimeout'" );
//})

async1();

new Promise((resolve) => {
_vfp.DoCmd ("?'promise1'" );
resolve()
})
.then(() => {
_vfp.DoCmd ("?'promise2'" );
})

_vfp.DoCmd ("?'script end'");

endtext
oNetV8js.EvaluateStandard( m.lcVFPscript )