DataFlex
DataFlex
Prove Stateful Multi-Turn Conversation
See more AI Examples
This example is to prove that the 2nd request in a conversation is part of a stateful multi-turn conversation. The 2nd request asks for information provided in the 1st request.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoAi
String sSystemMsg
String sDeveloperMsg
String sConversationName
Variant vSbResponse
Handle hoSbResponse
Variant vJson
Handle hoJson
String sTemp1
Move False To iSuccess
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatAi)) To hoAi
If (Not(IsComObjectCreated(hoAi))) Begin
Send CreateComObject of hoAi
End
// The provider can be "openai", "google", "claude", "deepseek", "xai", or "perplexity".
// Support for additional providers will be added in future versions of Chilkat.
Set ComProvider Of hoAi To "google"
// Use your provider's API key.
Set ComApiKey Of hoAi To "MY_API_KEY"
// Choose a model.
Set ComModel Of hoAi To "gemini-2.5-flash"
// Create a new conversation to be maintained locally in memory.
// If the conversation is the first to be created, it is also automatically selected.
Move "You are a helpful assistant" To sSystemMsg
Move "" To sDeveloperMsg
Move "test_conversation" To sConversationName
Get ComNewConvo Of hoAi sConversationName sSystemMsg sDeveloperMsg To iSuccess
// -------------------------------------------------------------------------------------------
// Our first request will establish a secret that we'll ask for in the 2nd request.
// Add a text input.
Get ComInputAddText Of hoAi "Please remember this: The word I'll ask for later is BlubberFish. What's the word?" To iSuccess
// Ask the AI for text output.
Get ComAsk Of hoAi "text" To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoAi To sTemp1
Showln sTemp1
Procedure_Return
End
// Note: The inputs accumulated through one or more calls to Input* methods are cleared when the Ask method returns with success.
// Get the text response.
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponse
If (Not(IsComObjectCreated(hoSbResponse))) Begin
Send CreateComObject of hoSbResponse
End
Get pvComObject of hoSbResponse to vSbResponse
Get ComGetOutputTextSb Of hoAi vSbResponse To iSuccess
Get ComGetAsString Of hoSbResponse To sTemp1
Showln sTemp1
Showln "----"
// Sample output:
// The word is **BlubberFish**.
// -------------------------------------------------------------------------------------------
// Let's ask for the word. If this is a stateful conversation, the AI should respond correctly.
Get ComInputAddText Of hoAi "OK, I'm going to ask you again, what's the word?" To iSuccess
Get ComAsk Of hoAi "text" To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoAi To sTemp1
Showln sTemp1
Procedure_Return
End
// Get the text response.
Send ComClear To hoSbResponse
Get pvComObject of hoSbResponse to vSbResponse
Get ComGetOutputTextSb Of hoAi vSbResponse To iSuccess
Get ComGetAsString Of hoSbResponse To sTemp1
Showln sTemp1
// Sample output:
// The word is **BlubberFish**.
// -------------------------------------------------------------------------------------------
// Look at the conversation so far...
//
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get pvComObject of hoJson to vJson
Get ComExportConvo Of hoAi sConversationName vJson To iSuccess
Set ComEmitCompact Of hoJson To False
Get ComEmit Of hoJson To sTemp1
Showln sTemp1
// Note: The conversation transcript format exported and imported by Chilkat is always the OpenAI format,
// regardless of the AI provider. (Chilkat translates the format from OpenAI to whatever is needed by the actual AI provider being used.)
// {
// "input": [
// {
// "role": "system",
// "content": [
// {
// "type": "input_text",
// "text": "You are a helpful assistant"
// }
// ]
// },
// {
// "role": "user",
// "content": [
// {
// "type": "input_text",
// "text": "Please remember this: The word I'll ask for later is BlubberFish. What's the word?"
// }
// ]
// },
// {
// "role": "assistant",
// "content": [
// {
// "type": "output_text",
// "text": "The word is **BlubberFish**."
// }
// ]
// },
// {
// "role": "user",
// "content": [
// {
// "type": "input_text",
// "text": "OK, I'm going to ask you again, what's the word?"
// }
// ]
// },
// {
// "role": "assistant",
// "content": [
// {
// "type": "output_text",
// "text": "The word is **BlubberFish**."
// }
// ]
// }
// ]
// }
// -------------------------------------------------------------------------------------------
// If we unselect the conversation, so that no conversation is selected,
// then the same query results in the AI not knowing the word.
Set ComSelectedConvo Of hoAi To ""
Get ComInputAddText Of hoAi "OK, I'm going to ask you again, what's the word?" To iSuccess
Get ComAsk Of hoAi "text" To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoAi To sTemp1
Showln sTemp1
Procedure_Return
End
// Get the text response.
Send ComClear To hoSbResponse
Get pvComObject of hoSbResponse to vSbResponse
Get ComGetOutputTextSb Of hoAi vSbResponse To iSuccess
Get ComGetAsString Of hoSbResponse To sTemp1
Showln sTemp1
// Sample output:
// I apologize, but I don't have the context of our previous interaction or what "the word" you're referring to might be.
// Could you please remind me or provide the clue again? I'm ready to help you figure it out!
End_Procedure