DataFlex

Enable Chilkat Classes in JavaScript

See more JavaScript Examples

To use Chilkat classes in JavaScript, you must first enable them in the host application, as they are disabled by default. Instantiating a disabled class will cause a JavaScript exception. Chilkat classes can be enabled in four local filesystem access modes: sandbox, readOnly, writeOnly, or readWrite. You can also enable all classes in a chosen mode. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Variant vSbJavaScript
    Handle hoSbJavaScript
    Handle hoJs
    Variant vResult
    Handle hoResult
    String sTemp1

    Move False To iSuccess

    // Chilkat classes within JavaScript are disabled by default.
    // An attempt to instantiate a disabled Chilkat class results in a JavaScript exception.

    // For example, try the following JavaScript without first enabling the Chilkat class:

    // sb = new CkStringBuilder();
    // sb.Append('Hello World');
    // success = sb.WriteFile('c:/aaworkarea/helloWorld.txt','utf-8',true);

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbJavaScript
    If (Not(IsComObjectCreated(hoSbJavaScript))) Begin
        Send CreateComObject of hoSbJavaScript
    End
    Get ComAppend Of hoSbJavaScript "sb = new CkStringBuilder(); sb.Append('Hello World'); success = sb.WriteFile('c:/aaworkarea/helloWorld.txt','utf-8',true);" To iSuccess

    Get Create (RefClass(cComChilkatJs)) To hoJs
    If (Not(IsComObjectCreated(hoJs))) Begin
        Send CreateComObject of hoJs
    End

    Get Create (RefClass(cComChilkatJsonObject)) To hoResult
    If (Not(IsComObjectCreated(hoResult))) Begin
        Send CreateComObject of hoResult
    End
    Set ComEmitCompact Of hoResult To False

    // Run the script.  This should result in an error because we haven't enabled the Chilkat CkStringBuilder class.
    Get pvComObject of hoSbJavaScript to vSbJavaScript
    Get pvComObject of hoResult to vResult
    Get ComEval Of hoJs vSbJavaScript vResult To iSuccess
    If (iSuccess = False) Begin
        // Examine the result for an exception.
        Get ComEmit Of hoResult To sTemp1
        Showln sTemp1

        // The result contains this:
        // {
        //   "exception": {
        //     "message": "Cannot create the chilkat object because the chilkat class is disabled in JavaScript. Fix by calling SetCkPermission before calling Eval or CallFunction",
        //     "stack": [
        //       {
        //         "func": "CkStringBuilder"
        //       },
        //       {
        //         "func": "<eval>",
        //         "file": "<input>",
        //         "line": 1,
        //         "col": 9
        //       }
        //     ]
        //   }
        // }

    End

    // Enable the Chilkat CkStringBuilder JavaScript class for readWrite
    Get ComSetCkPermission Of hoJs "CkStringBuilder" "readWrite" To iSuccess
    // The script should work now...
    Get pvComObject of hoSbJavaScript to vSbJavaScript
    Get pvComObject of hoResult to vResult
    Get ComEval Of hoJs vSbJavaScript vResult To iSuccess
    Showln "success = " iSuccess

    // If the CkStringBuilder class is enabled for readOnly or sandbox, then it will fail.
    //   - Chilkat methods that could directly or indirectly write to the filesystem require writeOnly or readWrite access.
    //   - Chilkat methods that read the local filesystem require readOnly or readWrite access.
    //   - Chilkat methods that don't interact with the local filesystem work in any mode including sandbox.
    Get ComSetCkPermission Of hoJs "CkStringBuilder" "readOnly" To iSuccess
    Get pvComObject of hoSbJavaScript to vSbJavaScript
    Get pvComObject of hoResult to vResult
    Get ComEval Of hoJs vSbJavaScript vResult To iSuccess
    If (iSuccess = False) Begin
        // Examine the result for an exception.
        Get ComEmit Of hoResult To sTemp1
        Showln sTemp1

        // {
        //   "exception": {
        //     "message": "failed because this Chilkat method requires the writeOnly or readWrite permission",
        //     "stack": [
        //       {
        //         "func": "WriteFile"
        //       },
        //       {
        //         "func": "<eval>",
        //         "file": "<input>",
        //         "line": 1,
        //         "col": 67
        //       }
        //     ]
        //   }
        // }
    End



End_Procedure