Pascal (Lazarus/Delphi)

Automatic JavaScript AI Tool Function Calling

See more AI Examples

Demonstrates how to do automatic tool function calling using Chilkat with embedded Chilkat.Js JavaScript. 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.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Ai,
  Chilkat.StringBuilder;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  sbJs: TStringBuilder;
  ai: TAi;
  evalOnly: Boolean;
  allowAllKeyword: Boolean;
  conversation_name: string;
  sysMessage: string;
  devMessage: string;
  sbResponse: TStringBuilder;

begin
  success := False;

  //  ----------------------------------------------------------------------------------
  //  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 := TStringBuilder.Create;
  success := sbJs.LoadFile('qa_data/js_tools/horoscope_tools.js','utf-8');
  if (success = False) then
    begin
      WriteLn(sbJs.LastErrorText);
      Exit;
    end;

  ai := TAi.Create;

  //  Register the tools that will be made available to the AI.
  evalOnly := False;
  allowAllKeyword := True;
  ai.RegisterJsTools(sbJs,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_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.';
  ai.NewConvo(conversation_name,sysMessage,devMessage);

  //  Provide inputs
  ai.InputAddText('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 := ai.Ask('text');
  if (success = False) then
    begin
      WriteLn(ai.LastErrorText);
      Exit;
    end;

  //  Get the AI response.
  sbResponse := TStringBuilder.Create;
  ai.GetOutputTextSb(sbResponse);
  WriteLn(sbResponse.GetAsString());


  sbJs.Free;
  ai.Free;
  sbResponse.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.