Example for function calling (2 functions to call)

[Fab8573]

Hello,

I'am using your component since a long time and it's work fine.
But now I would like to test the function calling. For one function it's seems to work.
Your sample seems to be in for an old version.
I successfully call one function but for more than one ?
ChatGPT need "call" both in sequence to answer.
I have tried :

1. Dynamically => Failed (sometime call first function sometime drop exception )
2. Using the TOpenAIChatFunctions connected to a TopenAiChat via him 'Functions' property
   => No answer : OpenAIChatFunctions.Items.items[0].FunctionExecute is never called
   It doesn't seem to be implemented ?

That I have doing wrong ?

Full sample :
CallFunctions.zip

Best regards,

[teraui91]

Hello, You may need to log all messages yourself between the client and the LLM. Once you have completed the function in the OnChat event, you need to collect the function answer with message history back to the LLM. The LLM may then ask you to call another function, or it will send FinishReason.Stop when he thought it complete.

Following is the idea, and I hope it helps.

TForm14 = class(TForm)
private
  FChatMessageLog: TArray<TChatMessageBuild>;
end; 

procedure TForm14.OpenAIChat1Chat(Sender: TObject; Event: TChat);
begin
  for var Choice in event.Choices do
  begin
    if Choice.FinishReason = TFinishReason.FunctionCall then
    begin
      <function Result> := ProcFunction(Choice.Message.FunctionCall) 
      FChatMessageLog := FChatMessageLog + [ChatMessageBuild.AssistantFunc(<Your func name> <function Argut>)]
      FChatMessageLog := FChatMessageLog + [ChatMessageBuild.Func(<function result>, <function name>)           
      FOpenAIChat.Send(FChatMessageLog); //send the log with function and function result to LLM again.
    end
    else if (AChoices.FinishReason = TFinishReason.ToolCalls) then 
    begin
      for var AChatToolCall: TChatToolCall in AChoices.Message.ToolCalls do
      begin
        //ExecuteToolCall
        //add TChatMessageBuild.AssistantTool and TChatMessageBuild.Tool to FChatMessageLog
        OpenAIChat.Send(FChatMessageLog);
      end;
    else if (AChoices.FinishReason = TFinishReason.Stop) the
      Memo1.Lines.Add(Choice.Message.Content); 
  end;
end;

the function call will deprecated in some models and you may need to use ToolCalls btw

[HemulGM]

Hello, You may need to log all messages yourself between the client and the LLM. Once you have completed the function in the OnChat event, you need to collect the function answer with message history back to the LLM. The LLM may then ask you to call another function, or it will send FinishReason.Stop when he thought it complete.

Following is the idea, and I hope it helps.

TForm14 = class(TForm)
private
  FChatMessageLog: TArray<TChatMessageBuild>;
end; 

procedure TForm14.OpenAIChat1Chat(Sender: TObject; Event: TChat);
begin
  for var Choice in event.Choices do
  begin
    if Choice.FinishReason = TFinishReason.FunctionCall then
    begin
      <function Result> := ProcFunction(Choice.Message.FunctionCall) 
      FChatMessageLog := FChatMessageLog + [ChatMessageBuild.AssistantFunc(<Your func name> <function Argut>)]
      FChatMessageLog := FChatMessageLog + [ChatMessageBuild.Func(<function result>, <function name>)           
      FOpenAIChat.Send(FChatMessageLog); //send the log with function and function result to LLM again.
    end
    else if (AChoices.FinishReason = TFinishReason.ToolCalls) then 
    begin
      for var AChatToolCall: TChatToolCall in AChoices.Message.ToolCalls do
      begin
        //ExecuteToolCall
        //add TChatMessageBuild.AssistantTool and TChatMessageBuild.Tool to FChatMessageLog
        OpenAIChat.Send(FChatMessageLog);
      end;
    else if (AChoices.FinishReason = TFinishReason.Stop) the
      Memo1.Lines.Add(Choice.Message.Content); 
  end;
end;

the function call will deprecated in some models and you may need to use ToolCalls btw

Watch this https://github.com/HemulGM/DelphiOpenAI/blob/main/OpenAI.Utils.ChatHistory.pas