Delphi ActiveX

Call a JavaScript Function Returning a Boolean

See more JavaScript Examples

Demonstrates how to call a JavaScript function that returns a boolean. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
sbScript: TChilkatStringBuilder;
js: TChilkatJs;
result: TChilkatJsonObject;
funcCall: TChilkatJsonObject;
retval: Integer;

begin
success := 0;

// This is the JavaScript function we'll call:

// function isEven(number) {
//     return number % 2 === 0;
// }

sbScript := TChilkatStringBuilder.Create(Self);
sbScript.Append('function isEven(number) { return number % 2 === 0; }');

js := TChilkatJs.Create(Self);

result := TChilkatJsonObject.Create(Self);
result.EmitCompact := 0;

// Call Eval to add the function to the context's global object
success := js.Eval(sbScript.ControlInterface,result.ControlInterface);
if (success = 0) then
  begin
    // Examine the result for an exception.
    Memo1.Lines.Add(result.Emit());

    // Also examine the LastErrorText.
    Memo1.Lines.Add(js.LastErrorText);
    Exit;
  end;

// ------------------------------------------------------------------------------
// Call the function isEven(8)

funcCall := TChilkatJsonObject.Create(Self);

// Create JSON specifying the function name and arguments

// {
//   "name": "isEven",
//   "args": [ 8 ]
// }

funcCall.UpdateString('name','isEven');
funcCall.UpdateInt('args[0]',8);

success := js.CallFunction(funcCall.ControlInterface,result.ControlInterface);
if (success = 0) then
  begin
    // Examine the result for an exception.
    Memo1.Lines.Add(result.Emit());

    // Also examine the LastErrorText.
    Memo1.Lines.Add(js.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add(result.Emit());

// Output:
// {
//   "type": "bool",
//   "value": true
// }

retval := result.BoolOf('value');
Memo1.Lines.Add(IntToStr(Ord(retval)));

// Output:
// 1
end;