Visual FoxPro

Eval JavaScript Returning Int

See more JavaScript Examples

Demonstrates getting the completion value of a JavaScript that returns an integer. Visual FoxPro

LOCAL lnSuccess
LOCAL loSbScript
LOCAL loJs
LOCAL loResult

lnSuccess = 0

* This example demonstrates getting the completion value of a script,
* where the last evaluated expression is an integer.

* The Javascript run in this example is shown below.

* Load the JavaScript from a file.
loSbScript = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbScript.LoadFile("js_eval_return_int.js","utf-8")
IF (lnSuccess = 0) THEN
    ? loSbScript.LastErrorText
    RELEASE loSbScript
    CANCEL
ENDIF

loJs = CreateObject('Chilkat.Js')
loResult = CreateObject('Chilkat.JsonObject')

* Run the JavaScript
* Eval returns the completion value of the script. This is generally the value of the last evaluated expression.
* In this case, the last evaluated expression is an int.
lnSuccess = loJs.Eval(loSbScript,loResult)
IF (lnSuccess = 0) THEN
    ? loSbScript.LastErrorText
    RELEASE loSbScript
    RELEASE loJs
    RELEASE loResult
    CANCEL
ENDIF

loResult.EmitCompact = 0
? loResult.Emit()

* Output:

* {
*   "type": "int",
*   "value": 42
* }

RELEASE loSbScript
RELEASE loJs
RELEASE loResult