Delphi DLL

Automatic JS AI Tool Function Calling using Chilkat within the JavaScript

See more AI Examples

Demonstrates how to use Chilkat classes within the JavaScript in AI tool calls. Automatic JavaScript tool calls are characterized by:

• 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.

Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
sbJs: HCkStringBuilder;
ai: HCkAi;
evalOnly: Boolean;
allowAllKeyword: Boolean;
conversation_name: PWideChar;
sysMessage: PWideChar;
devMessage: PWideChar;
sbResponse: HCkStringBuilder;

begin
success := False;

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

sbJs := CkStringBuilder_Create();
success := CkStringBuilder_LoadFile(sbJs,'qa_data/js_tools/stock_quote_tools.js','utf-8');
if (success = False) then
  begin
    Memo1.Lines.Add(CkStringBuilder__lastErrorText(sbJs));
    Exit;
  end;

ai := CkAi_Create();

// Register the tools that will be made available to the AI.
evalOnly := False;

allowAllKeyword := False;

// If we were to set allowAllKeyword = True, then we could
// give all Chilkat classes permission, like this:
// 
// Example.toolPermissions = [
// 	  {
// 	    name: "all",
// 	    perm: "sandbox",
// 	  }
// 	];

CkAi_RegisterJsTools(ai,sbJs,evalOnly,allowAllKeyword);

// The provider can be "openai", "google", "claude", "grok", "mistral", "custom", etc.
CkAi_putProvider(ai,'openai');
// Use your provider's API key.
CkAi_putApiKey(ai,'MY_API_KEY');
// Choose a model.
CkAi_putModel(ai,'gpt-5-mini');

// Tool function calling must always occur within a conversation.
conversation_name := 'convo_astrology';
sysMessage := 'You are a helpful astrologer';
devMessage := 'Respond only with a horoscope generated by a tool. Use the tool output as the final answer.';
CkAi_NewConvo(ai,conversation_name,sysMessage,devMessage);

// Provide inputs
CkAi_InputAddText(ai,'What is my horoscope? I am an Aquarius.');

// 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 := CkAi_Ask(ai,'text');
if (success = False) then
  begin
    Memo1.Lines.Add(CkAi__lastErrorText(ai));
    Exit;
  end;

// Get the AI response.
sbResponse := CkStringBuilder_Create();
CkAi_GetOutputTextSb(ai,sbResponse);
Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponse));

CkStringBuilder_Dispose(sbJs);
CkAi_Dispose(ai);
CkStringBuilder_Dispose(sbResponse);

end;