Delphi 调用 ChatGPT

调用 ChitGPT 在 Delphi 中需要用到一些支持 HTTP 请求的组件，例如 Indy 等。

首先，需要在 Delphi 中创建一个 HTTP 请求，设置请求的方法为 POST，并设置请求头中的 `Content-Type` 字段为 `application/json`。接着，需要将 ChitGPT 所需的参数放在请求体中，并将请求发送到 ChitGPT 的 API 服务器。

等待响应返回后，可以使用 Delphi 的 JSON 解析库将响应解析为相应的数据类型，例如 TJSONObject。从 TJSONObject 中可以取出 ChitGPT 返回的文本，并将其显示出来。

以下是一个简单的示例代码，展示了如何使用 Indy 在 Delphi 中调用 ChitGPT 的 API：

uses
  IdHTTP, IdSSLOpenSSL, System.JSON;

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
  Params: TStringStream;
  Response: TJSONValue;
begin
  HTTP := TIdHTTP.Create(nil);
  try
    SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    HTTP.IOHandler := SSL;
    HTTP.Request.ContentType := 'application/json';
    HTTP.Request.CustomHeaders.AddValue('Authorization', 'Bearer <YOUR_CHATGPT_API_KEY>');
    Params := TStringStream.Create('{"prompt":"Hello, how are you today?", "max_tokens": 64}');
    try
      Response := HTTP.Post('https://api.openai.com/v1/images/generations', Params);
      try
        Memo1.Lines.Text := Response.ToString;
      finally
        Response.Free;
      end;
    finally
      Params.Free;
    end;
  finally
    HTTP.Free;
  end;
end;

注意：这仅仅是一个简单的示例代码，在