Delphi11 调用 ChatGPT

要在 Delphi11 中调用 ChatGPT，你需要使用 Python4Delphi 工具包，它可以让你在 Delphi 中使用 Python 解释器和 Python 库。Python4Delphi 工具包的安装方法可以在官方文档中找到。

安装 Python4Delphi 之后，你需要安装 Python 的 OpenAI GPT 库。你可以使用 pip 命令在命令行中安装：

pip install openai

在 Delphi 中调用 ChatGPT 的代码可以像下面这样：

uses
  PythonEngine, PythonGUIInputOutput;

var
  Py: TPythonEngine;
  GPT: Variant;
  Response: string;
begin
  Py := TPythonEngine.Create(nil);
  try
    Py.AutoFinalize := False;
    Py.LoadDll;
    GPT := Py.Import('openai');

    Response := GPT.Completion.Create(engine:= 'davinci', prompt:= 'Hello, my name is', max_tokens:= 10);

    ShowMessage(Response);
  finally
    Py.Free;
  end;
end;

这个代码使用了 PythonEngine 单元和 PythonGUIInputOutput 单元，它们可以让你在 Delphi 中使用 Python 解释器并且在 Delphi 中显示 Python 输出。在这个例子中，我们调用了 GPT 的 Completion 方法来生成一个 AI 回复。你可以根据自己的需求自定义参数。