(Visual Basic 6.0) Upload an Image File to an AI Provider (OpenAI, Google, Antropic, X)

See more AI Examples

Uploads an image 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 and Gemini, but not other AI's. Most AI's currently don't have the ability to reference pre-uploaded image data in conversations.

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Dim success As Long
success = 0

Dim ai As New ChilkatAi

' Can currently be "openai" or "google" because these are the only AI's that can reference pre-loaded image data by file 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 BinData.

Dim contentType As String
contentType = "image/jpeg"
Dim localFilePath As String
localFilePath = "qa_data/jpg/starfish.jpg"
Dim filenameOnServer As String
filenameOnServer = "starfish.jpg"

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

' Upload from the contents of a Chilkat BinData
Dim bd As New ChilkatBinData
success = bd.LoadFile(localFilePath)
If (success = 0) Then
    Debug.Print bd.LastErrorText
    Exit Sub
End If

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