![]() |
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
(Xojo Plugin) 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
Dim success As Boolean success = False // ---------------------------------------------------------------------------------- // The Javascript file loaded here is shown at the bottom of this page. // ----------------------------------------------------------------------------------- Dim sbJs As New Chilkat.StringBuilder success = sbJs.LoadFile("qa_data/js_tools/horoscope_tools.js","utf-8") If (success = False) Then System.DebugLog(sbJs.LastErrorText) Return End If Dim ai As New Chilkat.Ai // Register the tools that will be made available to the AI. Dim evalOnly As Boolean evalOnly = False Dim allowAllKeyword As Boolean allowAllKeyword = True success = 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. Dim conversation_name As String conversation_name = "convo_astrology" Dim sysMessage As String sysMessage = "You are a helpful astrologer" Dim devMessage As String devMessage = "Respond only with markdown." success = ai.NewConvo(conversation_name,sysMessage,devMessage) // Provide inputs success = ai.InputAddText("What is my horoscope? I am an Aquarius.") // Get the response in streaming mode. ai.Streaming = True // 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. Dim sbEventName As New Chilkat.StringBuilder Dim sbDelta As New Chilkat.StringBuilder Dim sbFullResponse As New Chilkat.StringBuilder // 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.. Dim maxWaitMs As Int32 maxWaitMs = 5000 Dim finished As Boolean finished = False Dim numAsks As Int32 numAsks = 0 // Set a max # of followup Asks to prevent any unexpected infinite looping. While Not finished And (numAsks < 10) // Send the request to the AI model. success = ai.Ask("text") If (success = False) Then System.DebugLog(ai.LastErrorText) Return End If Dim madeFunctionCalls As Boolean madeFunctionCalls = False Dim streamingDone As Boolean streamingDone = False While Not streamingDone Dim result As Int32 result = ai.PollAi(False) If (result < 0) Then System.DebugLog(ai.LastErrorText) System.DebugLog("Failed.") Return End If If (result > 0) Then // We have an event.. success = ai.NextAiEvent(maxWaitMs,sbEventName,sbDelta) If (success = False) Then System.DebugLog(ai.LastErrorText) Return End If // Is this an event where the AI is requesting a function call? If (sbEventName.ContentsEqual("js_function_call",True)) Then // 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 = False) Then // The JS function call failed. streamingDone = True Else madeFunctionCalls = True End If Else If (Not sbEventName.ContentsEqual("empty",True)) Then success = sbFullResponse.AppendSb(sbDelta) If (sbEventName.ContentsEqual("null_terminator",True)) Then streamingDone = True End If End If End If Else // No event arrived, so wait a short time rather than spin in a loop.. ai.SleepMs 100 End If Wend If (Not madeFunctionCalls) Then finished = True End If numAsks = numAsks + 1 Wend System.DebugLog("Full Response:") System.DebugLog(sbFullResponse.GetAsString())
|
||||
© 2000-2026 Chilkat Software, Inc. All Rights Reserved.