![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java JavaScript Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi DLL) JavaScript consoleSee more JavaScript ExamplesDemonstrates console output using Chilkat JavaScript.Note: This example requires Chilkat v11.4.0 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Js, StringBuilder, JsonObject; ... procedure TForm1.Button1Click(Sender: TObject); var success: Boolean; sbScript: HCkStringBuilder; js: HCkJs; result: HCkJsonObject; sbOut: HCkStringBuilder; begin success := False; // This example demonstrates using the built-in console object. // The Javascript run in this example is shown below. // Load the JavaScript from a file. sbScript := CkStringBuilder_Create(); success := CkStringBuilder_LoadFile(sbScript,'qa_data/js_tests/test_console.js','utf-8'); if (success = False) then begin Memo1.Lines.Add(CkStringBuilder__lastErrorText(sbScript)); Exit; end; js := CkJs_Create(); result := CkJsonObject_Create(); // Run the JavaScript // Results (not console output) go to result. // Note: 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 console.log which does not calculate a value. Therefore, it returns undefined. success := CkJs_Eval(js,sbScript,result); if (success = False) then begin Memo1.Lines.Add(CkStringBuilder__lastErrorText(sbScript)); Exit; end; // We can look at the result, which is "undefined", which is normal and expected. Memo1.Lines.Add(CkJsonObject__emit(result)); // The result JSON is: {"type":"undefined","value":"undefined"} // The console output is retrieved by calling ConsoleOutputSb sbOut := CkStringBuilder_Create(); CkJs_ConsoleOutputSb(js,sbOut); Memo1.Lines.Add(CkStringBuilder__getAsString(sbOut)); CkStringBuilder_Dispose(sbScript); CkJs_Dispose(js); CkJsonObject_Dispose(result); CkStringBuilder_Dispose(sbOut); end;
|
||||
© 2000-2026 Chilkat Software, Inc. All Rights Reserved.