Visual Basic 6.0

Azure AI Foundry Query

See more AI Examples

This is the simplest example of using Chilkat with Azure AI Foundry. Visual Basic 6.0

Dim success As Long
success = 0

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

Dim ai As New ChilkatAi

' For Azure AI Foundry we use "custom".
ai.Provider = "custom"

' The base URL format for the Chat Completions API when using the cognitiveservices.azure.com domain is:
' https://{resource-name}.cognitiveservices.azure.com/openai/deployments/{deployment-id}/chat/completions?api-version={api-version}

' The string "{deployment}" in the base URL is dynamically replaced with the selected AI model each time a request is sent.
' In this case, the chosen model (below) is "gpt-4o".  After substitution the base URL becomes: 
' https://chilkat.cognitiveservices.azure.com/openai/deployments/gpt-4o/chat/completions?api-version=2025-01-01-preview

' In this example, our resource name is "chilkat", and the api-version is "2025-01-01-preview"
ai.BaseUrl = "https://chilkat.cognitiveservices.azure.com/openai/deployments/{deployment}/chat/completions?api-version=2025-01-01-preview"
ai.ApiSpec = "ChatCompletions"

' Use your provider's API key.
ai.ApiKey = "MY_API_KEY"

' Choose a model.
ai.Model = "gpt-4o"

' Add a text input.
success = ai.InputAddText("Say Hello.")

' Ask the AI for text output.
success = ai.Ask("text")
If (success = 0) Then
    Debug.Print ai.LastErrorText
    Exit Sub
End If

' Get the text response.
Dim sbResponse As New ChilkatStringBuilder
success = ai.GetOutputTextSb(sbResponse)
Debug.Print sbResponse.GetAsString()

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

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