(DataFlex) AI: Set Ask Params

See more AI Examples

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
    Variant vAskParams
    Handle hoAskParams
    Variant vSbResponse
    Handle hoSbResponse
    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

    Set ComVerboseLogging Of hoAi To True

    Set ComProvider Of hoAi To "google"
    Set ComApiKey Of hoAi To "MY_API_KEY"
    Set ComModel Of hoAi To "gemini-3-flash-preview"

    // Note: Not all models support all params.

    // Set Ask params.
    Get Create (RefClass(cComChilkatJsonObject)) To hoAskParams
    If (Not(IsComObjectCreated(hoAskParams))) Begin
        Send CreateComObject of hoAskParams
    End
    Get ComUpdateNumber Of hoAskParams "temperature" "1.2" To iSuccess
    Get ComUpdateString Of hoAskParams "effort" "low" To iSuccess
    Get ComUpdateInt Of hoAskParams "max_output_tokens" 1024 To iSuccess

    Set ComEmitCompact Of hoAskParams To False
    Get ComEmit Of hoAskParams To sTemp1
    Showln sTemp1

    Get pvComObject of hoAskParams to vAskParams
    Get ComSetAskParams Of hoAi vAskParams To iSuccess

    // Add a text input.
    Get ComInputAddText Of hoAi "Say Hello." 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

    // 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

    // Sample output:
    // Hello! How can I assist you today?

    // -------------------------------------------------------------
    // The response is in markdown format.
    // Also see Markdown to HTML Conversion Examples.
    // -------------------------------------------------------------


End_Procedure