B4X Requires Chilkat v11.4.0+

Upload a File to an AI Provider (OpenAI, Google, Antropic, X)

See more AI Examples

Uploads a file to an AI provider using the provider's File API and returns the id that can later be used to reference the file in an query. This currently works with ChatGPT, Gemini, Claude, and Grok. B4X

Dim success As Boolean = False

Dim ai As ChilkatAi
ai.Initialize("ai")

'  The provider can be "openai", "google", "claude", "grok", or any AI that supports uploading files for later reference by ID.
ai.Provider = "openai"
'  Use your provider's API key.
ai.ApiKey = "MY_API_KEY"

'  We can upload directly from a file in the filesystem, or from a Chilkat StringBuilder, or from a Chilkat BinData.

'  Some AI providers require a content-type.
'  Also, some AI providers are picky about what content-type's are accepted.
'  Check the AI provider's documentation.
'  "application/json" is generally always acceptable.
'  "text/plain" can be used as a fallback for any text file.
Dim contentType As String = "application/json"
Dim localFilePath As String = "qa_data/hamlet.json"
Dim filenameOnServer As String = "hamlet.json"

'  Upload directly from a file.
Dim file_id As String = ai.UploadFile(localFilePath, contentType)
If ai.LastMethodSuccess = False Then
    Log(ai.LastErrorText)
    Log("AI File Upload Failed.")
Else
    Log("File ID: " & file_id)
    Log("File uploaded.")
End If


'  Upload from the contents of a StringBuilder
Dim sb As ChilkatStringBuilder
sb.Initialize
success = sb.LoadFile(localFilePath, "utf-8")
If success = False Then
    Log(sb.LastErrorText)
    Return
End If


file_id = ai.UploadFileSb(sb, filenameOnServer, contentType)
If ai.LastMethodSuccess = False Then
    Log(ai.LastErrorText)
    Log("AI File Upload Failed.")
Else
    Log("File ID: " & file_id)
    Log("File uploaded.")
End If


'  Upload from the contents of a BinData
Dim bd As ChilkatBinData
bd.Initialize
success = bd.LoadFile(localFilePath)
If success = False Then
    Log(bd.LastErrorText)
    Return
End If


file_id = ai.UploadFileBd(bd, filenameOnServer, contentType)
If ai.LastMethodSuccess = False Then
    Log(ai.LastErrorText)
    Log("AI File Upload Failed.")
Else
    Log("File ID: " & file_id)
    Log("File uploaded.")
End If