![]() |
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
(PowerBuilder) 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
integer li_rc integer li_Success oleobject loo_SbJs oleobject loo_Ai integer li_EvalOnly integer li_AllowAllKeyword string ls_Conversation_name string ls_SysMessage string ls_DevMessage oleobject loo_SbEventName oleobject loo_SbDelta oleobject loo_SbFullResponse integer li_MaxWaitMs integer li_Finished integer li_NumAsks integer li_MadeFunctionCalls integer li_StreamingDone integer li_Result li_Success = 0 // ---------------------------------------------------------------------------------- // The Javascript file loaded here is shown at the bottom of this page. // ----------------------------------------------------------------------------------- loo_SbJs = create oleobject li_rc = loo_SbJs.ConnectToNewObject("Chilkat.StringBuilder") if li_rc < 0 then destroy loo_SbJs MessageBox("Error","Connecting to COM object failed") return end if li_Success = loo_SbJs.LoadFile("qa_data/js_tools/horoscope_tools.js","utf-8") if li_Success = 0 then Write-Debug loo_SbJs.LastErrorText destroy loo_SbJs return end if loo_Ai = create oleobject li_rc = loo_Ai.ConnectToNewObject("Chilkat.Ai") // Register the tools that will be made available to the AI. li_EvalOnly = 0 li_AllowAllKeyword = 1 loo_Ai.RegisterJsTools(loo_SbJs,li_EvalOnly,li_AllowAllKeyword) // The provider can be "openai", "google", "claude", "grok", "mistral", "custom", etc. loo_Ai.Provider = "openai" // Use your provider's API key. loo_Ai.ApiKey = "MY_API_KEY" // Choose a model. loo_Ai.Model = "gpt-5-mini" // Tool function calling must always occur within a conversation. ls_Conversation_name = "convo_astrology" ls_SysMessage = "You are a helpful astrologer" ls_DevMessage = "Respond only with markdown." loo_Ai.NewConvo(ls_Conversation_name,ls_SysMessage,ls_DevMessage) // Provide inputs loo_Ai.InputAddText("What is my horoscope? I am an Aquarius.") // Get the response in streaming mode. loo_Ai.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. loo_SbEventName = create oleobject li_rc = loo_SbEventName.ConnectToNewObject("Chilkat.StringBuilder") loo_SbDelta = create oleobject li_rc = loo_SbDelta.ConnectToNewObject("Chilkat.StringBuilder") loo_SbFullResponse = create oleobject li_rc = loo_SbFullResponse.ConnectToNewObject("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.. li_MaxWaitMs = 5000 li_Finished = 0 li_NumAsks = 0 // Set a max # of followup Asks to prevent any unexpected infinite looping. do while not li_Finished AND (li_NumAsks < 10) // Send the request to the AI model. li_Success = loo_Ai.Ask("text") if li_Success = 0 then Write-Debug loo_Ai.LastErrorText destroy loo_SbJs destroy loo_Ai destroy loo_SbEventName destroy loo_SbDelta destroy loo_SbFullResponse return end if li_MadeFunctionCalls = 0 li_StreamingDone = 0 do while not li_StreamingDone li_Result = loo_Ai.PollAi(0) if li_Result < 0 then Write-Debug loo_Ai.LastErrorText Write-Debug "Failed." destroy loo_SbJs destroy loo_Ai destroy loo_SbEventName destroy loo_SbDelta destroy loo_SbFullResponse return end if if li_Result > 0 then // We have an event.. li_Success = loo_Ai.NextAiEvent(li_MaxWaitMs,loo_SbEventName,loo_SbDelta) if li_Success = 0 then Write-Debug loo_Ai.LastErrorText destroy loo_SbJs destroy loo_Ai destroy loo_SbEventName destroy loo_SbDelta destroy loo_SbFullResponse return end if // Is this an event where the AI is requesting a function call? if loo_SbEventName.ContentsEqual("js_function_call",1) 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). li_Success = loo_Ai.StreamingJsToolCall(loo_SbDelta) if li_Success = 0 then // The JS function call failed. li_StreamingDone = 1 else li_MadeFunctionCalls = 1 end if else if not loo_SbEventName.ContentsEqual("empty",1) then loo_SbFullResponse.AppendSb(loo_SbDelta) if loo_SbEventName.ContentsEqual("null_terminator",1) then li_StreamingDone = 1 end if end if end if else // No event arrived, so wait a short time rather than spin in a loop.. loo_Ai.SleepMs(100) end if loop if not li_MadeFunctionCalls then li_Finished = 1 end if li_NumAsks = li_NumAsks + 1 loop Write-Debug "Full Response:" Write-Debug loo_SbFullResponse.GetAsString() destroy loo_SbJs destroy loo_Ai destroy loo_SbEventName destroy loo_SbDelta destroy loo_SbFullResponse
|
||||
© 2000-2026 Chilkat Software, Inc. All Rights Reserved.