(Delphi ActiveX) Automatic JavaScript AI Tool Returning an Array

See more AI Examples

• Tool function implementations are in JavaScript.
• The JavaScript also provides a tool registry and permissions.
• The JavaScript runs embedded within your application using Chilkat.Js.
• Tool calls are handled entirely within Chilkat. Your application does not need to manually check for function calls in the AI response. Internal to the Ask function, Chilkat will handle function calls by calling your registered JavaScript tools and will send results back to the AI model until the final response is received.

Note: This example requires Chilkat v11.4.0 or greater.

For more information, see https://www.chilkatsoft.com/automatic_ai_javascript_tool_function_calling.asp

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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;
sbJs: TChilkatStringBuilder;
ai: TChilkatAi;
evalOnly: Integer;
allowAllKeyword: Integer;
conversation_name: WideString;
sysMessage: WideString;
devMessage: WideString;
sbResponse: TChilkatStringBuilder;

begin
success := 0;

// ----------------------------------------------------------------------------------
// The Javascript file loaded here is shown at the bottom of this page.
// -----------------------------------------------------------------------------------

// In this example, we'll load the Javascript tool functions and registry from a file.
// It doesn't need to come from a file.  It could just as easily be loaded from a string.
sbJs := TChilkatStringBuilder.Create(Self);
success := sbJs.LoadFile('qa_data/js_tools/toolset_3.js','utf-8');
if (success = 0) then
  begin
    Memo1.Lines.Add(sbJs.LastErrorText);
    Exit;
  end;

ai := TChilkatAi.Create(Self);

// Register the tools that will be made available to the AI.
evalOnly := 0;
allowAllKeyword := 1;
ai.RegisterJsTools(sbJs.ControlInterface,evalOnly,allowAllKeyword);

// The provider can be "openai", "google", "claude", "grok", "mistral", "custom", etc.
ai.Provider := 'openai';
// Use your provider's API key.
ai.ApiKey := 'MY_API_KEY';
// Choose a model.
ai.Model := 'gpt-5-mini';

// Tool function calling must always occur within a conversation.
conversation_name := 'convo_3';
sysMessage := 'You are a helpful system admin';
devMessage := 'Respond only with markdown.';
ai.NewConvo(conversation_name,sysMessage,devMessage);

// Provide inputs
ai.InputAddText('List the files in the directory c:/temp/abc');

// Send inputs, tool functions, etc. and ask for a "text" response.
// If the AI responds with tool calls, Chilkat automatically handles them by calling your JavaScript
// tool functions as directed by the AI, and sending results back to the AI until the final
// response is received.
success := ai.Ask('text');
if (success = 0) then
  begin
    Memo1.Lines.Add(ai.LastErrorText);
    Exit;
  end;

// Get the AI response.
sbResponse := TChilkatStringBuilder.Create(Self);
ai.GetOutputTextSb(sbResponse.ControlInterface);
Memo1.Lines.Add(sbResponse.GetAsString());
end;

// The namespace for the AI tool functions in this JavaScript source file.

Example = {};

// Tool functions must have only one argument, which should be an object.

// The function name used here must match the "name" in the toolRegistry below.

// By grouping list_files, toolRegistry, and toolPermissions under the Example object, 
// you are "namespacing" them. This tells anyone reading the code (and the JavaScript engine itself) 
// that these tools belong together and prevents them from clashing with another function that might 
// also be named list_files. 

Example.list_files = function(arg) {
  return [
    "report.pdf",
    "notes.txt",
    "image.png"
  ];
}

// The inputSchema.type must ALWAYS be "object".
Example.toolRegistry = [
  {
    name: "list_files",
    description: "List files in a directory",
    parameters: {
      properties: {
        path: { type: "string", description: "Directory path" },
      }
    }
  }
];


Example.toolPermissions = [
	  {
	    name: "all",
	    perm: "sandbox",
	  }
	  		
	];
	
	
// Return the name of this toolset
// This tells Chilkat the namespace of this toolset.
"Example";