![]() |
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
(Perl) Streaming AI with Automatic JavaScript AI Tool Function CallingSee more AI ExamplesDemonstrates how to get AI responses in streaming mode, including possible tool function calling using Chilkat with embedded Chilkat.Js JavaScript. Automatic JavaScript tool calls are characterized by:
Note: This example requires Chilkat v11.4.0 or greater. For more information, see https://www.chilkatsoft.com/ai_javascript_tool_function_calling.asp
use chilkat(); $success = 0; # ---------------------------------------------------------------------------------- # The Javascript file loaded here is shown at the bottom of this page. # ----------------------------------------------------------------------------------- $sbJs = chilkat::CkStringBuilder->new(); $success = $sbJs->LoadFile("qa_data/js_tools/horoscope_tools.js","utf-8"); if ($success == 0) { print $sbJs->lastErrorText() . "\r\n"; exit; } $ai = chilkat::CkAi->new(); # Register the tools that will be made available to the AI. $evalOnly = 0; $allowAllKeyword = 1; $ai->RegisterJsTools($sbJs,$evalOnly,$allowAllKeyword); # The provider can be "openai", "google", "claude", "grok", "mistral", "custom", etc. $ai->put_Provider("openai"); # Use your provider's API key. $ai->put_ApiKey("MY_API_KEY"); # Choose a model. $ai->put_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 markdown."; $ai->NewConvo($conversation_name,$sysMessage,$devMessage); # Provide inputs $ai->InputAddText("What is my horoscope? I am an Aquarius."); # Get the response in streaming mode. $ai->put_Streaming(1); # In streaming mode, if we receive an AI event that is a request for tool use, # we'll need to make the call to the JavaScript and then continue with a followup Ask, # until the final response is received. $sbEventName = chilkat::CkStringBuilder->new(); $sbDelta = chilkat::CkStringBuilder->new(); $sbFullResponse = chilkat::CkStringBuilder->new(); # When PollAi returns with an event, it's highly unlikely the # call to NextAiEvent does not immediately return. Setting a max # timeout is just a precaution.. $maxWaitMs = 5000; $finished = 0; $numAsks = 0; # Set a max # of followup Asks to prevent any unexpected infinite looping. while (!$finished and ($numAsks < 10)) { # Send the request to the AI model. $success = $ai->Ask("text"); if ($success == 0) { print $ai->lastErrorText() . "\r\n"; exit; } $madeFunctionCalls = 0; $streamingDone = 0; while (!$streamingDone) { $result = $ai->PollAi(0); if ($result < 0) { print $ai->lastErrorText() . "\r\n"; print "Failed." . "\r\n"; exit; } if ($result > 0) { # We have an event.. $success = $ai->NextAiEvent($maxWaitMs,$sbEventName,$sbDelta); if ($success == 0) { print $ai->lastErrorText() . "\r\n"; exit; } # Is this an event where the AI is requesting a function call? if ($sbEventName->ContentsEqual("js_function_call",1)) { # Call the JavaScript function. # We don't need to find the exact function and make the call. # We can simply pass the sbDelta (which contains information about the function to be called and the args). # Chilkat will find the registered JavaScript function, call it, and add the results to the conversation. # We indicate that function calls were made, which results in a followup Ask (in the outer loop). $success = $ai->StreamingJsToolCall($sbDelta); if ($success == 0) { # The JS function call failed. $streamingDone = 1; } else { $madeFunctionCalls = 1; } } else { if (!$sbEventName->ContentsEqual("empty",1)) { $sbFullResponse->AppendSb($sbDelta); if ($sbEventName->ContentsEqual("null_terminator",1)) { $streamingDone = 1; } } } } else { # No event arrived, so wait a short time rather than spin in a loop.. $ai->SleepMs(100); } } if (!$madeFunctionCalls) { $finished = 1; } $numAsks = $numAsks + 1; } print "Full Response:" . "\r\n"; print $sbFullResponse->getAsString() . "\r\n";
|
||||
© 2000-2026 Chilkat Software, Inc. All Rights Reserved.