(PureBasic) Multimodal Input: File Data

See more AI Examples

Note: At the time of writing this example, xAI, Perplexity, and DeepSeek do not have the ability to accept non-image multimodal data or URLs.

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkBinData.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkAi.pb"

Procedure ChilkatExample()

    success.i = 0

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

    ai.i = CkAi::ckCreate()
    If ai.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; The provider can be "openai", "google", or "claude".
    ; At the time of writing this example, "deepseek", "xai", and "perplexity" do not have the ability to process non-image multimodal inputs.
    ; Support for additional providers will be added in future versions of Chilkat.
    CkAi::setCkProvider(ai, "claude")

    ; Use your provider's API key.
    CkAi::setCkApiKey(ai, "MY_API_KEY")

    ; Choose a model.
    CkAi::setCkModel(ai, "claude-opus-4-1-20250805")

    ; Add both text input, and PDF file data.
    CkAi::ckInputAddText(ai,"What is in this file?")

    bd.i = CkBinData::ckCreate()
    If bd.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; We're passing a relative local file path here.. (relative the the app's current working directory)
    success = CkBinData::ckLoadFile(bd,"qa_data/pdf/shakespeare.pdf")
    If success = 0
        Debug CkBinData::ckLastErrorText(bd)
        CkAi::ckDispose(ai)
        CkBinData::ckDispose(bd)
        ProcedureReturn
    EndIf

    ; Provide the filename in the 1st argument.  The file extension is important to indicate the type of file.
    CkAi::ckInputAddFileData(ai,"shakespeare.pdf",bd,"")

    ; Ask the AI for text output.
    success = CkAi::ckAsk(ai,"text")
    If success = 0
        Debug CkAi::ckLastErrorText(ai)
        CkAi::ckDispose(ai)
        CkBinData::ckDispose(bd)
        ProcedureReturn
    EndIf

    ; Get the text response.
    sbResponse.i = CkStringBuilder::ckCreate()
    If sbResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkAi::ckGetOutputTextSb(ai,sbResponse)
    Debug CkStringBuilder::ckGetAsString(sbResponse)

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

    ; Sample output:

    ; This PDF file contains a famous quote from William Shakespeare's "Romeo and Juliet". The quote appears twice on the page:
    ; 
    ; "These violent delights have violent ends
    ; And in their triumph die, like fire and powder,
    ; Which as they kiss consume. The sweetest honey
    ; Is loathsome in his own deliciousness
    ; And in the taste confounds the appetite.
    ; Therefore love moderately; long love doth so;
    ; Too swift arrives as tardy as too slow."
    ; 
    ; The file also includes a portrait image of William Shakespeare. This particular quote is spoken by Friar Lawrence in the play, warning about the dangers of passionate, 
    ; immoderate love - suggesting that love that burns too intensely tends to burn out quickly, just as fire and gunpowder consume each other when they meet.


    CkAi::ckDispose(ai)
    CkBinData::ckDispose(bd)
    CkStringBuilder::ckDispose(sbResponse)


    ProcedureReturn
EndProcedure