Tcl

Multimodal Input: Image Data

See more AI Examples

Demonstrates sending a request that includes both text and image data for the AI to analyze. Tcl

load ./chilkat.dll

set success 0

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set ai [new_CkAi]

# The provider can be "openai", "google", "claude", "deepseek", "xai", or "perplexity".
# Support for additional providers will be added in future versions of Chilkat.
# xAI (Grok) will be used here..
CkAi_put_Provider $ai "xai"

# Use your provider's API key.
CkAi_put_ApiKey $ai "MY_API_KEY"

# Choose a model.
CkAi_put_Model $ai "grok-4"

# Add both text input, and image data
CkAi_InputAddText $ai "Describe what you see in the following image."

set bd [new_CkBinData]

# We're passing a relative local file path here.. (relative the the app's current working directory)
set success [CkBinData_LoadFile $bd "qa_data/jpg/starfish.jpg"]
if {$success == 0} then {
    puts [CkBinData_lastErrorText $bd]
    delete_CkAi $ai
    delete_CkBinData $bd
    exit
}

CkAi_InputAddImageData $ai $bd ""

# Ask the AI for text output.
set success [CkAi_Ask $ai "text"]
if {$success == 0} then {
    puts [CkAi_lastErrorText $ai]
    delete_CkAi $ai
    delete_CkBinData $bd
    exit
}

# Get the text response.
set sbResponse [new_CkStringBuilder]

CkAi_GetOutputTextSb $ai $sbResponse
puts [CkStringBuilder_getAsString $sbResponse]

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

# Sample output:

# The image depicts a small, bright orange starfish (also known as a sea star) with five symmetrical arms radiating from a central disc. 
# It has a textured, bumpy surface that gives it a realistic, almost spiky appearance, and there's a small hole or indentation at the center, 
# which might represent the mouth or a natural feature. The starfish is shown against a plain white background, and it appears to be a simple, 
# illustrative or clipart-style graphic rather than a photograph.

delete_CkAi $ai
delete_CkBinData $bd
delete_CkStringBuilder $sbResponse