(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.

Note: This example requires Chilkat v11.2.0 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

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