Delphi DLL

Azure AI Foundry Query

See more AI Examples

This is the simplest example of using Chilkat with Azure AI Foundry. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Ai, StringBuilder;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
ai: HCkAi;
sbResponse: HCkStringBuilder;

begin
success := False;

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

ai := CkAi_Create();

// For Azure AI Foundry we use "custom".
CkAi_putProvider(ai,'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"
CkAi_putBaseUrl(ai,'https://chilkat.cognitiveservices.azure.com/openai/deployments/{deployment}/chat/completions?api-version=2025-01-01-preview');
CkAi_putApiSpec(ai,'ChatCompletions');

// Use your provider's API key.
CkAi_putApiKey(ai,'MY_API_KEY');

// Choose a model.
CkAi_putModel(ai,'gpt-4o');

// Add a text input.
CkAi_InputAddText(ai,'Say Hello.');

// Ask the AI for text output.
success := CkAi_Ask(ai,'text');
if (success = False) then
  begin
    Memo1.Lines.Add(CkAi__lastErrorText(ai));
    Exit;
  end;

// Get the text response.
sbResponse := CkStringBuilder_Create();
CkAi_GetOutputTextSb(ai,sbResponse);
Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponse));

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

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

CkAi_Dispose(ai);
CkStringBuilder_Dispose(sbResponse);

end;