Pascal (Lazarus/Delphi)

Multimodal Input: File URL

See more AI Examples

Demonstrates sending a request that includes both text and a PDF file URL for the AI to analyze.

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.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Ai,
  Chilkat.StringBuilder;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  ai: TAi;
  sbResponse: TStringBuilder;

begin
  success := False;

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

  ai := TAi.Create;

  //  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.
  ai.Provider := 'openai';

  //  Use your provider's API key.
  ai.ApiKey := 'MY_API_KEY';

  //  Choose a model.
  ai.Model := 'gpt-4o';

  //  Add both text input, and PDF file URL.
  //  If the AI provider does not natively support file URLs, Chilkat will download the file data to memory and send the file data to the AI provider (within the "Ask" method call).
  ai.InputAddText('What is in this file?');
  ai.InputAddFileUrl('https://www.chilkatsoft.com/exampledata/shakespeare.pdf','');

  //  Ask the AI for text output.
  success := ai.Ask('text');
  if (success = False) then
    begin
      WriteLn(ai.LastErrorText);
      Exit;
    end;

  //  Get the text response.
  sbResponse := TStringBuilder.Create;
  ai.GetOutputTextSb(sbResponse);
  WriteLn(sbResponse.GetAsString());

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

  //  Sample output:

  //  The file contains a quote from William Shakespeare's "Romeo and Juliet" and an image of Shakespeare. The quote is from Act 2, Scene 6:
  //  
  //  “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.”


  ai.Free;
  sbResponse.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.